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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas