' dans la boite de dialogue références, sélectionnez Microsoft outlook 12.0 (ou autre n°de version)
' object library
Sub E_Mail()
Dim cel As Range
For Each cel In Feuil1.Range("a2:a" & Feuil1.Range("a" & Rows.Count).End(xlUp).Row)
traitement cel
Next
End Sub
Sub traitement(cel As Range)
Dim Mon_Outlook As New Outlook.Application
Dim Mon_Message As Outlook.MailItem
Set Mon_Message = Mon_Outlook.CreateItem(olMailItem)
With Mon_Message
.Subject = cel.Offset(0, 3) 'le sujet
.Body = cel.Offset(0, 4) 'le corps du message
.BodyFormat = olFormatHTML 'format du message
.Recipients.Add cel.Offset(0, 1) 'ajoute du destinataire en A
.OriginatorDeliveryReportRequested = True 'accusé de reception
.ReadReceiptRequested = False 'accusé de lecture
.Attachments.Add cel.Offset(0, 5).Text 'fichier joint1
.Attachments.Add cel.Offset(0, 6).Text 'fichier joint2
.Attachments.Add cel.Offset(0, 7).Text 'fichier joint3
.CC = cel.Offset(0, 2).Text 'ajoute du destinataire en CC
.Save
End With
Mon_Outlook.Quit
Set Mon_Message = Nothing
Set Mon_Outlook = Nothing
End Sub