Discussion :

[thorgal85]

Bonjour,

J'utilise un code pour envoyer des mails via Lotus Notes, trouvé dans les fac access : "Comment envoyer un mail avec Lotus Notes ?"

Il fonctionne bien jusqu'à présent.
Je voudrai maintenant envoyer une pièce jointe, et la ça se corse !

Si je mets un chemin pour la variable attachement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Attachment = "c:\temp\toto.txt"

j'ai un message d'erreur : "Rich text item attachement already exits" lorsque j'arrive sur cette partie de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
        MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If

Je ne comprends pas ?!!

[pgz]

Bonjour.

Je crois que tu as des doubles quotes en trop. Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
        MailDoc.CREATERICHTEXTITEM (Attachment)
End If

Bon courage,

PGZ

[thorgal85]

ok, merci, c'était exactement ça !