Hello
Suddenly for some reason this jmail message has stopped working.
It was working OK on my development machine and my remote server.
Its is still Ok on the remote server but creates an error on the development machine.
The error is:
jmail.Message (0x8000FFFF)
The message was undeliverable. All servers failed to receive the message
/domain/Thank You.asp, line 42
The jmail component is installed.
I am using asp vbs with winXP
MailObj.MailServerUserName
= "user@mydomain.co.uk"
I have tested this is working and have sent and received messages via Outlook.
Can anyone see why this code should not pass information from the previous page?
Many thanks
John
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd">
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Session("sess_name") = cStr(Request("name"))
Session("sess_myemail") = cStr(Request("myemail"))
Session("sess_description"
) = cStr(Request("description"
))
Session("sess_telno") = cStr(Request("telno"))
%>
<%
' wrapper so email will only be sent when submit button is pressed
'If CStr(Request.Form("Submit"
)) <> "" Then
Set MailObj = Server.CreateObject("JMail
.Message")
MailObj.Logging = true
MailObj.ISOEncodeHeaders = False
MailObj.From = "info@mydomain.co.uk"
MailObj.AddRecipient Request.Form("Myemail")
MailObj.AddRecipientBCC "info@test.co.uk"
'JMail.AddRecipient "info@mydomain.co.uk"
MailObj.Subject = " thank you for your enquiry"
MailObj.HTMLBody = "<html>"
MailObj.appendHTML "<head>"
MailObj.appendHTML "<meta http-equiv=""Content-Type"
" content=""text/html; charset=iso-8859-1"">"
MailObj.appendHTML "<title>Thank you for your message: </title>"
MailObj.appendHTML "<style> *,body,table,tr,td"
MailObj.appendHTML "{font-family:verdana;font
-size:10px
;}"
MailObj.appendHTML "</style>"
MailObj.appendHTML "</head>"
MailObj.appendHTML "<body>"
MailObj.appendHTML "Thank you " & cStr(Request("name") &" "&("for sending the following information from the enquiry form. We will be in touch with you quite soon.<p>"))
MailObj.appendHTML "Your email entered: " & cStr(Request("myemail") &" "& "<p>")
MailObj.appendHTML "Your Description entered: " & cStr(Request("description"
) &" "& "<p>")
MailObj.appendHTML "Your telno entered: " & cStr(Request("telno") &" "& "<p>")
'response.write cStr(Request("message"))
MailObj.appendHTML "</body>"
MailObj.appendHTML "</html>"
MailObj.MailServerUserName
= "user@mydomain.co.uk"
MailObj.MailServerPassWord
= "pword"
MailObj.Send("localhost")
if err.number <> 0 then
response.write err.number & " " & err.description & " "
end if
Set MailObj = Nothing
'End If
%>
