Vba Envoi Feuille dans corps de Mail Outlook

vaucluse immo

XLDnaute Accro
Bonjour a tous le forum
Me voila de retour,pour solliciter votre aide

Le code ci-dessousfonctione bien,mais je voudrais y ajouter
de pouvoir inclure une plage de cellules dans le corps du mail
après bon nombres d'essai je bute
si qq a une idée
cordialement
Christian

Sub SendWithAtt()
' 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 & "\" & "Ma Commande.Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

With olMail
.To = Sheets("SaisieMail").Range("B2") 'je sélectionne mon adresse mail dans cette cellule
.Cc = Sheets("SaisieMail").Range("B3") 'je sélectionne mon adresse mail dans cette cellule
.Subject = Sheets("SaisieMail").Range("B4") 'je note mon sujet,ou objet
.Body = "Vous trouverez ci-joint le fichier PDF ...Salade 2 Fruits"
.Attachments.Add CurFile
.Display '.Send
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 With
End Sub
 

Discussions similaires


Haut Bas