Как автоматически копировать определенный адрес при отправке электронного письма «От имени» из общего почтового ящика - PullRequest
Новая
       36

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

0 голосов
/ 06 февраля 2019

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

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

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

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

Sub createSentOnBehalf()

    Dim objMsg As MailItem
    Dim myRecipient As Recipient

    Set objMsg = Application.CreateItem(olMailItem)
    objMsg.SentOnBehalfOfName = "email.address.of.the@shared.mailbox"

    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 As Object, Cancel As Boolean) 

Dim objMsg As MailItem
Dim myRecipient As Recipient

Set objMsg = Application.CreateItem(olMailItem)
objMsg.SentOnBehalfOfName = "email.address.of.the@shared.mailbox"

Set myRecipient = objMsg.Recipients.Add("email.address.of.the@shared.mailbox")
myRecipient.Type = olCC
objMsg.Recipients.ResolveAll

objMsg.Display

Set objMsg = Nothing

End Sub

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

Спасибо!

...