how can i change CDONTS values to CDOSYS?

TheMSsForum.com: The Microsoft Software Forum

I have the follwing code and cannot receive e mails sent from my contact
form. Please advise how can i make it work with CDOSYS. Thank you.

<%
form_from = "info@nnn.com"
form_to = "info@nnn.com"
form_cc = Request.Form("mail_cc")
form_bcc = Request.Form("mail_bcc")
form_subject = "Reality Form Submission"
form_importance = 1

FOR x = 1 TO Request.Form.Count
IF Request.Form.Key(x) = "mail_from" OR Request.Form.Key(x) = "mail_to" OR
Request.Form.Key(x) = "mail_cc" OR Request.Form.Key(x) = "mail_bcc" OR
Request.Form.Key(x) = "mail_subject" OR Request.Form.Key(x) =
"mail_importance" OR Request.Form.Key(x) = "mail_redirect" OR
Request.Form.Key(x) = "mail_send" OR Request.Form.Key(x) = "Submit" THEN
form_variables = form_variables
ELSE
form_variables = form_variables & Request.Form.Key(x) & ": " & vbcrlf &
Request.Form.Item(x) & vbcrlf & vbcrlf
END IF
NEXT

DIM body_text
body_text = vbcrlf & "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbcrlf
body_text = body_text & form_subject & vbcrlf
body_text = body_text & "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbcrlf
& vbcrlf
body_text = body_text & form_variables
body_text = body_text & "Sent from: " & vbcrlf &
Request.ServerVariables("HTTP_REFERER") & vbcrlf & vbcrlf
body_text = body_text & "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbcrlf


<!--SET objMail = Server.CreateObject("CDONTS.NewMail")-->

SET objMail = CreateObject("CDO.Message")

<!--objMail.BodyFormat = 1-->
<!--objMail.MailFormat = 1-->

objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="127.0.0.1"

objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
objMail.Configuration.Fields.Update


objMail.From = form_from
objMail.To = form_to
objMail.CC = form_cc
objMail.BCC = form_bcc
objMail.Subject = form_subject
<!--objMail.Importance = form_importance-->
objMail.TextBody = body_text
objMail.Send
SET objMail = NOTHING

Response.Write("")
%>
Top

Re: how can i change CDONTS values to CDOSYS? by Anthony

Anthony
Sat Mar 22 16:23:51 CDT 2008

"beyaz" <beyaz@discussions.microsoft.com> wrote in message
news:7DDC512E-53A6-4BCD-BA1B-1B55AD165330@microsoft.com...
> I have the follwing code and cannot receive e mails sent from my contact
> form. Please advise how can i make it work with CDOSYS. Thank you.
>
> <%
> form_from = "info@nnn.com"
> form_to = "info@nnn.com"
> form_cc = Request.Form("mail_cc")
> form_bcc = Request.Form("mail_bcc")
> form_subject = "Reality Form Submission"
> form_importance = 1
>
> FOR x = 1 TO Request.Form.Count
> IF Request.Form.Key(x) = "mail_from" OR Request.Form.Key(x) = "mail_to" OR
> Request.Form.Key(x) = "mail_cc" OR Request.Form.Key(x) = "mail_bcc" OR
> Request.Form.Key(x) = "mail_subject" OR Request.Form.Key(x) =
> "mail_importance" OR Request.Form.Key(x) = "mail_redirect" OR
> Request.Form.Key(x) = "mail_send" OR Request.Form.Key(x) = "Submit" THEN
> form_variables = form_variables
> ELSE
> form_variables = form_variables & Request.Form.Key(x) & ": " & vbcrlf &
> Request.Form.Item(x) & vbcrlf & vbcrlf
> END IF
> NEXT
>
> DIM body_text
> body_text = vbcrlf & "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbcrlf
> body_text = body_text & form_subject & vbcrlf
> body_text = body_text & "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" &
vbcrlf
> & vbcrlf
> body_text = body_text & form_variables
> body_text = body_text & "Sent from: " & vbcrlf &
> Request.ServerVariables("HTTP_REFERER") & vbcrlf & vbcrlf
> body_text = body_text & "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" &
vbcrlf
>
>
> <!--SET objMail = Server.CreateObject("CDONTS.NewMail")-->
>
> SET objMail = CreateObject("CDO.Message")
>
> <!--objMail.BodyFormat = 1-->
> <!--objMail.MailFormat = 1-->
>
> objMail.Configuration.Fields.Item _
> ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
>
> objMail.Configuration.Fields.Item _
> ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
> ="127.0.0.1"
>
> objMail.Configuration.Fields.Item _
> ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
> =25
> objMail.Configuration.Fields.Update
>
>
> objMail.From = form_from
> objMail.To = form_to
> objMail.CC = form_cc
> objMail.BCC = form_bcc
> objMail.Subject = form_subject
> <!--objMail.Importance = form_importance-->
> objMail.TextBody = body_text
> objMail.Send
> SET objMail = NOTHING
>
> Response.Write("")
> %>
>


The code looks a little weird but should work.

What error are you getting?
Are there errors in the event log on your system?
Do the emails end up in the bad mail folder or just sit in the queue of your
SMTP server?
Have you checked that your SMTP allows relay from 127.0.0.1?



--
Anthony Jones - MVP ASP/ASP.NET


Top