If you're on a Windows server, this should work:
Function email_send (FromAddr, ToAddr, Subject, Message, MessageFormat, SiteURL)
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
With objNewMail
.To = ToAddr
.From = FromAddr
.Subject = Subject
.Body = Message
If LCase(MessageFormat) = "html" Then
.BodyFormat = 0 ' HTML
.MailFormat = 0 ' MIME format
.ContentBase = SiteURL
Else
.BodyFormat = 1 ' text message
.MailFormat = 1 ' text/plain format
End If
.Send
End With
Set objNewMail = nothing
End Function
-- This message may have been cut off and the rest will only be shown to members. To become a member, click here --