如果您希望 Outlook 在为电子邮件分配不同的颜色类别时自动将其移动到不同的文件夹，您可以使用本文介绍的方法。
许多用户渴望在分配给特定颜色类别时自动将电子邮件移动到特定文件夹的方法。 毫无疑问，Outlook 不提供这种直接的功能来实现它。 所以，下面教大家一个获取的方法。 现在，继续阅读以获取详细步骤。
自动将不同颜色类别的电子邮件移动到不同的文件夹
- 首先，启动 Outlook 程序。
- 然后，在 Outlook 中，按“Alt + F11”键按钮访问 VBA 编辑器。
- 随后，将以下 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”添加其他可选颜色类别。
- 之后，将光标移动到“Application_Startup”子程序中，然后按“F5”，即可激活此宏。
- 最后，你可以拍一张照片。 这是我的例子。
- 在收件箱文件夹中选择一封电子邮件。
- 然后，为其分配“私人”颜色类别。
- 立刻，这封邮件将被移动到“收件箱”下的“私人”文件夹中。
小心处理您的 Outlook
也许您在 Outlook 中遇到过几个问题。 通常情况下，它们实际上是由于您的不当处理而发生的。 例如，您总是不正确地关闭 Outlook，例如突然断电。 或者您没有定期备份 Outlook 数据。 所有类似的操作都会使您的 Outlook 更容易受到攻击。 如您所知，PST 文件一旦损坏，就很难修复。 一般来说， 收件箱维修工具 不会产生效果。 您别无选择，只能借助外部尖端实用程序，例如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 恢复sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com