PdfMaker plante en mode publipostage [Résolu/Fermé]

Signaler
Messages postés
495
Date d'inscription
mardi 5 février 2008
Statut
Membre
Dernière intervention
28 janvier 2016
-
beru002
Messages postés
495
Date d'inscription
mardi 5 février 2008
Statut
Membre
Dernière intervention
28 janvier 2016
-
Bonjour,

J'ai un problème que je n'arrive, malgré le nombre de fois où le sujet a été traité, pas du tout résoudre!
J'ai un document en publipostage, créé sous Word 2007 (sous Win7). Une ancienne macro pour créer des Pdf fonctionne toujours à merveille... Créer un Pdf directement de l'onglet "Acrobat" fonctionne aussi...
Mais lorsque je veux cliquer sur "Fusion et publipostage au format PDF", je finis toujours par avoir le message suivant: "PdfMaker n'a pas pu effectuer la fusion et le publipostage du document"...
PdfMaker 9.0 est bien activé dans les compléments... Word 2007 est normalement compatible avec le 9.0... alors quoi?
Je précise que l'envoi par mail avec pièce jointe en document .doc fonctionne bien... mais que je les veux en PDF, bien entendu! ;-)

Si quelqu'un a une idée... Merci d'avance!

Edit: Après un test, cette fonction ne plante que si je choisis de fusionner et d'envoyer par mail... si je ne fais que fusionner sans envoi mail, les PDF sont créés sans souci...


1 réponse

Messages postés
495
Date d'inscription
mardi 5 février 2008
Statut
Membre
Dernière intervention
28 janvier 2016
22
Bon... finalement je suis passé par une macro, malgré la galère pour trouver le bon code, utilisant Thunderbird avec un serveur OVH...
D'ailleurs!! Pour ceux qui utilisent ce serveur en SSL, malgré que dans Thunderbird vous ayez le port 993, dans VBA, il faudra mettre le port 465!!
Voici le code que j'ai utilisé, au cas où ça pourrait servir!!

Dim iMsg
Set iMsg = CreateObject("CDO.Message")
With iMsg
With .Configuration.Fields

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'serveur externe
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ssl0.ovh.net" 'nom ou IP du serveur SMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'port utilisé
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'besoin du mot de passe
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXX@XXX.com" 'adresse mail
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MOT DE PASSE" 'mot de passe
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'si utilisation du SSL
.Update

End With
.To = "XXX@XXX.com"
.From = "XXX@XXX.com"
.Subject = "SUJET DU MAIL"
.AddAttachment "FICHIER A ENVOYER EN PIECE JOINTE"
.TextBody = "BODY DU MAIL"
.Send
End With


En espérant que ça puisse servir...

PS: je mets le sujet en résolu pour le fermer, même s'il ne l'est pas vraiment...