CreateObject("CDO.Message")

Bonjour,

Je cherche à envoyer un mail via la référence "CDO.CONFIGURATION" et "CreateObject("CDO.Message")"
J'ai récupéré plusieurs exemples sur le net et à chaque fois j'ai le même message d'erreur quand j'exécute l'instruction :
.From = "senderName"

Le messages est :
"Erreur d'exécution '-2146644475 (800cce05)':
"La partie demandée n' pas été trouvée dans ce message"

Quelque soit le paramètrage que j'affecte, j'ai toujours ce message d'erreur
J'ai pourtant bien activé la réf. "Microsoft CDO for windows 2000 library" mais rien n'y fait

Je suis sous pack office 2010 et windows 8.1 pro
Merci de votre aide
YB

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub essai_envoi_mail() ' Dim MsSchm$, Cd0Conf As Object, CdoMsg As Object MsSchm$ = "http://schemas.microsoft.com/cdo/configuration/" Set Cd0Conf = CreateObject("CDO.Configuration") With Cd0Conf.Fields .Item(MsSchm$ & "smtpauthenticate") = 1 .Item(MsSchm$ & "smtpusessl") = True .Item(MsSchm$ & "smtpserver") = "smtp.gmail.com" .Item(MsSchm$ & "sendusername") = "senderName@gmail.com" .Item(MsSchm$ & "sendpassword") = "senderPassword" .Item(MsSchm$ & "smtpserverport") = 465 .Item(MsSchm$ & "sendusing") = 2 .Item(MsSchm$ & "connectiontimeout") = 100 .Update End With Set CdoMsg = CreateObject("CDO.Message") With CdoMsg Set .Configuration = Cd0Conf .From = "senderName" .To = "recipient@yahoo.com" .Subject = "This Test" .TextBody = "Testing" .Send End With End Sub

---

bonjour,
regarde ça: http://www.developpez.net/forums/d14...t/#post7968025

Code:

---

.From = "emetteur@gmail.com"

---

Bonjour

en faisant des recherche tu aurais trouver un paquet d'exemples
regarde dans ma signature
;)

Bonjour,

J'a toujours mon pb d'utilisation de CDO via le pack office 2010.
En fait, à priori, la bibliothèque CDO n'est plus livrée avec le pack office 2010.

Y aurai-t-il une solution de contournement ?

Merci d'avance

Salut, jette un œil ici ? Si tu es en Late Binding tu n'as pas à cocher de référence CDO.

Bonjour
Kiki a repondu pour moi
Quand a la presrnce ou non de cette librairie fans 2010 je suis certain qu'elle y est alors en effet selon les vetsion office elle est un peu diffetente donc si ta variable pour le cdo est en early binding tu peu avoir des soucis donc le late binding est de rigueur dans ce cas

Code:

---

1 2	dim monmail as object Set monmail=createobject(...........

---

Au plaisir

Bonjour,

Citation:

---

Envoyé par ybezier

Bonjour,

En fait, à priori, la bibliothèque CDO n'est plus livrée avec le pack office 2010.


Merci d'avance

---

Mais si elle est toujours là, du moins chez-moi (Win 7 Office 2010)

Dans les références c'est : Microsoft CDO for Exchange 2000 Library

Chemin d'accès : C:\windows\System32\cdosys.dll

Bonjour,
en utilisant CreateObject in n'y a pas de problme!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92

Sub test() Dim Html As String Html = "<table border='1' cellspacing='0'>" & BodYHtml(Selection) & "</Table>" Serveur = "smtp.googlemail.com" Identify = True User = "user" PassWord = 1234 Port = 465 Delay = 10 Expediteur = "Moi@gmail.com" Dest = "toi@gmai.com" DestEnCopy = "lesautre@gmail.com" Objet = "Suivi des modifications." msg = "Voici le tableau sélectionné<br>" Body = msg & Html Pj = "" MailEnvoi Serveur, Identify, User, PassWord, Port, Delay, Expediteur, Dest, DestEnCopy, Objet, Body, Pj End Sub Function BodYHtml(R) Dim C As Long Dim L As Long For L = 1 To R.Rows.Count BodYHtml = BodYHtml & "<TR>" & vbCrLf For C = 1 To R.Columns.Count BodYHtml = BodYHtml & "<TD >&nbsp" & R(L, C) & "</TD>" & vbCrLf Next BodYHtml = BodYHtml & "</TR>" & vbCrLf Next End Function Public Sub MailEnvoi(Serveur, Identify, User, PassWord, Port, Delay, Expediteur, Dest, DestEnCopy, Objet, Body, Pj) ' sub pour envoyer les mails Dim msg Dim Conf Dim Config Dim ess Dim splitPj Dim IsplitPj Set msg = CreateObject("CDO.Message") 'pour la configuration du message Set Conf = CreateObject("CDO.Configuration") ' pour la configuration de l'envoi Dim strHTML   Set Config = Conf.Fields   ' Configuration des parametres d'envoi '(SMTP - Identification - SSL - Password - Nom Utilisateur - Adresse messagerie) With Config If Identify = True Then .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = User .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PassWord End If .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = Delay .Update   End With     'Configuration du message 'If E_mail.Sign.Value = Checked Then Convert ServeurFrm.SignTXT, ServeurFrm.Text1   With msg Set .Configuration = Conf .To = Dest .cc = DestEnCopy .FROM = Expediteur .Subject = Objet '   .HTMLBody = Body '"<p align=""center""><font face=""Verdana"" size=""1"" color=""#9224FF""><b><br><font face=""Comic Sans MS"" size=""5"" color=""#FF0000""></b><i>" & body & "</i></font> " 'E_mail.ZThtml.Text If Pj <> "" Then splitPj = Split(Pj & ";", ";")   For IsplitPj = 0 To UBound(splitPj) If Trim("" & splitPj(IsplitPj)) <> "" Then .AddAttachment Trim("" & splitPj(IsplitPj)) End If Next   End If .Send 'envoi du message   End With ' reinitialisation des variables Set msg = Nothing Set Conf = Nothing Set Config = Nothing   End Sub

---