如果您希望 Outlook 在為它們分配不同的顏色類別時自動將電子郵件移動到不同的文件夾，您可以使用本頁中介紹的方法ost.
許多用戶渴望在分配了特定顏色類別時將電子郵件自動移動到特定文件夾的方法。 毫無疑問，Outlook 沒有提供這種直接的功能來實現它。 因此，在下面，我們將教您獲得它的方法。 現在，請繼續閱讀以獲取詳細步驟。
自動將不同顏色類別的電子郵件移動到不同的文件夾
- 對於作為tart，啟動您的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)”。
- 此外，更改顏色類別和 tar根據您的實際情況獲取上述代碼中預定義的文件夾。
- 另外，您可以使用“ElseIf”添加其他可選顏色類別。
- 之後，將光標移到“ Application_Startup”子程序並按“F5”，這將激活該宏。
- 最後，您可以拍攝了。 這是我的例子。
- 在收件箱文件夾中選擇一封電子郵件。
- 然後，為其分配“私人”顏色類別。
- 該郵件將立即移動到“收件箱”下的“私人”文件夾中。
小心處理你的前景
也許您在 Outlook 中遇到了幾個問題。 通常情況下，它們實際上是由您的不當處理引起的。 例如，您總是錯誤地關閉 Outlook，例如突然斷電。 或者您沒有定期備份 Outlook 數據。 所有類似的操作都會使您的 Outlook 更容易受到攻擊。 如您所知，一旦 PST 文件損壞，修復它是非常困難的。 一般來說， 收件箱維修工具 不會產生影響。 您別無選擇，只能藉助外部頂級實用程序，例如 DataNumen Outlook Repair.
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 恢復SQL 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM