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

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

Я не знаком с VBA для Outlook, но думаю, что вы могли бы написать оператор if, который говорит: "если отправляете сообщение от UserX, cc UserX". Код должен запускаться автоматически каждый раз, когда от имени отправляется электронное письмо.

Источник

3 ответа

Решение

SentOnBehalfOfName сложно. Обычно он пуст, пока товар не был отправлен.

С этим кодом в ThisOutlookSession вы должны найти его пустым.

Private Sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)

    Dim myRecipient As Recipient

    Debug.Print " item.SentOnBehalfOfName - " & item.SentOnBehalfOfName

    If item.SentOnBehalfOfName = "someone@somewhere.com" Then
        Set myRecipient = item.Recipients.Add("Someone Else")
        myRecipient.Type = olCC
        item.Recipients.ResolveAll
    End If

End Sub

По крайней мере, один из способов обойти это:

Sub createSentOnBehalf()

    Dim objMsg As mailitem

    Set objMsg = Application.CreateItem(olMailItem)
    objMsg.SentOnBehalfOfName = "someone@somewhere.com"
    objMsg.Display

    Set objMsg = Nothing

End Sub

Sub replySentOnBehalf()

    Dim objMsg As mailitem

    Set objMsg = ActiveInspector.currentItem.reply
    objMsg.SentOnBehalfOfName = "someone@somewhere.com"
    objMsg.Display

    Set objMsg = Nothing

End Sub

Редактировать: Просто понял, что вы можете установить копию при создании / ответ, а не ждать, пока ItemSend.

Edit2: переместить код cc из itemsend

Sub createSentOnBehalf()

    Dim objMsg As mailitem
    Dim myRecipient As Recipient

    Set objMsg = Application.CreateItem(olMailItem)
    objMsg.SentOnBehalfOfName = "someone@somewhere.com"

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

    objMsg.Display

    Set objMsg = Nothing

End Sub
Источник

Похоже, вам нужно обработать событие ItemSend класса Application. Он запускается всякий раз, когда элемент Microsoft Outlook отправляется либо пользователем через инспектора (до закрытия инспектора, но после нажатия пользователем кнопки "Отправить"), либо когда используется метод отправки для элемента Outlook, такого как MailItem, в программе. Обратите внимание, что параметр Cancel позволяет отменить процесс отправки электронного письма.

В обработчике события ItemSend вы можете проверить свойство SentOnBehalfOfName элемента, переданного в качестве параметра, и добавить получателя CC, используя свойство Recipients класса MailItem. Коллекция Recipients предоставляет метод Add для добавления получателей.

 Set myRecipient = myItem.Recipients.Add("Dan Wilson") 
 myRecipient.Type = OlMailRecipientType.olCC

После не забудьте вызвать метод Resolve или ResolveAll класса Recipient, чтобы разрешить объект Recipient в адресной книге.

См. Как: Заполнить поля TO,CC и BCC в Outlook программным способом для получения дополнительной информации.

Источник

Это будет делать то, что вы ищете (это первые результаты Google "всегда CC сам Outlook") http://www.extendoffice.com/documents/outlook/1108-outlook-auto-cc.html

  1. Запустите Outlook 2013 или 2010 и убедитесь, что вы находитесь в разделе почты. Затем нажмите "Главная"> "Правила"> "Управление правилами и оповещениями".
  2. После выбора опции "Управление правилами и оповещениями" появится диалоговое окно "Правила и оповещения". Под Правилами электронной почты выберите опцию Новое правило.
  3. В мастере правил нажмите "Применить правило к сообщениям, которые я отправляю", затем нажмите "Далее", чтобы продолжить.

  4. Затем появляется другое диалоговое окно.

    (1.) На шаге 1 установите флажок в указанной учетной записи. На шаге 2, пожалуйста, нажмите на указанное слово. (2.) А затем нажмите раскрывающийся список Учетная запись, чтобы выбрать учетную запись, к которой вы хотите применить это правило.

  5. После выбора учетной записи и нажатия OK, чтобы вернуться в предыдущее окно, вы увидите выбранную учетную запись, отображаемую в мастере правил. Затем нажмите на кнопку Далее.

  6. (1.) В этом мастере установите флажок Копировать сообщение людям или общедоступной группе, а затем нажмите на людей или общедоступную группу на шаге 2.
    (2.) В диалоговом окне "Правильный адрес" дважды щелкните получателя cc, чтобы добавить адрес в текстовое поле "Кому"> (Если я хочу скопировать себя, я выберу или введу свой собственный адрес электронной почты в поле "Кому"). столбец.), наконец, нажмите ОК.

  7. Он вернется в предыдущее окно, и вы увидите, что появляется адрес получателя cc. Затем нажмите кнопку Готово.
  8. Теперь он возвращается в самое начальное диалоговое окно, нажимает кнопку OK, после чего будет создано правило cc. Если вы не хотите включать правило, снимите его.

Затем после отправки или пересылки сообщения электронной почты другим пользователям с указанным вами аккаунтом ваша учетная запись или ваш конкретный получатель cc всегда будут получать одно и то же сообщение.

Источник
Другие вопросы по тегам