Sub SendEMail()
Dim olApp As Object, olMail As Object
Dim CurFile As String
Dim Destinataire As String
' Destinataire
Destinataire = Range("I5").Value
' Déclaration d'une instance Outlook en Late binding
' permet la compatibilité en différentes versions office
Set olApp = CreateObject("outlook.Application")
Set olMail = olApp.CreateItem(0)
' Créer le chemin d'accès et le nom du fichier
CurFile = ThisWorkbook.Path & "\" & "MaFeuille.Pdf"
' Exporter la feuille active en tant que fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = Destinataire
'.CC = "name2@domain2.com" ' Copie du message
.Subject = "Ouverture de dossier"
.Body = "Bonjour," & vbLf & vbLf _
& "Vous trouverez ci-joint le fichier PDF ..."
.Attachments.Add CurFile
.Display '.Send
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
' Supprimer le fichier résultant
Kill CurFile
End Sub