
Outlook 2010(32 位元) Windows 7(64 位元)
我的系統裝有 Outlook 2010(未啟用快取模式),使用者收件匣下的一些子資料夾已變得非常臃腫(包含超過 50000 則訊息)。我想盡可能有效地清除這些(同時保留目錄名稱/位置本身)。
如果我右鍵單擊該資料夾並選擇“全部刪除”,則會收到一條提示,詢問我是否確定要將此資料夾中的所有項目移至“已刪除郵件”資料夾。當我單擊“是”時,我看到一個“準備刪除”進度條......當它到達末尾時,什麼也沒有發生。進度條正常關閉,但訊息仍在目錄中。
有其他方法可以做到這一點嗎?
答案1
刪除所有僅移動駐留在選定資料夾(不包括子資料夾)中的項目。為了達到預期的結果,您需要編寫以下 VBA 腳本:
Private Sub CleanSubfolders(ByVal Folder As Folder)
For i = Folder.Items.Count To 1 Step -1
Folder.Items(i).Delete
Next
For Each Folder In Folder.Folders
CleanSubfolders Folder
Next
End Sub
Sub CleanFolders()
Set Folder = Session.PickFolder()
If Not Folder Is Nothing Then
CleanSubfolders Folder
End If
End Sub
運行清理資料夾巨集將有效刪除所選資料夾中的所有項目,包括其所有子資料夾。
答案2
我更喜歡@thims 的回答,因為它專門執行與我想做的相同的任務。話雖這麼說,我最近注意到永久刪除郵件也會清除資料夾。
為此,請按住SHIFT
鍵,同時右鍵單擊該資料夾並選擇Delete All
。這次,用戶將收到提示,詢問您是否要永久刪除所有訊息(而不是移至回收站)。這是有效的,所以我懷疑這裡的根本問題是 Outlook 錯誤在資料夾之間移動大量郵件。