Mail à partir d'un Word avec 3 destinaires et un pdf
Bonjour,
J'ai un document Word. Je veux créer une VBA qui :
1-Enregistre le doc en format PDF.
2-Génère un mail avec 3 destinaires avec le pdf crée à l'étape 1
J'ai commencé une macro pour déjà faire le format pdf et génerer le mail :
"Sub VersPDF()
Dim nfichier As String, nfichier2 As String, intpos As Byte
nfichier = ActiveDocument.Name
'trouve la position de l'extension
intpos = InStrRev(nfichier, ".")
'remplace l'extension doc par pdf
nfichier = Left(nfichier, intpos - 1)
nfichier2 = nfichier & ".pdf"
'enregistre dans le dossier en cours
ActiveDocument.ExportAsFixedFormat OutputFileName:=ActiveDocument.Path & "/" & nfichier2, _
ExportFormat:=wdExportFormatPDF
ActiveDocument.SendMail
End Sub"
1er problème : je n'ai pas pu lier le format PDF généré dans le mail, je dois changer le Active Document (ici en orange) mais je ne sais pas par quoi pour qu'il prenne en compte le format pdf crée dans le dossier et non le doc Word active.
2eme problème pour les 3 destinataires : J'ai essayé de créer une liste de contact (avec l'onglet publipostage) mais je ne sais pas pourquoi ca ne le prend pas en compte quand j'essaye d'envoyer le mail.
Si vous avez des pistes pour moi je vous serais reconnaissant.
Merci et bonne journée.
E.B
RE : Avec un fichier c'est mieux :)
Bonjour,
Utilise tu Outlook pour l'envoi de tes mails ?
Cordialement,
Bonjour Moul,
Oui c'est bien Outlook pour l'envoi.
Cdt,
Emrah
Rebonjour,
Fonctionnel chez moi.
Le code est dans le module EnvoiMail. Il faut adapter les adresses mails a qui tu veux envoyer le fichier.
Si tu veux juste préparer outlook sans envoyer le fichier dans le module Mail.
Commente la ligne
.sendTiens moi au courant
Bonjour Moul,
Je te remercie infiniment, ça marche également chez moi :)
Cela va beaucoup m'aider.
Merci encore et je te souhaite un bon et long weekend :)
Cdt,
Emrah