Outlook 2013 - Encaminhar mensagens quando adicionado a uma pasta

Question

Usamos o Outlook 2013 para acessar as contas de email do Microsoft Hosted Office 365. Eu estou tentando configurar "algo" onde se eu mover um email da caixa de entrada para uma pasta do Outlook que, além de adicioná-lo a essa pasta do Outlook, encaminha essa mensagem para um indivíduo em particular.

É possível encaminhar todos os e-mails adicionados a uma pasta no momento em que são adicionados?

    

Answer 1

Isso é muito fácil com macros VBA. Considere o seguinte exemplo:

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

Após reiniciar o Outlook, todas as novas mensagens exibidas na Caixa de entrada \ Minha pasta serão encaminhadas para John Doe automaticamente.