Outlook - проверьте адрес электронной почты

Question

Я пытаюсь сделать макрос в Outlook, который сканирует список To: для определенной текстовой строки и выплюнет сообщение, если у него есть только один (или два и т. Д.) Адреса. Есть ли простой способ сделать это?

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

Answer 1

Это возможно с помощью Outlook VBA.

Вам нужно будет написать крючок события, когда пользователь отправит электронное письмо. Это делается с помощью Application_ItemSend (ByVal Item As Object, Cancel As Boolean), где Item - отправленный элемент (электронная почта или назначение), а cancel - логическое значение, которое вы можете установить, чтобы остановить отправку электронной почты.

В вашем коде вы хотели бы посмотреть коллекцию получателей объекта Item, чтобы узнать, кто будет получать электронное письмо. Например:

Dim CurrRecip As Recipient 
For Each CurrRecip in Item.Recipients 
    If InStr(1, CurrRecip.Address , "your search text here" , vbCompareText) Then 
     debug.print "Message here..." 
    End If 
Next CurrRecip 

Будем надеяться, что помогает ...