Encaminhamento de email somente em uma pasta específica

Question

Eu encontrei uma postagem no Superusuário que solucionou uma pergunta sobre o encaminhamento de e-mail do Outlook. Um usuário forneceu um script para utilizar.

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add "[email protected]"
myFwd.Send
Set myFwd = Nothing 
End Sub

Isso funcionou bem para mim, mas como isso funcionaria se eu quisesse encaminhar automaticamente o email apenas em uma pasta específica? A pasta já possui um email automático direcionado para ela após o recebimento. Alguma idéia?

    

Answer 1

Supondo que você esteja redirecionando o e-mail para a pasta usando uma regra, você pode executar esse script na mesma regra, para que ele se aplique somente nas mesmas condições.

Caso contrário, a macro pode ser alterada para procurar mensagens não lidas na pasta atual e encaminhá-las. Em seguida, você executaria a macro manualmente (dê um atalho para facilitar) periodicamente enquanto estiver nessa pasta e ela fará o encaminhamento para você.

Sub ForwardUnreadInFolder()
  Dim CurItem As Outlook.MailItem
  Dim myFwd As Outlook.MailItem
  Dim strMsg As String

  Set CurFolder = Application.ActiveExplorer.CurrentFolder
  Set AllItems = CurFolder.Items
  NumItems = CurFolder.Items.Count

  For i = 1 To NumItems

    DoEvents

    Set CurItem = AllItems.Item(i)

    If (CurItem.UnRead) Then

        Set myFwd = CurItem.Forward
        myFwd.Recipients.Add "[email protected]"
        myFwd.Send
        Set myFwd = Nothing

    End If

  Next

   MsgBox "Done"
End Sub