Sub EnvoiMail_Outlook_MKT()
'Creation de l'objet e-mail
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olmailItem)
'Caractéristiques de l'e-mail
With olmail
.To = Range("Circuit!I4").Value & ";" & Range("Circuit!I5").Value & ";" & Range("Circuit!I7").Value & ";" & Range("Circuit!I8").Value & ";" & Range("Circuit!I9").Value & ";" & Range("Circuit!I10").Value & ";" & Range("Circuit!I11").Value & ";" & Range("Circuit!I12").Value & ";" & Range("Circuit!I13").Value & ";" & Range("Circuit!I14").Value & ";" & Range("Circuit!I15").Value & ";" & Range("Circuit!I16").Value & ";" & Range("Circuit!I17").Value & ";" & Range("Circuit!I18").Value & ";" & Range("Circuit!I19").Value & ";" & Range("Circuit!I20").Value & ";" & Range("Circuit!I21").Value & ";" & Range("Circuit!I22").Value
'Affiche le nom comme objet du message
.Subject = "Fiche Article " & ActiveWorkbook.Name
.Body = "Bonjour," & Chr(13) & Chr(13) & "La fiche article " & ActiveWorkbook.Name & " viens d'être créée." & Chr(13) & "Vous la trouverez à l'adresse suivante: " & ActiveWorkbook.FullName & ". " & Chr(13) & "Merci de traiter cette fiche dans les 48h." & Chr(13) & Chr(13) & "Bonne réception." & Chr(13) & Chr(13) & Application.UserName
'Pièces jointes si il y a lieu
'.Attachments.Add "C:\PGI\Résultats.xls"
.Send
MsgBox "Message envoyé !"
End With
End Sub