Отправка через Standard EXE (Form1) кнопкой на Е-майл

Option Explicit
Type MAPIRecip
    Reserved As Long
    RecipClass As Long
    Name As String
    Address As String
    EIDSize As Long
    EntryID As String
End Type
Type MAPIFileTag
    Reserved As Long
    TagLength As Long
    Tag() As Byte
    EncodingLength As Long
    Encoding() As Byte
    End Type
    Type MAPIFile
    Reserved As Long
    Flags As Long
    Position As Long
    PathName As String
    FileName As String
    FileType As Long
End Type
Type MAPIMessage
    Reserved As Long
    Subject As String
    NoteText As String
    MessageType As String
    DateReceived As String
    ConversationID As String
    Originator As Long
    Flags As Long
    RecipCount As Long
    Recipients As Long
    Files As Long
    FileCount As Long
End Type
Declare Function MAPILogoff Lib "MAPI32.DLL" (ByVal Session&, ByVal UIParam&, ByVal Flags&, _
ByVal Reserved&) As Long
Declare Function MAPILogon Lib "MAPI32.DLL" (ByVal UIParam&, ByVal User$, ByVal Password$, _
ByVal Flags&, ByVal Reserved&, Session&) As Long
Declare Function MAPISendMail Lib "MAPI32.DLL" (ByVal Session As Long, ByVal _
UIParam As Long, Message As MAPIMessage, ByVal Flags As Long, ByVal _
Reserved As Long) As Long

Private Const MAPI_E_NO_LIBRARY = 999
Private Const MAPI_E_INVALID_PARAMETER = 998
Private Const MAPI_ORIG = 0
Private Const MAPI_TO = 1
Private Const MAPI_CC = 2
Private Const MAPI_BCC = 3
Private Const MAPI_UNREAD = 1
Private Const MAPI_RECEIPT_REQUESTED = 2
Private Const MAPI_SENT = 4
Private Const MAPI_LOGON_UI = &H1
Private Const MAPI_NEW_SESSION = &H2
Private Const MAPI_DIALOG = &H8
Private Const MAPI_UNREAD_ONLY = &H20
Private Const MAPI_ENVELOPE_ONLY = &H40
Private Const MAPI_PEEK = &H80
Private Const MAPI_GUARANTEE_FIFO = &H100
Private Const MAPI_BODY_AS_FILE = &H200
Private Const MAPI_AB_NOMODIFY = &H400
Private Const MAPI_SUPPRESS_ATTAch = &H800
Private Const MAPI_FORCE_DOWNLOAD = &H1000
Private Const MAPI_OLE = &H1
Private Const MAPI_OLE_STATIC = &H2
Sub api_SendMail2(ByRef aRecips As Variant, ByVal strSubject As String, ByVal strMessage As String)
    Dim recips() As MAPIRecip
    Dim Message As MAPIMessage
    Dim Rtn As Long '-- return value For api calls
    Dim hMAPI As Long '-- session handle
   
    Dim z As Long
    ReDim recips(LBound(aRecips) To UBound(aRecips))
    For z = LBound(aRecips) To UBound(aRecips)
        With recips(z)
            .RecipClass = 1
            If InStr(aRecips(z), "@") < 0 Then
                .Address = StrConv(aRecips(z), vbFromUnicode)
            Else
                .Name = StrConv(aRecips(z), vbFromUnicode)
            End If
        End With
    Next z
   
    With Message
        .NoteText = strMessage
        .Subject = strSubject
        .Files = 0
        .RecipCount = UBound(recips) - LBound(aRecips) + 1
        .Recipients = VarPtr(recips(LBound(recips)))
    End With
       
    Rtn = MAPILogon(0, "", "", MAPI_LOGON_UI, 0, hMAPI)
    MAPISendMail hMAPI, 0, Message, MAPI_DIALOG, 0
    '-- logoff MAPI application
    Rtn = MAPILogoff(hMAPI, 0, 0, 0)
End Sub
Sub TestSendMail()
    Dim aRecips(0 To 0) As String
    aRecips(0) = "smtp:test@hotmail.com"
    api_SendMail2 "Посылаем через MAPI", "test", aRecips, "c:\test.pdf"
End Sub