如何在Outlook中自動將不同類型的已刪除項目移動到不同的資料夾?
在Outlook中,所有類型的已刪除項目(郵件、任務、聯絡人等)都會被移動到「已刪除郵件」資料夾。如果您想根據項目類型將這些項目移動到「已刪除郵件」資料夾下的不同資料夾,如下方截圖所示,該如何在Outlook中實現呢?
使用VBA代碼自動將不同類型的已刪除項目移動到不同的資料夾
以下VBA代碼可以幫助您自動將已刪除項目移動到不同的資料夾,請按照以下步驟操作:
1. 啟動Outlook,然後按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 窗口。
2. 接著,在「專案-專案1」窗格中雙擊 ThisOutlookSession,然後複製並將以下代碼粘貼到空白代碼窗口中:
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要查看結果,請點擊 位於資料夾窗格底部的圖標,然後點擊 資料夾 以展開窗格中的所有資料夾,請參見截圖:
![]() | ![]() | ![]() |
Outlook中的AI郵件助理:更聰明的回覆,更清晰的溝通(一鍵奇蹟!) 免費
使用Kutools for Outlook的AI郵件助理簡化您的日常Outlook任務。這個強大的工具會從您過去的郵件中學習,提供智能且準確的答覆,優化您的郵件內容,並幫助您輕鬆起草和潤色郵件。

此功能支援:
- 智能回覆:根據您過去的對話獲得量身定制、精確且隨時可用的回覆。
- 增強內容:自動優化您的郵件文字以提高清晰度和影響力。
- 輕鬆撰寫:只需提供關鍵字,讓AI處理其餘部分,並有多種寫作風格可供選擇。
- 智能擴展:通過上下文感知建議來拓展您的思路。
- 摘要生成:即時獲取長郵件的簡潔概述。
- 全球觸及:輕鬆將您的郵件翻譯成任何語言。
此功能支援:
- 智能郵件回覆
- 優化的內容
- 基於關鍵字的草稿
- 智能內容擴展
- 郵件摘要生成
- 多語言翻譯
最重要的是,此功能永遠完全免費!不要再等待了——立即下載AI郵件助理並享受吧
最佳辦公室生產力工具
最新消息:Kutools for Outlook 推出免費版本!
體驗全新 Kutools for Outlook,超過100項精彩功能!立即下載!
🤖 Kutools AI :採用先進的AI技術輕鬆處理郵件,包括答覆、摘要、優化、擴充、翻譯及撰寫郵件。
📧 郵件自動化:自動回覆(支援POP及IMAP) / 排程發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發(高級規則) / 自動添加問候語 / 自動分割多收件人郵件為個別郵件 ...
📨 郵件管理:撤回郵件 / 根據主題等方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...
📁 附件專業工具:批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...
🌟 介面魔法:😊更多精美與酷炫表情符號 /重要郵件來臨時提醒 / 最小化 Outlook 而非關閉 ...
👍 一鍵便利:帶附件全部答復 / 防詐騙郵件 / 🕘顯示發件人時區 ...
👩🏼🤝👩🏻 聯絡人與日曆:從選中郵件批量添加聯絡人 / 分割聯絡人組為個別組 / 移除生日提醒 ...
以您偏好的語言使用 Kutools,支援英語、西班牙語、德語、法語、中文及超過40種其他語言!
只需點擊一次,即可立即解鎖 Kutools for Outlook。別等了,現在下載提升您的工作效率!


🚀 一鍵下載 — 獲取全部 Office 插件
強力推薦:Kutools for Office(5合1)
一鍵下載五個安裝程式,包括 Kutools for Excel, Outlook, Word, PowerPoint及 Office Tab Pro。 立即下載!
- ✅ 一鍵便利:一次操作即可下載全部五套安裝包。
- 🚀 隨時處理任何 Office 任務:安裝您需求的插件,隨時隨地。
- 🧰 包含:Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint