Как автоматически скопировать определенный адрес при отправке электронного письма "От имени" из общего почтового ящика

Question

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

Я прочитал этот ответ, но не могу заставить его работать. РЕДАКТИРОВАТЬ: он ничего не делает, как только код введен. Нет сообщений об ошибках или поведения любого рода.

Всегда CC при отправке "От имени"

Это то, что я положил в ThisOutlookSession из кода, предложенного выше:

Sub createSentOnBehalf()

    Dim objMsg As MailItem
    Dim myRecipient As Recipient

    Set objMsg = Application.CreateItem(olMailItem)
    objMsg.SentOnBehalfOfName = "[e-mail]"

    Set myRecipient = objMsg.Recipients.Add("TheNameOfTheSharedMAilbox")
    myRecipient.Type = olCC
    objMsg.Recipients.ResolveAll

    objMsg.Display

    Set objMsg = Nothing

End Sub

Я совершенно новичок в кодировании, поэтому я мог просто неправильно понять сценарий.

РЕДАКТИРОВАТЬ:

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

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

Единственное, что мне удалось сделать, - это когда я создаю новое электронное письмо, после его отправки создается новое пустое электронное письмо с адресом в поле cc. Он также создает это пустое электронное письмо, когда я отправляю его из моего личного электронного письма, что также не должно происходить.

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

Private Sub Application_ItemSend (элемент ByVal как объект, отмена как логический)

Dim objMsg As MailItem
Dim myRecipient As Recipient

Set objMsg = Application.CreateItem(olMailItem)
objMsg.SentOnBehalfOfName = "[e-mail]"

Set myRecipient = objMsg.Recipients.Add("[e-mail]")
myRecipient.Type = olCC
objMsg.Recipients.ResolveAll

objMsg.Display

Set objMsg = Nothing

End Sub

Я действительно ценю всю помощь. Мне нужно немного больше указателей на то, где ошибки и что за исправление.

Спасибо!