Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
fichier = nom & ".pdf"
Corp = "Bonjour," & _
vbCrLf & vbCrLf & vbCrLf & _
"Message envoyé automatiquement" & _
vbCrLf & vbCrLf & vbCrLf & _
"Ci-joint." & _
vbCrLf & vbCrLf & vbCrLf & _
"Cordialement."
Application.DisplayAlerts = False
With olMail
.To = AdresseMail
.BCC = ""
.Subject = "" & " - " & titre & " au 24/06/2019"
.Body = Corp
.Display
.Attachments.Add chemin & fichier
.Send
End With
Application.DisplayAlerts = True
Set olApp = Nothing
Set olMail = Nothing