Piece jointe sur mail lotus

Bonjour,

je ne parviens pas a ajouter une pièce jointe a un envoi de mail sur LOTUS, voici le code que j'utilise :

Private Sub CommandButton1_Click()

Dim db As Object

Dim doc As Object

Set JMASession = CreateObject("Notes.NotesSession")

Set db = JMASession.GETDATABASE("", "")

Call db.OPENMAIL

Set doc = db.CREATEDOCUMENT()

With doc

.form = "Memo"

.SendTo = "jean-marc.ragus@hsbc.fr"

.AddAttachment (C:\0_JMA\anglais2.xls)

.CopyTo = ""

.Subject = "Testttttttttt"

.body = "Texte du mail"

.From = JMASession.COMMONUSERNAME

.PostedDate = Now

End With

Call doc.SEND(True)

Set db = Nothing

Set doc = Nothing

End Sub

Bonjour,

Cette ligne :

.AddAttachment (C:\0_JMA\anglais2.xls)

ne devrait-elle pas être .AddAttachment ("C:\0_JMA\anglais2.xls") ????

A+

Si, je m'en était rendu compte après aussi, mais cela ne fonctionne pas, il doit manquer des lignes de commande, mais je ne trouve pas d'aide pour ce pb.

Merci tout de même.