Script: encaminha todos os e-mails da caixa de entrada, depois que os usuários enviarem 'solicitação' (Outlook 2003)

Question

Estou procurando um script do Outlook (2003).

O que eu preciso: Desejo encaminhar todos os meus emails da caixa de correio-A (de um PC) para a caixa de correio-B (no meu telefone). A captura é: Esta regra deve ser executada apenas quando eu enviar um 'pedido' para a caixa de correio-A.

O que eu fiz: Eu criei duas regras no Outlook 2003.

Regra1 - Esta regra encaminha todos os emails da caixa de correio-A para a caixa de correio-B. Esta regra funciona, mas não é automatizada (só é executada quando pressiono o botão 'regras de execução'). Eu só quero receber e-mails "quando eu quiser".

Rule2- criei uma segunda regra no Outlook. Esta regra começa (em si) quando a caixa de correio-A recebe um email com 'get_mail' como assunto do email.

Meu objetivo: Eu quero que a regra 2 inicie um script. Obviamente, esse script deve executar a regra 1.

Resultado: Todos os emails da caixa de correio A são encaminhados para a caixa de correio B.

Backgroud: Meu objetivo é ler meus e-mails de trabalho no meu telefone, indo do trabalho para casa. Ao enviar um e-mail do meu telefone para o meu PC (com e-mail assunto get_mail), meu PC (caixa de correio-A) encaminha todos os e-mails para o meu telefone (caixa de correio-B).

Isso é possível usando o VBA? E como deve ser o código? Não tenho experiência com scripts, mas sou bom com PCs e software em geral. Então, eu deveria poder instalá-lo quando alguém fornecer o código.

( p. s. Não é possível simplesmente instalar a conta pop / imap no meu telefone)

    

Answer 1

Sim, é possível ter uma regra acionando outra regra. Aqui está um procedimento de VBA para o Outlook que deve funcionar:

Sub RunRuleToForwardEmail(MyMail As MailItem)

    Dim st As Outlook.Store
    Dim myRule As Outlook.Rule

    ' get default store (where rules live)
    Set st = Application.Session.DefaultStore
    ' get rule
    Set myRule = st.GetRules("change_this_to_whatever_the_the_name_of_rule1_is") 'change this line
    myRule.Execute

End Sub

Lembre-se de alterar este texto: change_this_to_whatever_the_the_name_of_rule1_is .

Depois de salvar seu projeto do Outlook VBA, edite as ações de rule2. Você deve então poder escolher o script acima na lista de opções.