error '8004020e' avec CDO.Message

**Poussy-Puce** · 13/06/2006, 14h42

Bonjour, j'ai un problème avec CDO.Message, si je veux envoyer un mail et que j'écris directement les donnés ça fonctionne

exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set myMail=CreateObject("CDO.Message")
myMail.From= "mail@domain.com"
myMail.To="mail@domain.com"
myMail.Subject="Sending email with CDO"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.domain.com"
'Server port
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

Mais si je mes une donnée dans une variable qui vient d'un Request.Form, j'ai le message d'erreur error '8004020e'

example:

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
dim strForm 
strFrom =  Request.Form("hFrom")
'Response.Write strForm
Set myMail=CreateObject("CDO.Message")
myMail.From=strFrom
myMail.To="mail@domain.com"
myMail.Subject="Sending email with CDO"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.domain.com"
'Server port
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

Est-ce que quelqu'un c'est POURQUOI!!

**pc75** · 13/06/2006, 14h53

Bonjour,

Le Response.Write strForm t'affiche quoi ?

**Poussy-Puce** · 13/06/2006, 14h59

La bonne chose ex: bob707@hotmail.com

**Poussy-Puce** · 13/06/2006, 16h00

Personne pour m'aider???

**Gwenn** · 13/06/2006, 16h08

En faisant une recherche sur " error '8004020e' ", t'es a priori pas le seul a rencontrer le pb

j'utliise cette fonction et ca tourne sans soucis :

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
Function SendMail(ByVal recipient, ByVal recipientBCC, ByVal sender, ByVal sujet, ByVal message)
    Dim oMail
	Set oMail = CreateObject("CDO.Message")
 
    ' Remplissage des champs de l'objet
    With oMail
		.HTMLBody = message
		.To = recipient
		If (recipientBCC <> "") Then
		    .Bcc = recipientBCC
		End If
		.From = sender
		.Subject = sujet
		.Send
	End With
    SendMail = 0
 
    Set oMail = Nothing
End Function

**Poussy-Puce** · 13/06/2006, 16h10

Bon, j'essaye ça et je croise les doigts!!!

**Poussy-Puce** · 13/06/2006, 16h17

ça n'envoie même pas de mail

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
24
 
SendMail Request.Form("hFrom"), "", "mail@domain.com", "blbli", "kjshdfk"
 
Function SendMail(ByVal recipient, ByVal recipientBCC, ByVal sender, ByVal sujet, ByVal message)
    Dim oMail
	Set oMail = CreateObject("CDO.Message")
    ' Remplissage des champs de l'objet
    With oMail
	Response.Write "oui"
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.domain.com"
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
		.HTMLBody = message
		.To = recipient
		If (recipientBCC <> "") Then
		    .Bcc = recipientBCC
		End If
		.From = sender
		.Subject = sujet
		.Send
	End With
    SendMail = 0
 
    Set oMail = Nothing
End Function

**Gwenn** · 13/06/2006, 16h24

Oui mais bon, là faudrait peut etre revoir les bases de l'asp, une fonction ne s'appelle pas comme ca !

il faut un "call" devant et des parentheses...

Code :

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

1
2
 
Call Sendmail(var1, var2...)

si tu avais pris le temps de lire la dite fonction, tu t'apercevrais, que le premiere argument attendu n'est pas l'expediteur mais le destinataire...etc...

**Poussy-Puce** · 13/06/2006, 16h27

Merci beaucoup pour les judicieux conseils, mais je suis en test, quand tout va fonctionner, je te promet, je vais faire une belle job bien propre qui va être très beau à regarder!!!

Pour le moment j'essaye de trouver d'où vient l'erreur, dès que ça sera fait, promis j'envoie ma version au propre!!!

**Immobilis** · 14/06/2006, 23h10

Envoyé par Gwenn

il faut un "call" devant

Pour une fonction, normalement, non. Pour une Sub oui.
Pour rappel, une fonction n'a d'intérêt que pour retourner une valeur. Sinon c'est une Sub.

A+

**tribaleur** · 15/06/2006, 10h12

Moi j'utilise (enfin c'est le code qu'il y avais quand je suis arriver en stage)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Set lemail = createobject("CDONTS.NewMail")
	lemail.From = request.form("email_demandeur")
	lemail.to = request.form("email_destinataire")
	lemail.cc = request.form("email_demandeur")   'je pense que c'est facultatif
	lemail.Subject = request.form("sujet")
	lemail.Body = corps 'variable qui à pris la valeur qu'on veu (du code html, valeur d'un request.form. Je pense que tu peut mettre ton reqeust directement
	lemail.BodyFormat = 0  'Alors là je sais pas pourquoi??? 
	lemail.MailFormat = 0   'Alors là je sais pas pourquoi??? 
	lemail.importance = 1   'Alors là je sais pas pourquoi??? 
 
	lemail.send
 
Set lemail= nothing

J'éspère que sa peut t'aider!!!

**Immobilis** · 15/06/2006, 16h38

J'utilise aussi CDONTS. Mais CDO et CDONTS sont deux objets différents. Il faut faire un choix...

error '8004020e' avec CDO.Message

ASP

Discussions similaires

Partager

Partager