Bonjour à tous ,

J'ai besoin de vous ...

j'essaye de mettre en place une macro vba afin d'envoyer depuis Excel des mails ( Messagerie Lotus Notes )

merci de trouver ci joint ma demande : Click image for larger version. 

Name:	2017-11-28 10-03-25_New notification.jpg 
Views:	171 
Size:	20.0 KB 
ID:	21071

j'ai plusieurs codes fournisseurs ou est affecter une adresse mail .

Mon souhait est d'envoyer uniquement les lignes correspondantes au fournisseur attibuer.

J'ai commencé un bout de macro mais bon ... je baisse les bras ...

Application.ScreenUpdating = False
'lefichier = ThisWorkbook.Path & "\Nom de mon fichier.xlsm"
lefichier = "***"
Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)

Attachment = lefichier

'************** Application.Dialogs(xlDialogSendMail).Show
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.Username
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.CAT - B5 - 2 / Servers / Caterpillar("", MailDbName)
If Maildb.IsOpen = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If...

Merci ....