Question 81

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.