☰

Автоматическая пересылка писем Outlook на внешние устройства только при определенных обстоятельствах

tag-icon • tag-icon email microsoft-outlook vba
Автоматическая пересылка писем Outlook на внешние устройства только при определенных обстоятельствах

Можно ли внести изменения в код VBA, представленный вэтот ответиз более раннего поста, который пересылал бы только письма с определенного адреса электронной почты, а не пересылал бы все? По сути, имитируя правило автопересылки Outlook с условием, что только сообщения с[email protected]получить посылку?

Я написал скрипт VBA, чтобы сделать это *обойти отключение сервером автоматической пересылки". По сути, он имитирует пересылку электронной почты пользователем, а не сервером, выполняющим автоматическую пересылку. Подробные инструкции выходят за рамки этой статьи, но вот краткое изложение:

Добавьте указанный выше код в редактор Visual Basic Outlook (Alt-F11 должен помочь вам начать). Обязательно измените[email protected]на адрес, куда вы хотите, чтобы пришла почта

Сообщите Outlook, что нужно запускать этот код для каждого входящего сообщения (Инструменты -> Правила и оповещения -> Новое правило -> Проверять сообщения при их поступлении -> Далее -> ДА -> Установите флажок «Запустить сценарий» -> Затем выберите сценарий, который вы только что создали.

Теперь Outlook будет автоматически пересылать каждое полученное вами электронное письмо, но оно не будет заблокировано администратором как «автоматическая пересылка».

Код:

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

решение1

Попробуйте добавить ifутверждение, используяадрес отправителя-

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

Set myFwd = Item.Forward

If myFwd.Sender = "[email protected]" then
myFwd.Recipients.Add "[email protected]"
myFwd.Send
End if

Set myFwd = Nothing 
End Sub

Или, более простой способ, это было быустановление правила:

Сообщите Outlook, что нужно запускать этот код для каждого входящего сообщения (Инструменты -> Правила и оповещения -> Новое правило -> Проверять сообщения при их поступлении -> Далее -> ДА -> Установите флажок «Запустить сценарий» -> Затем выберите сценарий, который вы только что создали.

Просто скажите Outlook запустить кодесли сообщение с определенного адреса.

Связанный контент