Public Const BM_CLICK = &HF5
Public Const GW_HWNDNEXT =  2 
Public Const WM_SETFOCUS = &H7

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwprocessid As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Public Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Sub SendFile(Whom As String, Path As String, Note As String)
  Dim Outlook As Object, Message As Object, lHandle As Long, lThreadId As Long
  Set Outlook = CreateObject("Outlook.Application")
  Set Message = Outlook.CreateItem(olMailItem)
  Message.To = Whom
  Message.Attachments.Add Path
  Message.Subject = Note
  lHandle = CreateThread(ByVal  0 &, ByVal  0 &, AddressOf Execute, ByVal  0 &, ByVal  0 &, lThreadId)
  Message.Send
  Call TerminateThread(lHandle, ByVal  0 &)
  Call CloseHandle(lHandle)
  Set Message = Nothing
  Outlook.Quit
  Set Outlook = Nothing
End Sub

Public Sub Execute()
  Dim hwnd As Long, hBut As Long, bKey As Boolean, G As Long
  Do
    hwnd = GetHandleWindow("Microsoft Office Outlook", "#32770")
    DoEvents
  Loop Until hwnd >  0 
  Do
    'hBut = FindWindowEx(hwnd, ByVal 0&, "Button", "&Справка")
    hBut = FindWindowEx(hwnd, ByVal  0 &, "Button", "Да")
    DoEvents
  Loop Until hBut >  0 
  Do
    bKey = IsWindowEnabled(hBut)
    DoEvents
  Loop Until bKey
  Call SendMessage(hwnd, WM_SETFOCUS,  0 &,  0 &)
  Call SendMessage(hBut, BM_CLICK,  0 &,  0 &)
End Sub

Public Function GetHandleWindow(fNaim As String, fClass As String, Optional fWnd As Long =  0 ) As Long
  Dim hwnd As Long, pWnd As Long, sNaim As String, sClass As String
  hwnd = FindWindow(vbNullString, vbNullString)
  Do While hwnd <>  0 
    sNaim = String( 255 , vbNullChar)
    Call GetWindowText(hwnd, sNaim, Len(sNaim))
    sClass = String( 255 , vbNullChar)
    Call GetClassName(hwnd, sClass, Len(sClass))
    If fWnd =  0  Then pWnd =  0  Else Call GetWindowThreadProcessId(hwnd, pWnd)
    If Left(sNaim, InStr(sNaim, vbNullChar) -  1 ) = fNaim And Left(sClass, InStr(sClass, vbNullChar) -  1 ) = fClass And pWnd = fWnd Then Exit Do
    hwnd = GetWindow(hwnd, GW_HWNDNEXT)
  Loop
  GetHandleWindow = hwnd
End Function