objMail.From = "email@domain.com" ' change this to an email address objMail.To = "email@domain.com" ' change this to your email address objMail.Subject = "Subject" ' change this to your subject 'Set the e-mail body format (HTMLBody=HTML textbody="Plain")
Comments
Hope this helps...
<%
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 = "email@domain.com" ' change this to an email address
objMail.To = "email@domain.com" ' change this to your email address
objMail.Subject = "Subject" ' 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 & Replace(Request.Form("Details"), vbCrLf, "<br />") & "<br>" & "<br>"
objMail.HTMLBody = objMail.HTMLBody & "from " & "<strong>" & Request.form("Name") & "</strong>" & "<br>"
objMail.HTMLBody = objMail.HTMLBody & "<strong>" & "Email: " & "</strong>" & Request.Form("Email") & "<br>"
objMail.HTMLBody = objMail.HTMLBody & "Sent at " & Now() & "</font>"
objMail.Send()
Set objMail = Nothing
%>
You must me logged in to write a comment.