 |
Send mail to
Tenth Degree Real
Estate with
questions or comments about this web site.
Copyright © 2006 Tenth Degree Real Estate
Last modified:
12/15/06
|
 |
<%
'======================================
' Sends an email with CDONTS
function CDONTS_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
Dim Mailer
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.To = ToEmail
Mailer.From = FromEmail
Mailer.Subject = Subject
Mailer.Body = Message
Mailer.MailFormat = 1
Mailer.BodyFormat = 1
Mailer.Send
Set Mailer = Nothing
CDONTS_Mailer = true
Response.Redirect(mailRedirect)
end function
'======================================
' Sends an email with ASPMail
function ASPMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = MailerPath
Mailer.ContentType = "text/plain"
Mailer.FromName = FromName
Mailer.FromAddress = FromEmail
Mailer.AddRecipient ToName, ToEmail
Mailer.Subject = Subject
Mailer.BodyText = Message
Mailer.SendMail
Set Mailer = Nothing
ASPMail_Mailer = true
Response.Redirect(mailRedirect)
end function
'======================================
' Sends an email with ASPQMail
function ASPQMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
on error resume next
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = MailerPath
Mailer.ContentType = "test/plain"
Mailer.FromName = FromName
Mailer.FromAddress = FromEmail
Mailer.AddRecipient ToName, ToEmail
Mailer.Subject = Subject
Mailer.BodyText = Message
Mailer.QMessage = true
Mailer.SendMail
Set Mailer = Nothing
ASPQMail_Mailer = true
Response.Redirect(mailRedirect)
end function
'======================================
' Sends an email with SASmtpMail
function SASmtpMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
on error resume next
Dim Mailer
Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")
Mailer.RemoteHost = MailerPath
Mailer.contenttype = "text/plain"
Mailer.AddRecipient ToName, ToEmail
Mailer.FromName = FromName
Mailer.FromAddress = FromEmail
Mailer.Subject = Subject
Mailer.BodyText = Message
Mailer.SendMail
Set Mailer = Nothing
SASmtpMail_Mailer = true
Response.Redirect(mailRedirect)
end function
'======================================
' Sends an email with JMail
function JMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
on error resume next
Dim Mailer
Set Mailer = Server.CreateObject("JMail.SMTPMail")
Mailer.ServerAddress = MailerPath & ":"
Mailer.contenttype = "text/plain"
Mailer.AddRecipient ToEmail
Mailer.Sender = FromEmail
Mailer.Subject = Subject
Mailer.Body = Message
Mailer.Execute
Set Mailer = Nothing
JMail_Mailer = true
Response.Redirect(mailRedirect)
end function
'======================================
' Sends an email with ASPEmail
function ASPEmail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
on error resume next
Dim Mailer
Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.Host = MailerPath
Mailer.From = FromEmail
Mailer.FromName = FromName
Mailer.AddAddress ToName, ToEmail
Mailer.Subject = Subject
Mailer.Body = Message
Mailer.Send
Set Mailer = Nothing
ASPEmail_Mailer = true
Response.Redirect(mailRedirect)
end function
%>
