Public Function send_mail(sendto As String, subject As String, text As String, Attachment As String)
On Error GoTo ErrHandler
    
    Dim flgSingOn As Boolean
    With MAPISession1
        .DownLoadMail = False
        .NewSession = True
        .LogonUI = True
        .SignOn
        flgSingOn = True
        .NewSession = True
        MAPIMessages1.SessionID = .SessionID
   End With
    
    With MAPIMessages1
        .Compose
        .RecipAddress = sendto
        .AddressResolveUI = True
        .ResolveName
        
        .MsgSubject = subject
        
        .MsgNoteText = text
        
        .AttachmentPathName = Attachment
        
        .Send False
        
    End With
    
    If flgSingOn Then MAPISession1.SignOff
    
    send_mail = True

    Exit Function
ErrHandler:
    MsgBox (Err.Description)
End Function