CDONTS problems?

[mhammond]

hey

Bit confused, been away for 6 months just got round to sorting out website and testing contact form and notice I no longer recieve any mail from it? the email it sends to (mark@mydomain.com) works (well it does when I send from hotmail but people always seem to be saying ' i sent you that..'?!) but more to the point, has any one any ideas why it doenst work any more? Heres the sending code bit

much apreciated, mark

<%


' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim question

' get posted data into variables
EmailFrom = Trim(Request.Form("EmailFrom"))
EmailTo = "mark@understatedart.co.uk"
Subject = Trim(Request.Form("Subject"))
question = Trim(Request.Form("question"))

' validation
Dim validationOK
validationOK=true
If (Trim(EmailFrom)="") Then validationOK=false
If (Trim(question)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("contact.asp?" & EmailFrom)

' prepare email body text
Dim Body
Body = Body & "question: " & question & VbCrLf

' send email
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send

' redirect to success page
Response.Redirect("thankyou.asp?" & EmailFrom)
%>

[Jacob]

You will need to set the from address as an address that exists on the mail server.

Regards,

Jacob

[mhammond]

cheers mate, so theres no way it can look like it came from their friend if you see what I mean?

regards

mark

[Jacob]

Nope, but if you want to you can set the reply to address to be whatever you want.

Regards,

Jacob

[mhammond]

seems that you can , this sends a message that appears appears to come from the person rather than my site, just borrowed it from a tutorial http://alistapart.com/articles/sendtofriend
BUT the message only goes to the address on the mail server, it appears to have come from whatever but won't go to whatever! Weird? I'll have another go tmoz.

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

   Dim objCDO
   Set objCDO = Server.CreateObject("CDONTS.NewMail") 


   objCDO.To = Request.Form("ToEmail")
   objCDO.From = Request.Form("FromEmail")


   objCDO.bcc = "mark@understatedart.co.uk"



   objCDO.Subject = "You must check out this site"



   objCDO.Body = strFrom & " has recommended that you check out " _
  & "this page at mark hammond photography:" _
  & VbCrLf & VbCrLf & Request.Form("URL") _
  & VbCrLf & VbCrLf & Request.Form("message") _
  & VbCrLf & VbCrLf & VbCrLf _
  & "This page was sent using our Send-to-Friend service." _
  & "Your email address has not been added to any list of any sort, " _
  & "and has not been recorded at our site."



   objCDO.Send
   Set objCDO = Nothing
   
   Response.Redirect("thankyou.asp?page="Request.Form("URL")"")
%>

[iang]

See a recent post in the New Features section from the admin team, which identifies which server to post from, and that the sender email must be one registered to the domain. This makes security sense as it prevents anyone getting into the system from creating Spam and getting the servers blacklisted. It's still possible to set a Reply To address. I've changed my site, and hope this will survive the updates due in the next week or so.

Ian.