Option Explicit
Sub SendWithAtt()
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("D1") & "_" & Format(Date, "dd-mmmm-yyyy") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = "nom.prénom@domaine.fr"
.CC = ""
.Subject = "Litige SOBRAQUES BEZIERS"
.Body = "Bonjour," & vbCrLf & "Veuillez trouver en pièce jointe les litiges de ce jour" & vbCrLf & "Vous souhaitant bonne réception" & vbCrLf & "Le Service SAV BEZIERS" ' A modifier
.Attachments.Add CurFile
.Display
.Send
End With
MsgBox "Merci de bien vouloir vérifier que le message apparait dans -messages envoyés- dans votre messagerie OUTLOOK."
ActiveSheet.PrintOut
Set olMail = Nothing
Set olApp = Nothing
End Sub