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!G12").Value & ";" & Range("Circuit!G13").Value & ";" & Range("Circuit!G6").Value & ";" & Range("Circuit!G7").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
'attention le chemin est à changer pour ton besoin
'.Attachments.Add "C:\PGI\Résultats.xls"
'Remplacez .Display par .send pour envoyer directement l'e-mail sans l'afficher dans Outlook
.Send
MsgBox "Message envoyé !"
End With
End Sub