Private Sub Command1_Click()
    Dim ms As MAPISession
    Set ms = MAPISession1
    Dim mm As MAPIMessages
    Set mm = MAPIMessages1

    Dim AttachPath As String
    Dim AttachFileName As String
    Dim nSessionID As Long

    With ms
        .NewSession = True
        .DownLoadMail = False
        .SignOn
        nSessionID = .SessionID
    End With


    With mm
        .SessionID = nSessionID
        .Compose
        .RecipDisplayName = "DisplayNameTo"
        .RecipAddress = "EmailAddressTo@hotmail.com"
        .MsgSubject = "Subject"
        If AttachFileName <> "" And AttachPath <> "" Then
            .AttachmentPathName = AttachPath & AttachFileName
            .AttachmentName = AttachFileName
        End If
        .MsgNoteText = "EmailBody"
        .Send False
        
    End With

    ms.SignOff

End Sub