Bonsoir,
trouvé pour toi:
Comment envoyer des e-mails via Lotus Notes ?
Il suffit d'employer le modèle objet de Lotus Notes. Voici un exemple de code permettant d'envoyer un e-mail :
Dim Session As Object
Dim db As Object
Dim doc As Object
Set Session = CreateObject("Notes.NotesSession" )
Set db = Session.GETDATABASE("", "" )
Call db.OPENMAIL
Set doc = db.CREATEDOCUMENT()
With doc
.Form = "Memo"
.SendTo = "adresse@serveur.com"
.CopyTo = "adresse@serveur.com"
.subject = "Petit test"
.body = "Ceci est un petit test d'envoie de message"
.From = Session.COMMONUSERNAME
.PostedDate = Now
.SAVEMESSAGEONSEND = True
End With
Call doc.SEND(True)
Set Session = Nothing
Set db = Nothing
Set doc = Nothing
Pour plus d'infos, consultez la Documentation Library de Lotus sur http://www-10.lotus.com/ldd/doc.
Mais je n'ai pas vu les PJ traitées dans le code.
probablement attachement....
Lotus Notes ne fait pas partie de mes fréquentations. lol
Cordialement
Message édité par seniorpapou le 07-09-2006 à 18:50:11