VBA Mail destinataires et pièce jointe

Bonjour à tous,

Nouveau sur le forum (et débutant en VBA), j'aurai besoin de votre aide pour un code permettant d'envoyer à une liste de destinataire dont le mail est défini en référence E17 à E96 et le chemin d'accès en D17 à D96 ...

Je pensais ne pas être en face d'un sujet trop compliqué mais je n'arrive pas à faire matcher l'envoi des PJ avec les destinataires ...

Need your help !

Merci par avance,

Cdt,

Morgan

Bonjour,

Réponse trouvée, à disposition pour les prochains nécessiteux :

Dim objoutlook As New Outlook.Application

Dim oBjMail

repertoire = "F:\...\"

With oBjMail

For i = x To y

Set objoutlook = New Outlook.Application

Set oBjMail = objoutlook.CreateItem(olMailItem)

.To = Cells(i, 5).Value

.CC = " "

.Subject = "test"

.Body = "test"

.Attachments.Add repertoire & Cells(i, 4).Value

.Display

.Send

Next i

Set oBjMail = Nothing

Set objoutlook = Nothing

End With