Есть программа, которая работает с почтовым клиентом через MAPI. Ранее, я использовал в качестве почтового клиета Outlook Express (ОЕ), сейчас адаптирую программу под Bat (ТВ).
При добавлении письма в очередь на отправку, в ОЕ выводится окно, которое я научился закрывать. При отправке письма в ТВ, выводится окно с предложением выбрать учётную запись для отправки.
Пытаюсь победить её следующим образом:
- Код: Выделить всё
Dim hwnd As Long
Dim hwndBtn As Long
Dim retval As Long
hwnd = FindWindow(vbNullString, "Выбор ящика") 'Поиск окна Bat
hwndBtn = FindWindowEx(hwnd, ByVal 0&, "TSpTBXButton", "ОК")
retval = SendMessage(hwndBtn, BM_CLICK, ByVal CLng(0), ByVal CLng(0))
В итоге, кнопка никак не реагирует на то что я ей отправляю. Хотя, если вместо последней строки указать:
- Код: Выделить всё
ShowWindow hwndBtn, SW_HIDE
то всё успешно - реакция есть.
Приведённое решение в ОЕ работает без проблем.
Кто-нибудь может прокомментировать? Что может быть не так?