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

Ако искате Outlook автоматично да премества имейли в различни папки, когато им присвоявате различни цветови категории, можете да използвате метода, представен в тази публикация.

Много потребители копнеят за методи за автоматично преместване на имейл в определена папка, когато му е присвоена определена категория цветове. Без никакви съмнения Outlook не предлага такава директна функция, за да го реализира. Следователно в следващите стъпки ще ви научим как да ги получите. Сега прочетете, за да получите подробните стъпки.

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

1. За начало стартирайте програмата Outlook.
2. След това в Outlook натиснете бутоните „Alt + F11“ за достъп до редактора на VBA.
3. Впоследствие поставете следния код на VBA в проекта “ThisOutlookSession”.

Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items

'Process inbox mails
Private Sub Application_Startup()
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInboxFolder.Items
End Sub

'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Move mails based on color category
       If InStr(objMail.Categories, "Private") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
          objMail.Move objTargetFolder
       ElseIf InStr(objMail.Categories, "Business") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
          objMail.Move objTargetFolder
       End If
    End If
End Sub

Забележки:

• За да обработите елементи в други папки, можете да промените обекта „objInboxFolder“, като „Application.Session.GetDefaultFolder (olFolderSentMail)“ за папка „Изпратени елементи“.
• Също така, променете цветовите категории и целевите папки, предварително дефинирани в горния код, според вашите реални случаи.
• Освен това можете да използвате “ElseIf”, за да добавите другите незадължителни категории цветове.

4. След това преместете курсора в подпрограмата „Application_Startup“ и натиснете „F5“, което ще активира този макрос.
5. И накрая, можете да направите снимка. Ето моят пример.

• Изберете имейл в папката Inbox.
• След това му задайте категория „Частен“ цвят.
• Веднага тази поща ще бъде преместена в папката „Частна“ под „Входящи“.

Работете внимателно с Outlook

Може би сте срещнали няколко проблема във вашия Outlook. По-често, отколкото не, те действително възникват от неправилните ви манипулации. Например, винаги затваряте неправилно Outlook, например внезапно изключване на захранването. Или не сте архивирали данните си от Outlook на редовни интервали. Всички подобни действия могат да направят вашия Outlook много по-уязвим. Както знаете, след като PST файл се повреди, е изключително трудно да го поправите. Като цяло инструмент за ремонт на входящата кутия няма да направи ефекти. Нямате друг избор, освен да се възползвате от външни помощни програми, като например DataNumen Outlook Repair.

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

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