Envoie d'un Etat par Email depuis Access --> Ne fonctionne q'une seule fois!!

Bonjour =E0 tous.

Je vous explique mon probl=E8me:

J'ai cr=E9=E9 un formulaire permettant d'envoyer par email un Etat
personnalis=E9 =E0 un fournisseur.

Ma database contient deux tables: Supplier List et Autre Table

Dans Supplier List on trouve le Code fournisseur (Supp Code) et l'email
(Email) de chaque fournisseur.

Dans Autre Table on trouve les donn=E9es =E0 partir desquels je realise
l'Etat Filtr=E9.


Le formulaire contient le champ "Boite", dans lequel se trouve le code
du fournisseur auquel je souhaite envoyer l'=E9tat, un champ Sujet et un
champ Lettre contenant donc le sujet et le message que je souhaite
mettre dans l'email.

Lorsque je clique sur le bouton du formulaire (auquel est associ=E9 le
code VBA ci dessous,), tout fonctionne parfaitement. Le Dlookup
recherche l email du fournisseur dont le code est inscrit dans le champ
"boite", avec les sujets et messages remplis dans les champs du
formulaire. L'Etat est quant =E0 lui attach=E9 =E0 l email en SnapShot.

Donc tout fonctionne pour le mieux... SAUF QUE... cela ne fonctionne
qu'une seule fois!!!

si je veux renvoyer l etat =E0 un second fournisseur, impossible!...
soit il ne se passe rien, soit je recois le message "reserved error"...

Voici mon code:

-------------------

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

Dim stDocName As String
stDocName =3D "THEETAT"

Dim myemail As Variant
myemail =3D DLookup("[Email]", "[Supplier List]", "[Supp Code]=3D'" &
Boite & "'")

DoCmd.SendObject acSendReport, stDocName, acFormatSNP, myemail, "", "",
Sujet, Lettre, False

Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click

Exit_Command0_Click:
Exit Sub

End Sub

---------


Qqn peut il m'aider please.... je ne m'y connais pas trop en VBA et
j'aurais vraiment besoin d'aide!!!

Merci d'avance!