Envoyer e_mail avec Lotus Notes

Bonjour,

Je te propose de méditer sur ce qui suit car ca me permet d'effectuer à peut pret ce que tu souhaite.

Sub envoie_Mail()
Dim mailDb As Object
Dim UserName As String
Dim MailDbName As String
Dim mailDoc, AttachME, Session, EmbedObj As Object

Set Session = CreateObject('Notes.NotesSession')

UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, ' '))) & '.nsf'

Set mailDb = Session.GETDATABASE('', MailDbName)
If mailDb.IsOpen = True Then
Else
mailDb.OPENMAIL
End If

Set mailDoc = mailDb.CREATEDOCUMENT
mailDoc.Form = 'Memo'
'mailDoc.sendTo = 'destinataire' mailDoc.copyTo = 'copie' mailDoc.BlindCopyTo= 'copie'
mailDoc.Subject = 'objet'
mailDoc.body = ' Bonjour,' mailDoc.ReturnReceipt = '0'
mailDoc.SAVEMESSAGEONSEND = True
mailDoc.PostedDate = Now()
mailDoc.SEND 0 'envoi du mail
Set mailDb = Nothing
Set mailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub

Si cela marche, il te reste juste à déclencher ta macro sous condition.

J'espere que ca te fera avancer

Simba59

Bonsoir Simba59
Merci pour ta contribution, je vais essayer ton code.
Salutations,
Bcar.

Ce sont rarement les réponses qui apportent la vérité, mais l'enchaînement des questions (Daniel Pennac).

Cliquez pour agrandir...