J
John Davis
What is the **MOST** obvious reason why will this will fail (it's not syntax
or anything specific to the object)?
Function Mail(MailerProgram, Message, Subject, Format, FromEmail, ToEmail,
ReplyTo, FromName, ToName, MailerPath, BCCEmail, Attachement)
Set Mailer = Server.CreateObject("Persits.MailSender")
if NOT isObject(Mailer) Then
Mail = false
Exit function
End if
Mailer.Host = MailerPath
Mailer.Port = 80
Mailer.From = FromEmail
Mailer.FromName = FromName
Mailer.AddReplyTo ReplyTo
Mailer.AddAddress ToEmail
Mailer.Subject = Subject
Mailer.Body = Message
If Format="HTML" Then
Mailer.IsHTML = True
Else
Mailer.IsHTML = False
End If
If IsArray(Attachement) Then
For Each AttFile In Attachement
if(AttFile <> "") Then Mailer.AddAttachment AttFile
Next
Else
If Attachement<>"" Then
Mailer.AddAttachment Attachement
End If
End If
On Error Resume Next
Mailer.Send
or anything specific to the object)?
Function Mail(MailerProgram, Message, Subject, Format, FromEmail, ToEmail,
ReplyTo, FromName, ToName, MailerPath, BCCEmail, Attachement)
Set Mailer = Server.CreateObject("Persits.MailSender")
if NOT isObject(Mailer) Then
Mail = false
Exit function
End if
Mailer.Host = MailerPath
Mailer.Port = 80
Mailer.From = FromEmail
Mailer.FromName = FromName
Mailer.AddReplyTo ReplyTo
Mailer.AddAddress ToEmail
Mailer.Subject = Subject
Mailer.Body = Message
If Format="HTML" Then
Mailer.IsHTML = True
Else
Mailer.IsHTML = False
End If
If IsArray(Attachement) Then
For Each AttFile In Attachement
if(AttFile <> "") Then Mailer.AddAttachment AttFile
Next
Else
If Attachement<>"" Then
Mailer.AddAttachment Attachement
End If
End If
On Error Resume Next
Mailer.Send