Поиск сообщения по ключевым словам в Outlook

Question

При отправке электронной почты я хочу найти получателей электронной почты, а также тело письма для определенных ключевых работ, и, если найден, всплывающее сообщение, чтобы подтвердить отправку.

Я могу получить всплывающее окно, когда пользователь нажимает клавишу отправки. Я не могу получить доступ к объектам получателя или сообщения для их поиска.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xPrompt As String
Dim xOkOrCancel As Integer
On Error Resume Next
xPrompt = "Do you want to continue sending the email?"
xOkOrCancel = MsgBox(xPrompt, vbOKCancel)
If xOkOrCancel <> vbOK Then
    Cancel = True
End If
End Sub

Я добавил следующий код, чтобы попытаться увидеть получателя, но он ничего не возвращает.

Set myAddressEntry = myRecipient.AddressEntry
xPrompt = Trim(myAddressEntry) 
xOkOrCancel = MsgBox(xPrompt, vbOKCancel)

Answer 1

Вы передаете объект COM в функцию, которая ожидает строку. Более того, вам не нужно свойство Recipient.AddressEntry, просто работайте с объектом Recipient, поскольку он разрешен.

xPrompt = Trim(myRecipient.Name) 

Я предполагаю, что вы правильно инициализируете объект myRecipient из Item.Recipients коллекция.