Publipostage en PDF, puis envoi par Mail individuellement
Bonjour à vous tous,
voici ma problématique, j'ai une liste d'élève sur Excel et régulièrement, je dois leurs envoyer par Mail une attestation nominative en PDF.
J'ai réussi à trouver une macro pour le publipostage nominatif en PDF, par contre pour l'envoi par Mail
Si, un de vous à la solution, je suis preneur...
Merci d'avance
voici ci-dessous
Ma macro pour le publipostage en PDF :
'Macro Pdf Module 2:
Sub pdf_Module2()
Dim fusion As MailMerge
Dim x As Integer, nb As Integer
Dim chemin As String, nom As String
Set fusion = ActiveDocument.MailMerge
chemin = "C:\Formation\Module1\Achives\Attestation" 'chemin complet du dossier où stocker les fichiers
nb = fusion.DataSource.RecordCount
For x = 0 To nb - 1
With fusion
.DataSource.FirstRecord = x + 1
.DataSource.LastRecord = x + 1
.Destination = wdSendToNewDocument
.DataSource.ActiveRecord = x + 1
nom = .DataSource.DataFields(2) 'champ de la colonne utilisait pour nommé le PDF
.Execute
End With 'envoyer mail à partir de la
ActiveDocument.ExportAsFixedFormat OutputFileName:="C:\Formation\Module1\Achives\Attestation" & nom & ".pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False
ActiveDocument.Close savechanges:=False
Next
End Sub
Répondre avec citation
Envoyé par Nain porte koi
Partager