Автомобільний Outlook надсилає електронні листи до зовнішніх лише за певних обставин

Чи є модифікація коду VBA, наданого у цій відповіді з попередньої публікації, яка буде пересилати електронну пошту лише з певної адреси електронної пошти, а не пересилати все? По суті, імітуючи правило автоматичного переходу в перспективу з умовою, що надсилаються лише повідомлення з електронної пошти@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

Спробуйте додати 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, щоб запустити цей код для кожного вхідного повідомлення (Інструменти -> Правила та сповіщення -> Нове правило -> Перевірте повідомлення, коли вони надходять -> Далі -> ТАК -> Поле "Виконати сценарій" -> Потім виберіть потрібний сценарій створено.

Просто скажіть перспективі запустити код, якщо повідомлення з певної адреси .