Utilisation de l'objet CDO.message
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é :
Code:
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 |
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.
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 :mur: ! 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 ...
