Как да премествам автоматично конкретни имейли в конкретни папки, след като ги прочета в Outlook

Много потребители желаят да преместят конкретни имейли от Inbox в други конкретни папки, след като ги прочетат, което ще поддържа чиста папка Inbox mail. Но винаги да се движите ръчно ще бъде тромаво. Тази статия ще представи бърз метод за автоматичното му реализиране.

Както обикновено, всеки входящ имейл ще попадне в папката Inbox mail в Outlook. Така че, в този случай папката "Входящи" ще бъде претрупана и ще бъде пълнена с течение на времето. По-често можете да преместите ръчно конкретни имейли в други пощенски папки или да създадете правило на Outlook за автоматично преместване на конкретни имейли веднага щом пристигнат във вашата пощенска кутия. Прилагането на такова правило е много по-удобно, но трябва да отидете до конкретните папки, за да получите достъп до новите имейли. Сблъсквайки се с този проблем, може да се надявате, че Outlook може автоматично да премества конкретни имейли от Inbox в други пощенски папки, след като ги прочетете в Inbox, вместо след като пристигнат. Но правилото на Outlook не може да го осъзнае. За щастие можете да използвате Outlook VBA, за да го реализирате. Ето кодовете, както и сложните стъпки.

Автоматично преместване на конкретни имейли в определени папки след прочитането им

1. В самото начало стартирайте Outlook и преминете към раздела „Разработчик“.
2. След това в този раздел натиснете бутона „Visual Basic“, за да отворите прозореца на редактора на VBA.
3. След това в новия прозорец трябва да намерите проекта “ThisOutlookSession” и да щракнете двукратно, за да го отворите.
4. Впоследствие копирайте и поставете следните VBA кодове в него.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim deFolder As Folder
 
    'Ensure the email marked as read
    If TypeOf Item Is MailItem And Item.UnRead = False Then
 
    'Check the email subject and then move to specific folder
    'You can change these conditions and folders as per your needs
    If InStr(LCase(Item.Subject), "test") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Test")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "worklog") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("WorkLog")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "report") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Report")
       Item.Move deFolder
    End If
End Sub

5. След това трябва да подпишете цифрово този код.

• Първо, използвайте вградения инструмент „Цифрови сертификати за проекти на VBA“, за да създадете нов сертификат.
• След това задайте този сертификат на текущия макрос. Изпълнете стъпките, показани на изображението по-долу:

6. По-късно трябва да промените настройките на макроса, за да активирате само макроси с цифрово подписване.
7. Накрая трябва да рестартирате Outlook, за да активирате този VBA проект. Отсега нататък всички входящи имейли ще продължават да попадат във входящата кутия. Но веднага щом новият имейл бъде прочетен, той автоматично ще бъде преместен в съответните папки.

Умни трикове за разрешаване на проблеми с Outlook

Поради факта, че Outlook е податлив на грешки, много потребители копнеят за интелигентни съвети за справяне с често срещаните проблеми. Обикновено най-често срещаните техники включват създаване на нов имейл профил, деактивиране на добавки на трети страни, поправка на Office пакета и използване на инструмента за поправка на входящата поща, Scanpst.exe. Ако вграденият инструмент не успее, можете да прибегнете до друг, по-мощен. повредена помощна програма за ремонт на Outlook, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправяне на повреден SQL db и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com