| Anthony Jones 2008-03-22, 6:56 pm |
| "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
|