Outlook 2013 - пересылка сообщений при добавлении в папку

Question

Мы используем Outlook 2013 для доступа к учетным записям электронной почты Microsoft Hosted Office 365. Я пытаюсь настроить «что-то», когда я перемещаю электронное письмо из папки "Входящие" в папку Outlook, которое, в дополнение к добавлению его в эту папку Outlook, пересылает это сообщение конкретному человеку.

Можно ли пересылать все электронные письма, добавленные в папку, во время их добавления?

Answer 1

Это довольно легко с макросами VBA. Рассмотрим следующий пример:

Public WithEvents FolderItems As Outlook.Items

Private Sub Application_Startup()
    Set FolderItems = Session.GetDefaultFolder(olFolderInbox).Folders("My Folder").Items
End Sub

Private Sub FolderItems_ItemAdd(ByVal item As Object)
    Set msg = item.Forward
    msg.Recipients.Add "John Doe"
    msg.Send
End Sub

После перезапуска Outlook он будет пересылать все новые сообщения, которые появляются в папке « Входящие \ Моя папка», будет автоматически переадресован Джону Доу .