Добавить B CC к записи при нажатии кнопки - PullRequest
Новая
       16

Добавить B CC к записи при нажатии кнопки

0 голосов
/ 18 июня 2020

У меня есть настраиваемая форма в моем назначении, в которой у меня есть CommandButton и поле B CC.

Когда пользователь нажимает мою commandButton, я хочу добавить письмо в свое поле B CC.

В настоящее время у меня есть следующее: 

Sub CommandButton1_Click()
    Set test = Item.Recipients.Add('alice@yahoo.com')
    test = (int)Outlook.OlMailRecipientType.olBCC;
    Item.Recipients.ResolveAll();
End Sub

Я пробовал несколько разных вещей, но безуспешно.

До сих пор мне удалось добавить только стандартного получателя, т.е. 

Sub CommandButton1_Click()
Set oMsg = Application.ActiveInspector.CurrentItem 
With oMsg 
    .Recipients.Add("test")
End With

End Sub

Но, похоже, было бы более запутанным добавить B CC mail

Следовательно, как мне добавить письмо в поле B CC при нажатии кнопки commandbutton?

Ответы [ 3 ]

0 голосов
/ 18 июня 2020

Похоже, вам просто нужно изменить коллекцию Recipients элемента: 

Sub CommandButton1_Click()
    Dim recip as Outlook.Recipient
    Set recip = Item.Recipients.Add('alice@yahoo.com')
    recip.Type = Outlook.OlMailRecipientType.olBCC;
    Item.Recipients.ResolveAll();
End Sub

Обратите внимание, получатель MeetingItem может быть одной из следующих констант OlMeetingRecipientType: olOptional, olOrganizer, olRequired или olResource.

Скорее всего, вам придется создать новый MailItem и отправить его отдельно как B CC.

0 голосов
/ 23 июня 2020

По какой-то причине метод Item.Recipients.ResolveAll() не работал. Поэтому я пропустил запись в переменную и вместо этого объединил тип с .Recipients.Add(). 

Function CommandButton1_Click()
    Set oMsg = Application.ActiveInspector.CurrentItem 

    With oMsg 
            .Recipients.Add(Mail).Type = 3
    End With
End Function

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

0 голосов
/ 18 июня 2020

Попробуйте использовать этот синтаксис, чтобы установить свойство Type получателя, а затем разрешить все. 

Sub CommandButton1_Click()
    Set test = Item.Recipients.Add("alice@yahoo.com")
    test.Type = olBCC
    Item.Recipients.ResolveAll()
End Sub

В вашем методе вы пытаетесь установить Item как целое число (приведение из тип B CC) вместо установки свойства Type OF Item

...