Envoie Email avec piece joint

Bonjour,

j'ai un bouton qui me permet d'extraire ma feuille excel en pdf et j'aimerai y rajouter du code afin de pouvoir ensuite creer un email avec la pieces jointe creer précédement.

tout en sachant que les informations a recuperer dans la feuille excel sont :

adresse mail : C23
Adresse mail copie : adressedumag@orange.fr
Object : Ouverture SAV contremarque "D15"
Pieces joints : W:\GESTION SAV\SAV "pdf creer précédement"
Corp du mail : (je le rajouterai dans le code)

voici un bout de mon code qui permet de générer le PDF

Private Sub EnvoieEmail_Click()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"W:\GESTION SAV\SAV\" & [D15] & [B22] & [C22] & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False _

End Sub

merci

Bonjour Rocca66,

Je pense que vous n'avez fait aucune recherche

Sinon avec Google https://www.google.com/search?q=vba+mail+avec+piece+jointe

Vous auriez pu trouver ceci
https://forum.excel-pratique.com/excel/vba-envoyer-un-mail-outlook-avec-une-piece-jointe-t90749.html

Ou bien même sur ce forum avec la zone de recherche

image

Vous auriez pu tomber sur mon outil mis à dispo

https://www.excel-pratique.com/fr/telechargements/utilitaires/pdf-email-vba-excel-no508

Voilà

Rechercher des sujets similaires à "envoie email piece joint"