SendMail Function.

Function SendMail(SenderEmail, SenderName, RecipEmail, CCEmail, Subject, Body, IsHTMLMsg, FilePath, ErrorMSG)
If Len(SenderEmail) = 0 OR Len(SenderName) = 0 Or Len(Subject) = 0 Or Len(Body) = 0 Then SendMail = False: Exit Function
If IsArray(RecipEmail) = False Then
	If Len(RecipEmail) = 0 Then SendMail = False: Exit Function
Else
	If Len(RecipEmail(0)) = 0 Then SendMail = False: Exit Function
End If

Dim m_iCnt
Dim objMail: Set objMail = Server.CreateObject("Persits.MailSender")
	objMail.Host = cStr(g_sSMTP_SERVER)
	
	objMail.Reset	'Start new mail message
	objMail.From = SenderEmail
	objMail.FromName = SenderName
	
	If IsArray(RecipEmail) Then
		For m_iCnt = 0 To UBound(RecipEmail)
			objMail.AddAddress RecipEmail(m_iCnt)
		Next
	Else
		objMail.AddAddress RecipEmail
	End If
	
	If IsArray(CCEmail) Then
		For m_iCnt = 0 To UBound(CCEmail)
			If Len(CCEmail(m_iCnt)) > 0 Then objMail.AddCC CCEmail(m_iCnt)
		Next
	Else
		If Len(CCEmail) > 0 Then objMail.AddCC CCEmail
	End If
	
	objMail.Subject = Subject
	objMail.Body = Body & ""
	objMail.IsHTML = IsHTMLMsg
	
	If Len(FilePath) > 0 Then
		Dim objFS: Set objFS = Server.CreateObject("Scripting.FileSystemObject")
		Dim blnFS: blnFS = objFS.FileExists(FilePath)
		Set objFS = Nothing
		
		If blnFS Then objMail.AddAttachment FilePath
	End If

	objMail.Send
	If Err <> 0 Then
		ErrorMsg = "Error! " & Err.Number & ". " & Err.Description
		SendMail = False
	Else
		SendMail = True
	End If
Set objMail = Nothing
End Function

Dim bMailSent, sError
    bMailSent = SendMail("dsetzer@27seconds.com", _
        "Douglas Setzer", _
        "sales@27seconds.com", _
        "", _
        "Test Subject", _
        "Test Message", _
        False, _
        "", _
        sError)