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