Envoi mail automatique avec fichier joint PDF

Sub EnvoimailADV_reappro()
' Nécessite la référence : Microsoft Outlook 1x Object Library
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

CurFile = ThisWorkbook.Path & "\" & Range("A2") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = "***@***"
.Subject = "Nouvelle " & Range("A2")
.Body = "Bonjour Catherine," & vbCrLf & vbCrLf & "Tu trouveras ci-joint une nouvelle commande de réappro." & vbCrLf & vbCrLf & "Merci à toi."
.Attachments.Add CurFile
.Display
End With
MsgBox "Merci de vérifier que le message apparait dans -messages envoyés- dans votre messagerie OUTLOOK."

' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing
End Sub