Envoyer e_mail avec Lotus Notes

[Bcar]

Bonsoir à tous,
Je souhaiterai envoyer un e-mail via Lotus Notes en fonction du contenu d'une cellule (oui/non) avec un msg pre-defini (votre demande n'est pas acceptée + une date recuperée dans une cellule voisine).
Comment faire?
Avez vous des exemples?
Merci par avance,
Bcar.

Un optimiste, c'est un homme qui plante deux glands et qui s'achète un hamac. (De Lattre de Tassigny)

 

[simba59]

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

 

[Bcar]

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).