Public Function Send_Mail(sSendTo As String, sSubject As String, _    sText As String) As Boolean      
On Error GoTo ErrHandler        
With MAPISession        
    .DownLoadMail = False        
    .LogonUI = True        
    .SignOn        
    .NewSession = True        
    MAPIMessages.SessionID = .SessionID    
End With        
With MAPIMessages        
    .Compose        
    .RecipAddress = sSendTo        
    .AddressResolveUI = True        
    .ResolveName        
    .MsgSubject = sSubject        
    .MsgNoteText = sText        
    .Send False    
End With        
Send_Mail = True 
ErrHandler:    
If Err.Number <> 0 Then        
    ErrorTrap Err.Number, Err.Description, Me.Name, "Send_Mail"        
    Exit Function    
End If
End Function