PdfMaker plante en mode publipostage
Résolu/Fermé
beru002
Messages postés
497
Date d'inscription
mardi 5 février 2008
Statut
Membre
Dernière intervention
28 janvier 2016
-
Modifié par beru002 le 27/01/2016 à 18:33
beru002 Messages postés 497 Date d'inscription mardi 5 février 2008 Statut Membre Dernière intervention 28 janvier 2016 - 28 janv. 2016 à 12:52
beru002 Messages postés 497 Date d'inscription mardi 5 février 2008 Statut Membre Dernière intervention 28 janvier 2016 - 28 janv. 2016 à 12:52
A voir également:
- PdfMaker plante en mode publipostage
- Publipostage mail - Accueil - Word
- Mode sécurisé samsung - Guide
- Mode d'emploi - Guide
- God mode - Guide
- Démarrer en mode sans echec - Guide
1 réponse
beru002
Messages postés
497
Date d'inscription
mardi 5 février 2008
Statut
Membre
Dernière intervention
28 janvier 2016
27
28 janv. 2016 à 12:52
28 janv. 2016 à 12:52
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!!
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...
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...