OVH Cloud OVH Cloud

Pb CDO message

3 réponses
Avatar
goonie
Bonjour,

J'éxécute à partir de Access en VBA du code pour générer un mail sur un
poste avec Outlook express (messagerie par défaut OK, paramètres OK).

Il envoie une erreur "Le transport a échoué" sur le send.

Le code est le suivant :

Dim cdomail As New CDO.Messag
cdomail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

cdomail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "contact@centrethieulam.com
''cdomail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'cdomail.Configuration.Fields.Update
'
cdomail.From = "contact@centrethieulam.com"
' cdomail.To = "contact@centrethieulam.com"
' cdomail.Subject = "essai carole"
cdmail.send


Merci

3 réponses

Avatar
Parsifal

cdomail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/con figuration/smtpserver") = ""


à mon avis il attend l'adresse d'un serveur smtp pour ce parametre d onc
ca devrais plutôt être du style :
cdomail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi guration/smtpserver")
= "smtp.wanadoo.fr"

Avatar
Bonjour,

ce n'est pas cdmail.send mais cdomail.send

si tu dis qu'il existe une messagerie par défaut, alors pas besoin non plus de déclarer un serveur smtp
ou alors le faire comme te l'a suggéré persival

il est également permis de dire à la communauté si la solution proposée a résolu ton problème.

Cordialement
--
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------

"goonie" a écrit dans le message de news:
Bonjour,

J'éxécute à partir de Access en VBA du code pour générer un mail sur un
poste avec Outlook express (messagerie par défaut OK, paramètres OK).

Il envoie une erreur "Le transport a échoué" sur le send.

Le code est le suivant :

Dim cdomail As New CDO.Message
cdomail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

cdomail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
''cdomail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'cdomail.Configuration.Fields.Update
'
cdomail.From = ""
' cdomail.To = ""
' cdomail.Subject = "essai carole"
cdmail.send


Merci


Avatar
goonie
Non, ce n'est pas cela, j'ai juste mal copier-coller mon code.
Par contre, j'ai activé IIS sur le poste et je vais faire des essais next
week.

Merci


Bonjour,

ce n'est pas cdmail.send mais cdomail.send

si tu dis qu'il existe une messagerie par défaut, alors pas besoin non plus de déclarer un serveur smtp
ou alors le faire comme te l'a suggéré persival

il est également permis de dire à la communauté si la solution proposée a résolu ton problème.

Cordialement
--
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------

"goonie" a écrit dans le message de news:
Bonjour,

J'éxécute à partir de Access en VBA du code pour générer un mail sur un
poste avec Outlook express (messagerie par défaut OK, paramètres OK).

Il envoie une erreur "Le transport a échoué" sur le send.

Le code est le suivant :

Dim cdomail As New CDO.Message
cdomail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

cdomail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
''cdomail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'cdomail.Configuration.Fields.Update
'
cdomail.From = ""
' cdomail.To = ""
' cdomail.Subject = "essai carole"
cdmail.send


Merci