<% Option Explicit %> <% 'Declare variables Dim sMsg Dim sTo Dim sFrom Dim sSubject Dim sTextBody Dim sHTMLBody 'Get data from previous page sTo = Request("sTo") sFrom = Request("sFrom") sSubject = Request("sSubject") sTextBody = Request("sTextBody") sHTMLBody = Request("sHTMLBody") 'Only run this if it's not the first time If Request.Form("Submit") <> "" Then Dim objMail 'Create the mail object Set objMail = Server.CreateObject("CDO.Message") 'Set key properties objMail.From = sFrom objMail.To = sTo objMail.Subject= sSubject objMail.TextBody = sTextBody objMail.HTMLBody = sHTMLBody 'Send the email objMail.Send 'Set sMsg which will be used later sMsg = "Your message was sent to: " & sTo 'Clean-up Set objMail = Nothing End If %> SendMail
" method="post">
Send To:
Send From:
Message Subject:
Message Text Body:
Message HTML Body: