Forum Moderators: open
Hope someone can help
Cheers
[code]
<%
Option Explicit
Dim objMail
Dim strSubject
Dim strBody
strSubject = "Enquiry"
strBody = "Dear " & Request.QueryString("name") & "<br><br>Thank you for your correspondence, we have just received your enquiry and will reply soon.<br><br>Regards<br><br><b>Joe Bloggs</b><br>Bloggs are us Ltd"
' First create an instance of NewMail Object
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "joebloggs@joeybloggs.com"
objMail.To = request.querystring("email")
objMail.Value("Reply-To") = "joebloggs@joeybloggs.com"
objMail.bodyformat = 0
objMail.MailFormat = 0
objMail.Subject = strSubject
objMail.Body = strBody
objMail.Send
Set objMail = Nothing
%>
[/code]
code is not tested, but should work.
-Matt