如何在 Outlook 中自動將不同類型的已刪除郵件分類移至對應的資料夾？

在 Outlook 中，所有類型的已刪除項目（包括郵件、任務、連絡人等）預設都會移至「已刪除郵件」資料夾。若您希望根據項目類型，將這些項目自動分類至「已刪除郵件」資料夾下的不同子資料夾（如下方截圖所示），該如何在 Outlook 中實現？

---

使用 VBA 程式碼自動將不同類型的已刪除郵件移至不同資料夾

以下 VBA 程式碼可協助您自動將已刪除郵件移至不同資料夾，請照下列步驟操作：

1. 啟動 Outlook，然後按下 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 接著，在 ThisOutlookSession 上按兩下（位於 ）Project-Project 1 窗格中），然後將下方程式碼複製並貼上至空白的程式碼視窗中：

VBA 程式碼：自動將不同類型的已刪除郵件移至不同資料夾

Public WithEvents GDeletedFolder As Outlook.Folder
Public WithEvents GDeletedItems As Outlook.Items
Private Sub Application_Startup()
  Set GDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
  Set GDeletedItems = GDeletedFolder.Items
End Sub
Private Sub GDeletedItems_ItemAdd(ByVal Item As Object)
'Updateby ExtendOffice
Dim xTargetFolder As Outlook.Folder
On Error Resume Next
Select Case TypeName(Item)
  Case "MailItem", "PostItem", "ReportItem", "MeetingItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Mails")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Mails", olFolderInbox)
    End If
  Case "AppointmentItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Appointments")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Appointments", olFolderCalendar)
    End If
  Case "ContactItem", "DistListItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Contacts")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Contacts", olFolderContacts)
    End If
  Case "TaskItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Tasks")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Tasks", olFolderTasks)
    End If
  Case "JournalItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Journals")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Journals", olFolderJournal)
    End If
  Case "NoteItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Notess")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Notess", olFolderNotes)
    End If
End Select
If xTargetFolder Is Nothing Then Exit Sub
Item.Move xTargetFolder
Set xTargetFolder = Nothing
End Sub

3. 接著儲存此程式碼，並重新啟動 Outlook 以啟用該功能。

4. 從現在起，當您刪除某個項目時，它會自動移至已刪除郵件資料夾中對應類型的子資料夾。

5. 若要檢視結果，請按一下資料夾窗格底部的圖示，然後在窗格中按一下資料夾以展開所有文件夾，請參閱以下截圖：