<%@ Language=VBScript %>
<html>
<head>
</head>
<body>
<div align="right"><a href="newmail.html"><strong>Go Back</strong></a></div>
<%
Dim newMail
if Request.Form("ToAddress") <> "" and Request.Form("Subject")
<> "" and Request.Form("FromAddress") <> "" then
Set newMail = Server.CreateObject("CDONTS.NewMail")
newMail.Subject = Request.Form("Subject")
newMail.To = Request.Form("ToAddress")
if Request.Form("CcAddress") <>
"" then
newMail.Cc = Request.Form("CcAddress")
end if
if Request.Form("BccAddress") <>
"" then
newMail.Bcc = Request.Form("BccAddress")
end if
if Request.Form("Attach") <> ""
then
newMail.AttachFile Request.Form("Attach")
end if
newMail.BodyFormat = cint(Request.Form("BodyFormat"))
newMail.From = Request.Form("FromAddress")
newMail.Importance = cint(Request.Form("Importance"))
newMail.Body = Request.Form("Body")
newMail.Send
Set newMail = Nothing
response.write "<p> Mail sent successfully."
end if
%>
<p> </p>
<p align="right"> </p>
</body>
</html>
|