Declare Function SendBlat Lib "blat.dll" Alias "Send" (ByVal sCmd As String) As Integer
'----------------------------------------------------------------------------------------------
Public Function fn_Emailer_wBlat( _
    sFrom As String, _
    sTo As String, _
    sSubject As String, _
    sTextBody As String, _
    sPath2Attachment As String, _
    sServer As String, _
    bTestMode As Boolean) As Long
        
    On Error GoTo ErrorHandler
    
    Dim iRtn As Long
    Dim sMessage As String
    Dim s4Error As String
    
        '--- Sample Inputs --------------------
        '    sTo = "Me@cox.net"
        '    sFrom = "Me@cox.net"
        '    sSubject = "Test " & Now
        '    sTextBody = "Sent " & Now
        '    sServer = "... IP Address ..."
        '    sPath2Attachment = "C:\Documents and Settings\BGH\My Documents\Test.txt"
    
    '--- Required Fields
        sMessage = _
            " -to " & sTo & _
            " -f " & sFrom & _
            " -cc " & sFrom & _
            " -server " & sServer
            
        s4Error = _
            " -to " & sTo & vbCrLf & _
            " -f " & sFrom & vbCrLf & _
            " -cc " & sFrom & vbCrLf & _
            " -server " & sServer & vbCrLf
            
    '--- Text Body
        If Len(sTextBody) > 0 Then _
            sMessage = sMessage & " -body " & Chr(34) & sTextBody & Chr(34)
            s4Error = s4Error & " -body " & Chr(34) & sTextBody & Chr(34) & vbCrLf
    '--- Subject
        If Len(sSubject) > 0 Then _
            sMessage = sMessage & " -subject " & Chr(34) & sSubject & Chr(34)
            s4Error = s4Error & " -subject " & Chr(34) & sSubject & Chr(34) & vbCrLf
    '--- Attachment
        If Len(sPath2Attachment) > 0 Then _
            sMessage = sMessage & " -attach " & Chr(34) & sPath2Attachment & Chr(34)
            s4Error = s4Error & " -attach " & Chr(34) & sPath2Attachment & Chr(34) & vbCrLf
    '--- Test Mode allows viewing blat contruct only in immediate window
        If bTestMode Then
            iRtn = 98
        Else
            iRtn = SendBlat(sMessage)
        End If
    
    '--- Check for error
        If iRtn > 0 Then
            GoTo ErrorHandler
        End If
    
ExitHandler:
    fn_Emailer_wBlat = 0
    Exit Function
    
ErrorHandler:
    If iRtn = 98 Then
        MsgBox _
            "-------- Test Mode -----------------------------------------------------" & vbCrLf & _
            s4Error, vbExclamation, "Blat.sb_Emailer TEST OUTPUT"
    ElseIf iRtn > 0 Then
        MsgBox _
            "Blat Error Code: " & iRtn & vbCrLf & _
            s4Error, vbExclamation, "Blat.sb_Emailer Error"
    Else
        MsgBox _
            Err.Number & vbCrLf & _
            Err.Description & vbCrLf & _
            "Blat Error Code: " & iRtn & vbCrLf & _
            s4Error, vbExclamation, "Blat VB Error"
        iRtn = 99
    End If
    fn_Emailer_wBlat = iRtn
End Function
'----------------------------------------------------------------------------------------------