Сценарий: пересылать все электронные письма из папки «Входящие» после того, как пользователи отправляют запрос (Outlook 2003)

Question

Я ищу сценарий Outlook (2003).

Что мне нужно: я хочу переслать все свои электронные письма из почтового ящика-A (с ПК) в почтовый ящик-B (на моем телефоне). Подвох заключается в следующем: это правило должно выполняться только тогда, когда я отправляю «запрос» на mailbox-A.

Что я сделал: я создал два правила в Outlook 2003.

Правило 1. Это правило пересылает все электронные письма из почтового ящика-A в почтовый ящик-B. Это правило работает, но оно не автоматизировано (запускается только тогда, когда я нажимаю кнопку «Запустить правила»). Я хочу получать электронные письма только тогда, когда я хочу.

Rule2 - я создал второе правило в Outlook. Это правило запускается (само по себе), когда mailbox-A получает письмо с «get_mail» в качестве темы письма.

Моя цель: я хочу, чтобы rule2 запускал скрипт. Очевидно, этот скрипт должен запускать rule1.

Результат: все электронные письма из почтового ящика-A пересылаются в почтовый ящик-B.

Backgroud: Моя цель - читать мои рабочие электронные письма на моем телефоне, переключаясь между работой и домом. Отправляя электронное письмо с моего телефона на мой компьютер (с темой письма get_mail), мой компьютер (mailbox-A) пересылает все электронные письма на мой телефон (mailbox-B).

Возможно ли это с помощью VBA? А как должен выглядеть код? У меня нет опыта работы со сценариями, но я в целом хорошо разбираюсь в компьютерах и программном обеспечении. Так что я смогу установить его, когда кто-нибудь поставит код.

(пс Невозможно просто установить учетную запись pop/imap на мой телефон)

Answer 1

Да, возможно, чтобы одно правило вызывало другое правило. Вот процедура VBA для Outlook, которая должна работать:

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

Не забудьте изменить этот текст: change_this_to_whatever_the_the_name_of_rule1_is .

После сохранения проекта Outlook VBA отредактируйте действия правила2. После этого вы сможете выбрать вышеуказанный скрипт в списке опций.