Converting MPS.SendMail to ASPMail
	What's New in IT IT Consulting Phones/VoIP Internet Security About Us Home

	Web Site Hosting	Web Design	Broadband/Access	E-Mail Solutions	Accept Credit Cards	Hosting Support

The function that follows will allow you to quickly replace MPS.SendMail in all of your ASP scripts.

To use the function, first place it at the begining of any scripts that currently use MPS.Sendmail. Once you've done that, remove any lines reading 'Set something = Sever.CreateObject ("MPS.SendMail")', then replace all occurances 'something.SendMail' with 'sendMessage'.

For example, this:

 something = Server.CreateObject("MPS.SendMail")
 errorCode = something.SendMail ("From", "To", "Subject", "Body")

would become this:

 errorCode = sendMessage ("From", "To", "Subject", "Body")

---

<%
Function sendMessage (mailFrom, mailTo, mailSubject, mailBody)
    ' sendMessage takes the same parameters as MPS.SendMail
    ' response = sendMessage (From, To, Subject, Body)
    Set mailer = Server.CreateObject ("SMTPsvg.Mailer")

    mailer.FromAddress = mailFrom
    mailer.AddRecipient "", mailTo
    mailer.Subject = mailSubject
    mailer.BodyText = mailBody

    mailer.RemoteHost = "mail-out.rapidsite.net"

    If mailer.Sendmail then               ' Send message
        sendMessage = True                ' E-mail was sent ok, return True
    else                                  ' Send Failure   
        sendMessage = mailer.Response     ' Return error message
    end if

end function
%>

Please note: the information on this page applies to ITS web hosting plans. It may or may not apply to other environments. If you are looking for a feature described here, or better support from your hosting provider, please consider hosting your site with ITS!

Copyright © 1996-2025, Integrated Technical Solutions, Inc., all rights reserved. See Terms/Legal for trademarks, copyright, and terms of use.