bonjour,
une proposition
Sub aargh()
rep = "d:\downloads\" 'répertoire dans lequel se trouvent les annexes
With Sheets("residences")
dl = .Cells(Rows.Count, 2).End(xlUp).Row
Set ol = CreateObject("outlook.application")
For i = 7 To dl
Set ml = ol.createitem(0)
ml.To = .Cells(i, 4) & " " & .Cells(i, 5) 'nom et prénom
ml.Subject = .Cells(3, 3) 'objet du mail
ml.body = "texte du message"
ml.attachments.Add rep & .Cells(i, 6).Value 'fichier joint
ml.display 'afficher le mail
'ml.send 'envoyer le mail
Next i
End With
End Sub
comme tu n'as pas les adresses mail des personnes auxquelles tu veux envoyer les messages, j'ai simplement mis le nom et le prénom comme destinataire du mail, outlook essayera de trouver lui-même (sur base de la liste des contacts) à quelles adresses envoyer les mails