Нашел письмо ответа в коллекции Explorers (это случай когда ответ создается без открытия нового окна). В противном случае ответ содержится в Inspectors.
Однако почему-то события NewExplorer (по аналогии с Inspectors) почему-то не возникает. Соответственно зацепиться за него не удается.
Пока нормальной работы удалось добиться через кнопку в Access со следующим кодом:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Private Sub Кнопка0_Click()
Dim olk As Outlook.Application
On Error Resume Next
Set olk = GetObject(, "Outlook.Application")
If Err.Number = 0 Then
On Error GoTo Err_
If Not olk.ActiveExplorer Is Nothing Then
If Not olk.ActiveExplorer.ActiveInlineResponse Is Nothing Then
If TypeName(olk.ActiveExplorer.ActiveInlineResponse) = "MailItem" Then
If Not olk.ActiveExplorer.ActiveInlineResponse.Sent Then ОбработкаПисьма olk.ActiveExplorer.ActiveInlineResponse
End If
End If
End If
If Not olk.ActiveInspector Is Nothing Then
If Not olk.ActiveInspector.CurrentItem Is Nothing Then
If TypeName(olk.ActiveInspector.CurrentItem) = "MailItem" Then
If Not olk.ActiveInspector.CurrentItem.Sent Then ОбработкаПисьма olk.ActiveInspector.CurrentItem
End If
End If
End If
Else
MsgBox "Вначале создайте новое письмо в Outlook!", vbInformation, "Внимание"
End If
Exit Sub
Err_:
MsgBox Err.Description, vbCritical, "Ошибка"
End Sub
Private Sub ОбработкаПисьма(mi As Outlook.MailItem)
mi.Subject = "RE: My Subject " & Now
mi.Body = "Тра-та-та"
End Sub
