CDOSYS not sending email - code correct?!?!?

I have setup a form which I want sending using CDOSYS. It all appears to be working fine and the confirmation page shows no errors - however no email is sent and I do not know why! The code appears to be all correct!

This is the code:

[code]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
'First lets Dim all the variables we need - this is a comment
Dim MyName
Dim MyAddress
Dim MyPostcode
Dim MyTelephone
Dim MyEmail
Dim MyMessage

'Now lets get some values for the variables from the form
MyName = Request.Form("Name")
MyAddress = Request.Form("Address")
MyPostcode = Request.Form("Postcode")
MyTelephone = Request.Form("Telephone")
MyEmail = Request.Form("Email")
MyMessage = Request.Form("Message")

'Now lets build the body of the email from the data in the form
MyBody = "Name: "& MyName & vbcrlf
MyBody = MyBody & "Address: "& MyAddress & vbcrlf
MyBody = MyBody & "Postcode: "& MyPostcode & vbcrlf
MyBody = MyBody & "Telephone: "& MyTelephone & vbcrlf & vbcrlf
MyBody = MyBody & "Email: "& MyEmail & vbcrlf
MyBody = MyBody & "Message: "& MyMessage & vbcrlf

'Now lets put the variables and other information we need into the mailing script
Set MyMail = CreateObject("CDO.Message")
MyMail.From = "fama@fama.co.uk"
MyMail.To = "paul.worsnop@tesco.net"
MyMail.Subject = "Website Enquiry from Fama.co.uk"
MyMail.TextBody = MyBody
MyMail.Send
Set MyMail= nothing
Response.Write("Your e-mail has been sent")
%>

[/code]
dwaarchitectsAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

RimvisCommented:
Do you have Simple Mail Transport Protocol (SMTP) service installed on your WEB server? Is it running?
0
dwaarchitectsAuthor Commented:
It is stored externally on the web hosts servers i dont do it from a web server that I administer myself.
0
RimvisCommented:
a) Maybe you can ask web server administrator to check it?
b) You can send e-mail using specific SMTP server: http://msdn2.microsoft.com/en-us/library/ms527274.aspx
0
Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

dwaarchitectsAuthor Commented:
Have emailed them asking if can check things out at their end.
One other thing I would like to have setup but am unsure as to how to is I would like the user who fills the form in to recieve a confirmation email stating we have recieved their enquiry - is it a simple addition to the current code to do this?!?!
0
RimvisCommented:
I'm not sure what do you want to achieve. As I understand, you current code is sending user message to some fixed address. If you just want to send user a response e-mail right after message is sent, thinks are simple. Just create a function that sends message with supplied parameters, like



<%

Sub SendEmail(sFrom, sTo, sSubject, sBody)
   Set MyMail = CreateObject("CDO.Message")
   MyMail.From = sFrom
   MyMail.To = sTo
   MyMail.Subject = sSubject
   MyMail.TextBody = sBody
   MyMail.Send
   Set MyMail= nothing
End Sub


'First lets Dim all the variables we need - this is a comment
Dim MyName
Dim MyAddress
Dim MyPostcode
Dim MyTelephone
Dim MyEmail
Dim MyMessage

'Now lets get some values for the variables from the form
MyName = Request.Form("Name")
MyAddress = Request.Form("Address")
MyPostcode = Request.Form("Postcode")
MyTelephone = Request.Form("Telephone")
MyEmail = Request.Form("Email")
MyMessage = Request.Form("Message")

'Now lets build the body of the email from the data in the form
MyBody = "Name: "& MyName & vbcrlf
MyBody = MyBody & "Address: "& MyAddress & vbcrlf
MyBody = MyBody & "Postcode: "& MyPostcode & vbcrlf
MyBody = MyBody & "Telephone: "& MyTelephone & vbcrlf & vbcrlf
MyBody = MyBody & "Email: "& MyEmail & vbcrlf
MyBody = MyBody & "Message: "& MyMessage & vbcrlf

'send mail to Paul
SendEmail("fama@fama.co.uk", "paul.worsnop@tesco.net", "Website Enquiry from Fama.co.uk", MyBody)

'send response to user
SendEmail("fama@fama.co.uk", MyEmail , "Response from Fama.co.uk", "Your enquiry has been received")

%>

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
IceCodeCommented:
<%
'Send first email

'Now lets get some values for the variables from the form
MyName = Request.Form("Name")
MyAddress = Request.Form("Address")
MyPostcode = Request.Form("Postcode")
MyTelephone = Request.Form("Telephone")
MyEmail = Request.Form("Email")
MyMessage = Request.Form("Message")

'Now lets build the body of the email from the data in the form
MyBody = "Name: "& MyName & vbcrlf
MyBody = MyBody & "Address: "& MyAddress & vbcrlf
MyBody = MyBody & "Postcode: "& MyPostcode & vbcrlf
MyBody = MyBody & "Telephone: "& MyTelephone & vbcrlf & vbcrlf
MyBody = MyBody & "Email: "& MyEmail & vbcrlf
MyBody = MyBody & "Message: "& MyMessage & vbcrlf

'Now lets put the variables and other information we need into the mailing script
Set MyMail = Server.CreateObject("CDO.Message")
Set MyMailConfig = Server.CreateObject("CDO.configuration")
            MyMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.xxx.xxx.xxx"
            MyMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            MyMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            MyMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
            MyMailConfig.Fields.Update
Set MyMail.Configuration = MyMailConfig

MyMail.From = "fama@fama.co.uk"
MyMail.To = "paul.worsnop@tesco.net"
MyMail.Subject = "Website Enquiry from Fama.co.uk"
MyMail.TextBody = MyBody
MyMail.Send
Set MyMail= nothing
Response.Write("Your e-mail has been sent")

'Repeat above to send confimration...  Change to,subject,textbody
%>
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Scripting Languages

From novice to tech pro — start learning today.