<%
Function SendMail(Sender, Receiver, Subject, Message, Attachment, AsURL)
Dim oMail, HTML, NoSpam
On Error Resume Next
NoSpam = ""
NoSpam = NoSpam & "This communication is NOT SPAM. Nor is it unsolicited.
"
NoSpam = NoSpam & "You are receiving this mail because you registered at our site and your profile indicates that you wish to receive News and / or Updates.
"
NoSpam = NoSpam & "To stop receiving these updates then please login and clear the News / Updates flags.
"
NoSpam = NoSpam & "Should you feel that you are receiving this message in error then please email us and we will make the neccessary changes.
"
NoSpam = NoSpam & "
Please address all queries or problems to: "
NoSpam = NoSpam & "The Post Master @ "
NoSpam = NoSpam & "FailSafe Systems
"
If AsURL = True Then
Message = Replace(Message, vbCRLF, "
")
HTML = "" & vbCRLf
HTML = HTML & "" & vbCRLf
HTML = HTML & "" & vbCRLf
HTML = HTML & "" & vbCRLf
HTML = HTML & "" & vbCRLf
HTML = HTML & "FailSafe Auto Mailer" & vbCRLf
HTML = HTML & "" & vbCRLf
HTML = HTML & "" & vbCRLf
HTML = HTML & "" & vbCRLf
HTML = HTML & "" & vbCRLf
HTML = HTML & "![]()
FailSafe Systems" & vbCRLf
HTML = HTML & "" & vbCRLf
HTML = HTML & "" & vbCRLf
HTML = HTML & "
" & vbCRLf
HTML = HTML & "
" & vbCrLf
HTML = HTML & "" & vbCrLf
HTML = HTML & "Receiver: " & Receiver &",
" & vbCRLf
HTML = HTML & "
" & vbCRLf
HTML = HTML & "" & vbCrLf
HTML = HTML & Message & vbCrLf
HTML = HTML & "
" & vbCrLf
HTML = HTML & "" & vbCrLf
HTML = HTML & "Sender: " & Sender & "
" & vbCrLf
HTML = HTML & "Transmission: " & FormatDateTime(Date, 1) & " " & FormatDateTime(Time, 3) & vbCrLf
HTML = HTML & "
" & vbCrLf
HTML = HTML & "
" & vbCrLf
HTML = HTML & NoSpam & vbCrLf
HTML = HTML & "" & vbCrLf
HTML = HTML & "" & vbCrLf
Message = HTML
End If
'send the email via SMTP
Set oMail = Server.CreateObject("CDONTS.NewMail")
If Err.Number <> 0 Then
SendMail = False
Else
oMail.From = Sender
oMail.To = Receiver
oMail.Subject = Subject
oMail.BodyFormat = 0
oMail.MailFormat = 0
oMail.Body = Message
oMail.Send
If Err.Number <> 0 Then
SendMail = False
Else
SendMail = True
End If
End If
'Cleanup
Set oMail = Nothing
End Function
%>