Répondre à : Publipostage PDF avec Excel

[Merlin]

j’ai trouvé un code

Je ne sais pas ce que c’est mais il sera certainement plus lisible ainsi :

Code:

Sub EnvoiMail() Dim OutObj As Object,
OutMail As Object Dim sPath As String,
sNomFic As String Dim sAdrMail As String,
strSujet As String,
strBody As String ‘ Chemin d’enregistrement des fichiers temporaire sPath = Environ(“temp”) & “”‘ Nom du fichier sNomFic = Format(Date,
“yyyymmdd”) & “.pdf”” Exporter le fichier actuel en PDF ThisDocument.ExportAsFixedFormat OutputFileName:=sPath & sNomFic,
ExportFormat:=wdExportFormatPDF,
_ OpenAfterExport:=False,
OptimizeFor:=wdExportOptimizeForPrint,
Range:=wdExportAllDocument,
_ Item:=wdExportDocumentContent,
IncludeDocProps:=True,
KeepIRM:=True,
CreateBookmarks:= _ wdExportCreateNoBookmarks,
DocStructureTags:=True,
BitmapMissingFonts:=True,
UseISO19005_1:=False” Création d’une instance Outlook pour envoyer un mailSet OutObj = CreateObject(“Outlook.Application”) Set OutMail = OutObj.CreateItem(0) ‘ Création de l’e-mail : Titre,
Corps du message,
destinataire sAdrMail = InputBox(“Adresse mail du destinataire”,
“ADRESSE MAIL”,
“@”) ‘ Création du message strSujet = “CECI EST MON SUJET” strBody = “Bonjour,” & “

” _ & “Veuillez trouver en pièce jointe,
le document voulu.”‘ Préparation le mailWith OutMail ‘ Pour afficher la signature .Display ‘ Adresses mail .To = sAdrMail .cc = “”‘ Sujet de l’eMail .Subject = strSujet ‘ Corps du mail et signature .HTMLBody = strBody & “

” & .HTMLBody .Attachments.Add sPath & sNomFic EndWith’ Supprimer le fichier créé Kill sPath & sNomFic ‘ Effacer les objetsSet OutMail = NothingSet OutObj = NothingEndSub

:Smiley03: