Bonjour
J'ai divers problèmes dans l'utilisation de l'objet CDO.message : j'utilise cet objet pour créer des Emails au format HTML avec des images "embarquées" dans l'email.
C'est à dire que les images ne font pas référence à des images téléchargées dynamiquement (au moment de l'ouverture) sur un site web mais que le mail est en plusieurs parties (MIME Multipart) et qu'une des partie du mail "code" les images.
Pour créer un tel email, j'utilise la méthode CreateMHTMLBody de l'objet CDO.message. Voici mon code simplifié :
Bien entendu, la machine qui execute le code dispose d'un serveur Web (IIS) qui répond correctement lorque l'on tape l'URL "http://127.0.0.1/modele_email.htm" dans IE.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Dim couriel As CDO.Message Dim config As CDO.Configuration Set couriel = New CDO.Message Set config = New CDO.Configuration With config.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" .Update End With With couriel Set .Configuration = config .From = "adresse@expediteur.com" .cc = "adresse@destinataire-copie.com" .BCC = "adresse@destinataire-cache.com" End With couriel.To = "adresse@destinataire.com" couriel.CreateMHTMLBody "http://127.0.0.1/modele_email.htm", cdoSuppressNone couriel.Send
Mon problème : j'obtiens de temps à autre l'erreur suivante :
Erreur d'exécution '-2147221163 (80040155)' : Interface not registered
sur la ligne de code qui invoque la méthode CreateMHTMLBody.
Après diverses recherches sur cet erreur (google ; kb miscrosoft), j'ai trouvé des solutions qui font référence à des DLL qui faudrait ré-enregistrer avec regsvr32 , j'ai essayé avec CDOSYS.DLL, rien n'y fait => j'ai toujours l'erreur ! En fait je ne sais pas quelle est la DLL manquante ou mal enregistrée.
Je n'ai pas trouvé de documentation vraiment claire et précise sur cet objet et/ou les méthodes sur le site Microsoft.
Bref ... à vot' bon coeur m'sieurs dames ...
Partager