Есть ли способ получить категорию контактов получателя при написании электронного письма? - PullRequest
Новая
       9

Есть ли способ получить категорию контактов получателя при написании электронного письма?

0 голосов
/ 21 декабря 2018

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

Вот код, который у меня есть в настоящее время, и я продолжаю получатьошибка 438 для строки Set oContact = oRecip.GetContact 

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim oContact As Outlook.ContactItem
    Dim oRecip
    Dim Recip As Recipient
    Dim BccRecip As String
    Dim strCategoryName As String



Set oRecipients = Item.Recipients
Set oRecipient = Recipients(1)

    Set oContact = oRecipient.GetContact

    strCategoryName = oContact.Categories


    strCategoryName = oContact.Categories

    If InStr(LCase(strCategoryName), "test") > 0 Then
        BccRecip = "abc@def.com"
    Else
        Exit Sub
    End If


    Set Recip = Item.Recipients.Add(BccRecip)
    Recip.Type = olBCC

    If Recip.Resolve Then
        Cancel = False
    Else
        Cancel = True
    End If
End Sub

Заранее спасибо за помощь.

1 Ответ

0 голосов
/ 22 декабря 2018

oRecip в вашем коде - это коллекция получателей.

Вы должны использовать что-то вроде 

   Set oRecipients = Item.Recipients
   Set oRecipient = Recipients(1)
...