Asp > Components

ASP Mail Interface

ASP Mail Interface

<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER>

' requires: _const, _err

Function GetMailObject
Dim mo

On Error Resume Next

PushLocalError

GetMailObject = Null

Set mo = Server.CreateObject("SMTPsvg.Mailer")
If CheckPopError Then
Exit Function
End If

mo.CharSet = 2
mo.ContentType = "text/html"

mo.FromName = fromname
mo.FromAddress = fromaddress
mo.Organization = company

mo.Priority = 3
mo.RemoteHost = mailhost

Set GetMailObject = mo

PopError
End Function

Function SendMailEx(SendName, SendAddr, Subject, Body)
Dim mo, i, result

On Error Resume Next

PushLocalError

If (root = "Local") Then
SendMailEx = True
PopError
Exit Function
End If

SendMailEx = False

Set mo = GetMailObject
If CheckError Or IsNull(mo) Then
PopError
Exit Function
End If

' mo.SMTPLog = uploadroot & "log.txt"

mo.Subject = Subject
mo.BodyText = Body
If IsArray(SendName) And IsArray(SendAddr) Then
For i = LBound(SendName) To UBound(SendName)
mo.AddBCC SendName(i), SendAddr(i)
Next
Else
mo.AddRecipient SendName, SendAddr
End If

result = mo.SendMail
If CheckPopError Then
Exit Function
End If

SendMailEx = result

PopError
End Function

Function SendMail(SendTo, Subject, Body)
SendMail = SendMailEx(SendTo, SendTo, Subject, Body)
End Function

Function SendMailFromFile(SendTo, Subject, FileName)
Dim mo, i, result

On Error Resume Next

PushLocalError

If (root = "Local") Then
SendMailFromFile = True
PopError
Exit Function
End If

SendMailFromFile = False

Set mo = GetMailObject
If CheckError Or IsNull(mo) Then
PopError
Exit Function
End If

' mo.SMTPLog = uploadroot & "log.txt"

mo.Subject = Subject
If IsArray(SendTo) Then
For i = LBound(SendTo) To UBound(SendTo)
mo.AddBCC SendTo(i), SendTo(i)
Next
Else
mo.AddRecipient SendTo, SendTo
End If

result = mo.GetBodyTextFromFile(FileName, False, False)
If CheckPopError Then
Exit Function
End If

If result Then
result = mo.SendMail
If CheckPopError Then
Exit Function
End If
End If

SendMailFromFile = result

PopError
End Function

</SCRIPT>