Private Declare PtrSafe 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
Private Declare PtrSafe Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Sub AA()
  Dim hThread As PtrLong, iThread As Long
  hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf PressKey, ByVal 0&, ByVal 0&, iThread)
  .............................................
  Call TerminateThread(hThread, ByVal 0&)
  Call CloseHandle(hThread)
End Sub

Public Sub PressKey()
  Dim iSec As Long, hwnd As Long, hBut As Long, bKey As Boolean, iThread As Long, iDialog As Long
  Dim I As Integer, SetInput(0 To 1) As KINDINPUT, KeyInput As KEYBDINPUT, F As Long
  MsgBox 'Button Click'
End Sub

Private Const olMailItem = 0
Private Const BM_GETSTATE = &HF2
Private Const BM_SETSTATE = &HF3
Private Const VK_RETURN = &HD
Private Const INPUT_KEYBOARD = 1
Private Const KEYEVENTF_KEYUP = &H2

Public Type KINDINPUT
  dwType As Long
  xi(0 To 23) As Byte
End Type

Public Type KEYBDINPUT
  wVk As Integer
  wScan As Integer
  dwFlags As Long
  Time As Long
  dwExtraInfo As Long
End Type

Private Declare PtrSafe Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As LongPtr, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As LongPtr
Private Declare PtrSafe Function TerminateThread Lib "kernel32" (ByVal hThread As LongPtr, ByVal dwExitCode As Long) As Long
Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As LongPtr) As Long


Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare PtrSafe Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare PtrSafe Function AttachThreadInput Lib "user32" (ByVal idAttach As Long, ByVal idAttachTo As Long, ByVal fAttach As Long) As Long
Private Declare PtrSafe Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare PtrSafe Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare PtrSafe Function SendInput Lib "user32.dll" (ByVal nInputs As Long, pInputs As KINDINPUT, ByVal cbSize As Long) As Long
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Sub PressKey()
  Dim iSec As Long, hwnd As Long, hBut As Long, bKey As Boolean, iThread As Long, iDialog As Long
  Dim I As Integer, SetInput(0 To 1) As KINDINPUT, KeyInput As KEYBDINPUT, F As Long
  For I = 0 To 1
    KeyInput.wVk = VK_RETURN
    KeyInput.wScan = 0
    KeyInput.dwFlags = IIf(I = 0, 0, KEYEVENTF_KEYUP)
    KeyInput.Time = 0
    KeyInput.dwExtraInfo = 0
    SetInput(I).dwType = INPUT_KEYBOARD
    Call CopyMemory(SetInput(I).xi(0), KeyInput, Len(KeyInput))
  Next I
  iSec = Timer
  Do
    DoEvents
  Loop Until Timer > iSec + 6
  Do
    hwnd = FindWindow("#32770", "Microsoft Outlook")
    DoEvents
  Loop Until hwnd > 0
  Do
    hBut = FindWindowEx(hwnd, ByVal 0&, "Button", "Разрешить")
    DoEvents
  Loop Until hBut > 0
  Do
    bKey = IsWindowEnabled(hBut)
    DoEvents
  Loop Until bKey
  iThread = GetCurrentThreadId()
  iDialog = GetWindowThreadProcessId(hwnd, 0&)
  Call AttachThreadInput(iThread, iDialog, True)
  Call SetActiveWindow(hwnd)
  Call SetFocusAPI(hBut)
  Call SendMessage(hBut, BM_SETSTATE, True, ByVal 0&)
  Call SendInput(2, SetInput(0), Len(SetInput(0)))
  Call AttachThreadInput(iThread, iDialog, False)
End Sub

Sub SendFileOutlook(Optional Whom As String = "NULL", Optional Path As String = "NULL", Optional Tema As String = "NULL", Optional Note As String = "NULL")
  Dim Outlook As Object, RunLook As Boolean, hThread As LongPtr, iThread As Long, One As Variant
  If Tema <> "" Then
    If Not IsNull(Whom) Then
      On Error Resume Next
      Set Outlook = GetObject(, "Outlook.Application")
      If Err.Number <> 0 Then
        Set Outlook = CreateObject("Outlook.Application")
        RunLook = True
        Err.Clear
      End If
      With Outlook.CreateItem(olMailItem)
        .To = Whom
        .Subject = Tema
        .Body = Note
        For Each One In Split(Path, ";")
          .Attachments.Add CStr(One), , 1, " "
        Next
   
        hThread = CreateThread(ByVal 0&, ByVal 0&, Val(AddressOf PressKey), ByVal 0&, ByVal 0&, iThread)
        .Send
        
        Call TerminateThread(hThread, ByVal 0&)
        Call CloseHandle(hThread)
      
      End With
      If RunLook Then
        Outlook.Quit
        Set Outlook = Nothing
      End If
    End If
  End If
End Sub

Public Sub PressKey()
  Dim iSec As Long, hwnd As Long, hBut As Long, bKey As Boolean, iThread As Long, iDialog As Long
  Dim I As Integer, SetInput(0 To 1) As KINDINPUT, KeyInput As KEYBDINPUT, F As Long
  For I = 0 To 1
    KeyInput.wVk = VK_RETURN
    KeyInput.wScan = 0
    KeyInput.dwFlags = IIf(I = 0, 0, KEYEVENTF_KEYUP)
    KeyInput.Time = 0
    KeyInput.dwExtraInfo = 0
    SetInput(I).dwType = INPUT_KEYBOARD
    Call CopyMemory(SetInput(I).xi(0), KeyInput, Len(KeyInput))
  Next I
  iSec = Timer
  Do
    'DoEvents
  Loop Until Timer > iSec + 6
  Do
    hwnd = FindWindow("#32770", "Microsoft Outlook")
    'DoEvents
  Loop Until hwnd > 0
  Do
    hBut = FindWindowEx(hwnd, ByVal 0&, "Button", "Разрешить")
    'DoEvents
  Loop Until hBut > 0
  Do
    bKey = IsWindowEnabled(hBut)
    'DoEvents
  Loop Until bKey
  iThread = GetCurrentThreadId()
  iDialog = GetWindowThreadProcessId(hwnd, 0&)
  Call AttachThreadInput(iThread, iDialog, True)
  Call SetActiveWindow(hwnd)
  Call SetFocusAPI(hBut)
  Call SendMessage(hBut, BM_SETSTATE, True, ByVal 0&)
  Call SendInput(2, SetInput(0), Len(SetInput(0)))
  Call AttachThreadInput(iThread, iDialog, False)
End Sub