Как автоматически пересылать определенные входящие электронные письма через другую учетную запись в Outlook

Некоторые пользователи настроили более одной учетной записи электронной почты в Outlook и установили одну из них в качестве учетной записи по умолчанию. Но они также хотят, чтобы Outlook автоматически пересылал определенные входящие электронные письма через другую учетную запись. В Outlook такой функции нет, поэтому ее можно реализовать только с помощью кода VBA, представленного в этой статье.

Например, вы настроили две учетные записи электронной почты POP3 в Outlook и установили учетную запись 1 в качестве учетной записи по умолчанию. Таким образом, все входящие электронные письма будут сохранены в файле Outlook учетной записи 1. И вы создаете правило Outlook для автоматической пересылки определенных входящих электронных писем кому-то еще. Теперь вы надеетесь, что вся пересылка почты выполняется через другую учетную запись электронной почты, а именно через учетную запись 2. Однако правило Outlook не предусматривает такого действия. Таким образом, вы должны использовать другие методы, такие как следующий способ.

Автоматическая пересылка определенных входящих писем через другую учетную запись

1. Для начала в Outlook откройте редактор VBA через «Alt + F11».
2. Затем в редакторе VBA поместите следующий код VBA в незанятый модуль.

Sub AutoForwardMailsThroughAnotherAccount(objMail As Outlook.MailItem)
    Dim objForwardMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objMailAccounts As Outlook.Accounts
    Dim objMailAccount As Outlook.Account
 
    Set objForwardMail = objMail.Forward
    'Change the recipients of forwarding email
    Set objRecipient = objForwardMail.Recipients.Add("shelly@datanumen.com")
    objRecipient.Type = olTo
    objForwardMail.Recipients.ResolveAll
 
    Set objMailAccounts = Outlook.Application.Session.Accounts
    For Each objMailAccount In objMailAccounts
        'Replace "John Smith" with the display name of your email account
        If objMailAccount.DisplayName = "John Smith" Then
           objForwardMail.SendUsingAccount = objMailAccount
           objForwardMail.Send
        End If
    Next
End Sub

3. Затем выйдите из редактора VBA.
4. Затем нажмите «Правила» > «Управление правилами и оповещениями» на вкладке «Главная».
5. Затем в новом диалоговом окне нажмите «Новое правило».
6. После этого появится еще одно диалоговое окно, в котором нужно выбрать «Применить правило к сообщениям, которые я получаю» и нажать «Далее».
7. Затем на новом экране вам нужно установить условие правила, например «с конкретными словами в теме», и нажать «Далее».
8. На следующем экране вы должны выбрать «запустить скрипт» и выбрать новый макрос, который вы только что добавили.
9. После этого вы можете завершить настройку правила в соответствии с экранными мастерами.
10. Отныне каждый раз, когда определенное электронное письмо попадает в определенный почтовый ящик, Outlook будет автоматически пересылать его через другую конкретную учетную запись электронной почты.

Спасение данных Outlook после повреждения

Хотя Outlook предоставляет множество функций, он по-прежнему не может быть свободен от ошибок и повреждений. Если ваш Outlook внезапно выходит из строя, есть вероятность, что ваш файл данных Outlook может быть поврежден. В то время даже встроенный Восстановление Outlook Инструмент Scanpst не может вам помочь. У вас нет другого выбора, кроме как воспользоваться мощным внешним инструментом, таким как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com