Mailing List + JMail

Sur ma page formulaire l'utilisateur a le choix entre envoyer du texte ou du code html aux abonnés de la mailing list...

Sur ma page d'envoie, je récupère le titre du message, les données de l'expéditeur ainsi que la valeur d'un bouton radio pour savoir si le message est en HTML ou Texte...

Voici mon code :

<%
if not email.EOF and not email.BOF then
Dim mesg
mesg=request.form("Fmessage")
Dim bouton
bouton=request.form("Fradio")

Set JMail1= Server.CreateObject("JMail.SMTPMail")
JMail1.ServerAddress = "monsite.com:25"
' Paramètre de l'envoi mail
JMail1.Sender = request.form("Femail")
JMail1.SenderName = request.form("Fnom")
JMail1.Subject = request.form("Ftitre")

do while not email.eof
JMail1.AddRecipient email.fields("email")
' Envoi en mode texte ou HTML
if bouton="texte" then
JMail1.Body = mesg
else
JMail1.HTMLbody = mesg
end if
JMail1.Priority = 3
JMail1.Execute
JMail1.ClearRecipients()
email.movenext
loop

set JMail1=nothing
end if
%>

Malheureusement cela provoque l'erreur suivante :

jmail.SMTPMail error '8000ffff'

The message was undeliverable. All servers failed to receive the message

Qqn peut maider ? Merci

Snif !
J'ai exactement le même message !

qui peut nous aider ?

Sophos


-------------------------------
Réponse au message :
-------------------------------

Sur ma page formulaire l'utilisateur a le choix entre envoyer du texte ou du code html aux abonnés de la mailing list...

Sur ma page d'envoie, je récupère le titre du message, les données de l'expéditeur ainsi que la valeur d'un bouton radio pour savoir si le message est en HTML ou Texte...

Voici mon code :

<%
if not email.EOF and not email.BOF then
Dim mesg
mesg=request.form("Fmessage")
Dim bouton
bouton=request.form("Fradio")

Set JMail1= Server.CreateObject("JMail.SMTPMail")
JMail1.ServerAddress = "monsite.com:25"
' Paramètre de l'envoi mail
JMail1.Sender = request.form("Femail")
JMail1.SenderName = request.form("Fnom")
JMail1.Subject = request.form("Ftitre")

do while not email.eof
JMail1.AddRecipient email.fields("email")
' Envoi en mode texte ou HTML
if bouton="texte" then
JMail1.Body = mesg
else
JMail1.HTMLbody = mesg
end if
JMail1.Priority = 3
JMail1.Execute
JMail1.ClearRecipients()
email.movenext
loop

set JMail1=nothing
end if
%>

Malheureusement cela provoque l'erreur suivante :

jmail.SMTPMail error '8000ffff'

The message was undeliverable. All servers failed to receive the message

Qqn peut maider ? Merci

J'ai aussi le même message, mais c'est encore plus bizarre parce que je fais deux boucles avec le même code: la première me donne ce message d'erreur, et la seconde boucle qui a exactement le même code (et le même que vous d'ailleurs) fonctionne...



-------------------------------
Réponse au message :
-------------------------------

> Snif !
> J'ai exactement le même message !
>
> qui peut nous aider ?
>
> Sophos
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Sur ma page formulaire l'utilisateur a le choix entre envoyer du texte ou du code html aux abonnés de la mailing list...
>
> Sur ma page d'envoie, je récupère le titre du message, les données de l'expéditeur ainsi que la valeur d'un bouton radio pour savoir si le message est en HTML ou Texte...
>
> Voici mon code :
>
> <%
> if not email.EOF and not email.BOF then
> Dim mesg
> mesg=request.form("Fmessage")
> Dim bouton
> bouton=request.form("Fradio")
>
> Set JMail1= Server.CreateObject("JMail.SMTPMail")
> JMail1.ServerAddress = "monsite.com:25"
> ' Paramètre de l'envoi mail
> JMail1.Sender = request.form("Femail")
> JMail1.SenderName = request.form("Fnom")
> JMail1.Subject = request.form("Ftitre")
>
> do while not email.eof
> JMail1.AddRecipient email.fields("email")
> ' Envoi en mode texte ou HTML
> if bouton="texte" then
> JMail1.Body = mesg
> else
> JMail1.HTMLbody = mesg
> end if
> JMail1.Priority = 3
> JMail1.Execute
> JMail1.ClearRecipients()
> email.movenext
> loop
>
> set JMail1=nothing
> end if
> %>
>
> Malheureusement cela provoque l'erreur suivante :
>
> jmail.SMTPMail error '8000ffff'
>
> The message was undeliverable. All servers failed to receive the message
>
> Qqn peut maider ? Merci
>
>

ben oui c'est normal il faut que le sender (JMail.Sender) soit
un email appartenant au domaine du SMTP
par exemple si ton SMTP est "mail.domaine.com:25" alor le sedername doit être focément :
jmail.sender = "???@domaine.com"


ptit'pois