|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/mguerinweb/cgi-bin/ |
Upload File : |
<%
' ****************************************
' * DO NOT MODIFY THE FOLLOWING VALUES *
' * ServerObjects Inc. will NOT debug *
' * multi-part message problems! *
' * DO NOT MODIFY THE FOLLOWING VALUES *
' ****************************************
BOUNDARY = "----xxxxxx"
TEXT_HEADER = "--" & BOUNDARY & VBCrLf & "Content-Type: text/plain;" & VBCrLf & _
"Content-Transfer-Encoding: quoted-printable" & VBCrLf & VBCrLf
HTML_HEADER = "--" & BOUNDARY & VBCrLf & "Content-Type: text/html;" & VBCrLf & _
"Content-Transfer-Encoding: quoted-printable" & VBCrLf & VBCrLf
MP_FOOTER = "--" & BOUNDARY & "--" & VBCrLf
' ******************************************************
' * Set strTextBody to your message in plain text format
' ******************************************************
strTextBody = "Here's the information you requested in text format..." & VBCrLf & _
"Cordially," & VBCrLf & "The Management"
' ******************************************************
' * Set strHTMLBody to your message in HTML format
' ******************************************************
strHTMLBody = "<html><head><title>The Information You Requested</title></head>" & _
"<body bgcolor=""Black"" text=""Yellow"" link=""#0000FF"" vlink=""#800080"">" & _
"<font face=""Arial""><img src=""http://www.serverobjects.com/images/SOLogo.gif""><br><b>Here's the information you requested in HTML format..." & _
"</body></html>"
' ****************************************
' * DO NOT MODIFY THE FOLLOWING VALUE *
' ****************************************
strBody = TEXT_HEADER & strTextBody & VBCrLf & HTML_HEADER & strHTMLBody & VBCrLf & MP_FOOTER
' ****************************************
' * Code your Mailer Object creation and
' * setup here
' ****************************************
Set Mailer = Server.CreateObject ("smtpsvg.mailer")
Mailer.RemoteHost = "yourremotemailhost.com"
Mailer.AddRecipient "Someone", "[email protected]"
Mailer.FromName = "Your Company Name"
Mailer.FromAddress = "[email protected]"
Mailer.Subject = "MultiPart Message"
' ****************************************
' * DO NOT MODIFY THE FOLLOWING VALUES *
' ****************************************
Mailer.ContentType = "multipart/alternative; boundary=""" & BOUNDARY & """"
Mailer.BodyText = strBody
' ****************************************
' * Send the message
' * Code your testing for the success of
' * SendMail here
' ****************************************
if Mailer.SendMail then
Response.Write ("<br>Mail sent OK")
else
Response.Write ("<br>Mail failed. Error was " & Mailer.Response)
end if
Set Mailer = Nothing
%>