Public Sub Envoi_mail()
'---Envoyer_Mail_Outlook---
Dim oAttach As Object, ColAttach As Object
Dim ObjOutlook As Object
Dim oBjMail As Object
Dim Nom_Fichier, Nom_Fichier2 As String
Dim destinataires As String
Set ObjOutlook = CreateObject("Outlook.Application")
For i = 5 To [A65536].End(xlUp).Row
chemin = ThisWorkbook.Path & "\" & Range("B" & i) & ".png"
Contenu = Range("D" & i) & Chr(10) & Chr(13)
Contenu = Contenu & " " & Range("E" & i)
Contenu = Contenu & " " & Range("F" & i) & Chr(10) & Chr(13)
Contenu = Contenu & " " & Range("G" & i)
Contenu = Contenu & " " & Range("H" & i)
Contenu = Contenu & " " & Range("I" & i)
Contenu = Contenu & " " & Range("J" & i)
Contenu = Contenu & " " & Range("K" & i)
Contenu = Contenu & " " & Range("L" & i)
Contenu = Contenu & "Ta fonction (Chef de fil)" & Chr(10) & Chr(13)
Contenu = Contenu & "GSM: 0011554422" & Chr(10) & Chr(13)
Set ObjOutlook = CreateObject("Outlook.Application") 'New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
Set ColAttach = oBjMail.attachments
Set oAttach = ColAttach.Add(chemin)
'---Destinataires---
destinataires = Range("A" & i)
'---------------------------------------------------------
Nom_Fichier = ThisWorkbook.Path & "\" & Range("N" & i) & ".pdf"
If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
'MsgBox Nom_Fichier & ";" & Chr(10) & Chr(13) & Chemin
With oBjMail
.To = destinataires
.Subject = Range("C" & i) ' l'objet du mail
.Body = Contenu 'le corps du mail ..son contenu
.HTMLBody = "<IMG src=cid:" & Range("B" & i) & ".png" & "></BODY>"
.attachments.Add Nom_Fichier
.Send
End With
ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing
Next
End Sub