Деякі користувачі налаштували кілька облікових записів електронної пошти в Outlook і встановили один як обліковий запис за замовчуванням. Але вони також бажають, щоб Outlook автоматично пересилав певні вхідні електронні листи через інший обліковий запис. Outlook не має такої функції, тому її можна реалізувати лише за допомогою коду VBA, наведеного в цій статті.
Наприклад, ви створили два облікові записи електронної пошти POP3 у своєму Outlook і встановили Обліковий запис 1 як обліковий запис за замовчуванням. Таким чином, усі вхідні електронні листи будуть збережені у файлі Outlook облікового запису 1. І ви створюєте правило Outlook для автоматичного пересилання конкретних вхідних листів комусь іншому. Тепер ви сподіваєтесь, що всі пересилання пошти виконуються через інший обліковий запис електронної пошти, а саме Обліковий запис 2. Однак правило Outlook не передбачає такої дії. Таким чином, вам доведеться використовувати інші методи, такі як наступний спосіб.
Автоматично пересилати конкретні вхідні електронні листи через інший обліковий запис
- Для початку в Outlook відкрийте редактор VBA за допомогою “Alt + F11”.
- Потім у редакторі 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
- Далі закрийте редактор VBA.
- Потім натисніть «Правила»> «Керування правилами та сповіщеннями» на вкладці «Домашня сторінка».
- Потім у новому діалоговому вікні натисніть “Нове правило”.
- Після цього відобразиться інше діалогове вікно, в якому потрібно вибрати «Застосувати правило до повідомлень, які я отримую» та натиснути «Далі».
- Далі, на новому екрані вам потрібно встановити умову правила, наприклад, «з певними словами в темі» та натиснути «Далі».
- На наступному екрані вам потрібно вибрати “запустити сценарій” та вибрати новий макрос, який ви додали щойно.
- Після цього ви можете закінчити налаштування правила відповідно до екранних майстрів.
- Відтепер, кожного разу, коли певна електронна пошта потрапляє до певної поштової скриньки, Outlook автоматично пересилає її через інший конкретний обліковий запис електронної пошти.
Пошкодження даних Outlook після пошкодження
Незважаючи на те, що Outlook надає безліч функцій, він все одно не може бути позбавлений помилок і пошкоджень. Якщо ваш Outlook раптово виходить з ладу, існує погана ймовірність, що файл даних Outlook може бути пошкоджений. На той час навіть вбудований Ремонт Outlook інструмент, Scanpst, не може вам допомогти. У вас немає альтернативи, окрім як скористатися грізним зовнішнім інструментом, наприклад DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджений sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com