Discussion :

[ragus77]

Bonjour,

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

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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@free.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

[AlexL.]

Bonjour,

Essayes :

Code :

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

1
2
3
4
5
6
7
 
Source="C:\0_JMA\anglais2.xls"
 
Set AttachME = Doc.CREATERICHTEXTITEM("FJoint")
 
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Source, "FJoint")
Doc.CREATERICHTEXTITEM (Source)

sans garanties...

[ragus77]

Merci, ça fonctionne bien