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

Question

Можно ли внести изменения в код VBA, приведенный в этом ответе из предыдущего сообщения, который будет пересылать электронную почту только с определенного адреса электронной почты, а не пересылать все? По сути, имитировать правило автоматического перенаправления outlook с условием, что отправляются только сообщения с email@email.com?

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

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

Скажите 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@email.com"
myFwd.Send
Set myFwd = Nothing 
End Sub

Answer 1

Попробуйте добавить оператор if используя адрес отправителя:

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

Set myFwd = Item.Forward

If myFwd.Sender = "sender@email.com" then
myFwd.Recipients.Add "email@email.com"
myFwd.Send
End if

Set myFwd = Nothing 
End Sub

---

Или проще было бы установить правило:

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

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