Somebody can help me, I have this message when I send a newletter to a group.
jmail.SMTPMail error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/website/EMAILING/SendMail.asp, line 99
Before it worked out but since two days I have that sort of error
Some tips??
thanks a lot
Initialisation de l'objet JMAIL
Set JMail = Server.CreateObject("JMail.SMTPMail")
' Addresse Server SMTP
JMail.ServerAddress = "ipMailserver:25"
' Sender adress
JMail.Sender = "contact@domain.com"
' subjet
JMail.Subject = request.form("Subject")
' recipient address
Dim TablDest, indice
TablDest = Split(Request.Form("Destinataires"),";")
For indice=0 To (ubound(TablDest)-1)
If ValidEmail(TablDest(indice))= True Then
JMail.AddRecipientBcc TablDest(indice)
End If
Next
Jmail.AddRecipient "contact@domain.com"
'codage type html
JMail.ContentType = "text/html"
'définition du corp du texte
Dim Ct
Ct = "<html>"
ct = ct & "<body>"
Ct = ct & "<font face=arial size=2>" & Request.Form("Texte") & "<BR><BR>--<BR>text message <A HREF='mailto:" & request.form("mail") & "'>" & request.form("Author") & "</A> From site <A HREF=' Ct = ct & "</body>"
ct = ct & "</html>"
JMail.Body = ct
'Definition message
JMail.Priority = 3
'Send message
JMail.Execute
'destroy JMAIL object
set Jmail=nothing
error line 99 is
'Send message
JMail.Execute
jmail.SMTPMail error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/website/EMAILING/SendMail.asp, line 99
Before it worked out but since two days I have that sort of error
Some tips??
thanks a lot
Initialisation de l'objet JMAIL
Set JMail = Server.CreateObject("JMail.SMTPMail")
' Addresse Server SMTP
JMail.ServerAddress = "ipMailserver:25"
' Sender adress
JMail.Sender = "contact@domain.com"
' subjet
JMail.Subject = request.form("Subject")
' recipient address
Dim TablDest, indice
TablDest = Split(Request.Form("Destinataires"),";")
For indice=0 To (ubound(TablDest)-1)
If ValidEmail(TablDest(indice))= True Then
JMail.AddRecipientBcc TablDest(indice)
End If
Next
Jmail.AddRecipient "contact@domain.com"
'codage type html
JMail.ContentType = "text/html"
'définition du corp du texte
Dim Ct
Ct = "<html>"
ct = ct & "<body>"
Ct = ct & "<font face=arial size=2>" & Request.Form("Texte") & "<BR><BR>--<BR>text message <A HREF='mailto:" & request.form("mail") & "'>" & request.form("Author") & "</A> From site <A HREF=' Ct = ct & "</body>"
ct = ct & "</html>"
JMail.Body = ct
'Definition message
JMail.Priority = 3
'Send message
JMail.Execute
'destroy JMAIL object
set Jmail=nothing
error line 99 is
'Send message
JMail.Execute