Como executar a regra do Outlook que a mensagem movida para a pasta?

Question

Eu gostaria de executar alguma regra do Outlook, que será executada do que o usuário mover uma mensagem da Caixa de entrada para alguma pasta.

    

Answer 1

Parece que encontrei uma resposta para minha própria pergunta :) Eu tenho que definir a macro a seguir e fazer o que eu quero no método myOlItems_ItemAdd

Public WithEvents myOlItems As Outlook.Items

Public Sub Application_Startup()

' Reference the items in the Inbox. Because myOlItems is declared
' "WithEvents" the ItemAdd event will fire below.
 Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
 Set ee = Outlook.Session.GetDefaultFolder(olFolderInbox).Folders("MyTestFolder")
 Set myOlItems = ee.Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)

 Debug.Print (Item.Subject)
End Sub

    

Answer 2

O Outlook fornece uma lista predefinida de eventos que podem acionar uma regra para disparar. Se você não consegue encontrar um que faça o que você quer, provavelmente você está sem sorte. Enquanto eu suspeito que você pode escrever seu próprio plugin COM para isso, não é para a pessoa média.