Макрос, который может выбирать шаблон, добавлять других получателей, редактировать тему

Макрос, который может выбирать шаблон, добавлять других получателей, редактировать тему

Я новичок в VBA и хочу создать макрос Outlook, который на основе поля «Кому» может решать, какой шаблон использовать, добавлять конкретного получателя в поля «Копия» и «Скрытая копия», добавлять строку к существующей теме (например, «example_subject» --> «confirmation\example_subject»).

Мои усилия дали вот это:

Sub PO_confirmation()

    Dim myItem As Outlook.mailItem

    Dim recipients As Outlook.recipients
    Dim recipientTo As Outlook.recipient
    Dim recipientCC As Outlook.recipient
    Dim recipientBCC As Outlook.recipient

    Set myItem = ActiveInspector.CurrentItem


    Set recipientTo = myItem.recipients.Add("[email protected]")
    recipientTo.Type = Outlook.OlMailRecipientType.olTo

    Set recipientCC = myItem.recipients.Add("[email protected]")
    recipientCC.Type = Outlook.OlMailRecipientType.olCC

    Set recipientBCC = myItem.recipients.Add("[email protected]")
    recipientBCC.Type = Outlook.OlMailRecipientType.olBCC

    initialSubj = myItem.Subject
    myItem.Subject = "RE:ABC-" & initialSubj

    myItem.Display

End Sub

Теперь проблема в том, что получатель скрытой копии всегда отображается в поле «Кому». Не могу понять, в чем проблема?

Связанный контент