Hi:
I just join this forum and am new to asp so I'm hoping someone can help me with this issue.
The email form works great, it's just one issue I can't figure out.
What I'm trying to figure out is, when the user fills his/her email in the Email field of the form and the client receives the feedback form, how to I get the email from the form to fill in the "To:" field when the client hits "Reply"?
Right now, if you look at the form code, the "To:" and "From:" field will both have sp@sp.com in them.
If Ron were to put ron@sp.com in the Email field of the form, how can I get it to fill into the "To:" field when I hit "Reply"
Any help/feedback or quick code would be really appreciated. It's the last piece I seem to need for this.
Thanks, and here is the code I have (using CDOSYS):
<<A href="mailto:%@LANGUAGE="VBSCRIPT">%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set objMail = Server.CreateObject("CDO.Message")
objMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objMail.From = "sp@sp.com" ' change this to an email address
objMail.To = "sp@sp.com" ' change this to your email address
objMail.Subject = "Contact Information" ' change this to your subject
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
objMail.HTMLBody = "<font size=2 face=verdana>"
objMail.HTMLBody = objMail.HTMLBody & "<b>First Name:</b> " & Request.Form("First Name")& "<br>"
objMail.HTMLBody = objMail.HTMLBody & "<b>Last Name:</b> " & Request.Form("Last Name")& "<br>"
objMail.HTMLBody = objMail.HTMLBody & "<b>Address:</b> " & Request.Form("Address") & "<br>"
objMail.HTMLBody = objMail.HTMLBody & "<b>City:</b> " & Request.Form("City") & "<br>"
objMail.HTMLBody = objMail.HTMLBody & "<b>State:</b> " & Request.Form("State") & "<br>"
objMail.HTMLBody = objMail.HTMLBody & "<b>Zip Code:</b> " & Request.Form("Zip Code") & "<br>"
objMail.HTMLBody = objMail.HTMLBody & "<b>Phone:</b> " & Request.Form("Phone") & "<br>"
objMail.HTMLBody = objMail.HTMLBody & "<b>Fax:</b> " & Request.Form("Fax") & "<br>"
objMail.HTMLBody = objMail.HTMLBody & "<b>Email:</b> " & Request.Form("Email") & "<br><br>"
objMail.HTMLBody = objMail.HTMLBody & "<b>Comments:</b> " & Request.Form("Comments") & "<br><br>"
objMail.HTMLBody = objMail.HTMLBody & "<b>Sent at</b> " & Now() & "</font>"
objMail.Send()
Set objMail = Nothing
%>