Discussion :

[Goltar]

Bonjour à tous,
J'essaie vainement d'envoyer un mail via ma web page basée chez OVH.
J'utilise l'ASP suivant:

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
<%
  Dim objMail, objMailConf
  Set objMail = Server.CreateObject("CDO.Message")
  Set objMailConf = Server.CreateObject("CDO.Configuration")
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.[votre_nom_de_domaine]"
  objMailConf.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "[votre_mot_de_passe_de_votre_messagerie]"
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[nom_utilisateur_de_votre_messagerie]"
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  objMailConf.Fields.Update 
 
  Set objMail.Configuration = objMailConf
  objMail.From = "[mail_expéditeur]" 
  objMail.To = "[mail_destinataire]"
  objMail.Subject = "[objet]" 
  objMail.TextBody = "[corps_du_message] " 
  objMail.Fields.Update
  objMail.Send
  Set objMail = Nothing
%>

Quand je code en clair "smtp.[votre_nom_de_domaine]" et "[votre_mot_de_passe_de_votre_messagerie]"
cela se passe très bien et le mail est envoyé.
Par contre j'essaie de récupérer ces valeur encodé dans ma BDD pour les injecter dans l'asp, avec le code :

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
<%
  Dim objMail, objMailConf
  Set objMail = Server.CreateObject("CDO.Message")
  Set objMailConf = Server.CreateObject("CDO.Configuration")
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = (mailing.Fields.Item("SendUsing").Value)
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = (mailing.Fields.Item("Domaine").Value)
  objMailConf.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = (mailing.Fields.Item("Port").Value)
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = (mailing.Fields.Item("Connect_TimeOut").Value)
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = (mailing.Fields.Item("Pwd").Value)
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = (mailing.Fields.Item("Name_Mailbox").Value)
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = (mailing.Fields.Item("authenticate").Value)
  objMailConf.Fields.Update 
 
  Set objMail.Configuration = objMailConf
  objMail.From = (mailing.Fields.Item("expediteur").Value) 
  objMail.To = (AskLic.Fields.Item("Email").Value)
  objMail.Subject = (mailing.Fields.Item("Objet").Value) 
  objMail.TextBody = (mailing.Fields.Item("Corp").Value) 
  objMail.Fields.Update
  objMail.Send
  Set objMail = Nothing
%>

Et là, plus rien ne va! Erreur !
CDO.Message.1 error '80040213'

The transport failed to connect to the server.

Je sais que ça coince à la connection serveur smtp
objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
attend une valeur au format "smtp.nom_de_domaine" entre quote
j'ai essayé avec chr(34) & (mailing.Fields.Item("Domaine").Value) & chr(34) et sans mais ça ne passe pas.
Si quelqu'un pouvait me donner une piste?
D'avance merci

[Goltar]

Hello,
Y'a t'il un pilote dans l'avion?
Une ch'tite idée, je suis bloqué et j'ai beau retourner le problème dans tout les sens.
En récupérant la valeur de ma db, je remarque qu'un blanc est rajouté à la fin, je tente donc de le supprimer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Gr = Chr(34)&(conf.Fields.Item("Domaine").Value)&Chr(34)
  Gr=Replace(Gr, " ", vbNullString)

Mais toujours cette foutue erreur:
error '80040211'

[roro06]

Bonjour

t'as pas besoin des guillemets. ils sont là pour entourer une chainde de caractères, mais la syntaxe suivante est la bonne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = (mailing.Fields.Item("Domaine").Value)

encore faut-il qu'il y ait les bonnes infos dans la bases de données. à l'aide de response.write(), je te suggère d'afficher à l'écran les valeurs et de vérifier si elles correspondent à la réalité

[Goltar]

Merci Roro,
En effet, c'est en faisant response.write que je me suis rendu compte qu'un blanc était ajouté à la fin .
Mais que nenni !
Tout ce qui est numérique pas de problème ça passe, mais pas les deux plus importants.
smtpserver et sendpassword ne veulent rien entendre ! Sont allergiques à mes données SQL Server.
D'ou mon horreur: CDO.Message.1 error '80040213'

The transport failed to connect to the server.
Puis qu'il n'à pas les bonnes données pour se connecter au serveur mail.

Scrogneugneu !

[roro06]

A la rigueur, tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Replace(mailing.Fields.Item("Domaine").Value, " ", "")

(évites vbNullString)