Sub Pilotage_Outlook()
Dim OutApp As Object, OutMail As Object
Dim Nom As String, Chemin As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "vv@pigeon.fr" 'A
' .From = "xxx.yyyy@zzzz.fr" 'De
'.CC = "adresse mail complémentaire si besoin"
.Subject = "Ton Objet"
.Body = "Ton Corps de texte"
'Spécifie le chemin de stockage des pdf
Chemin = "C:\temp\"
'Ajoute les fichiers en pièces jointes
'Composition du nom du fichier
Nom = "Piece_Jointe.xlsx"
'Ajoute piece jointe
.Attachments.Add Chemin & Nom_Pdf
.Display 'pour voir et modifier ou envoyer
If MsgBox("A envoyer ?", vbYesNo) = vbYes Then .Send 'Pour envoyer directement
End With
MsgBox "Mail envoyé"
Set OutMail = Nothing
Set OutApp = Nothing
End Sub