如果您需要批量刪除執行特定操作(例如“移動”,“複製”或“標記”)的所有Outlook規則,則可以閱讀本文。 這裡我們以“移動”動作為例,向您介紹兩種快速方法。
有時,您可能希望刪除在Outlook中執行特定操作的所有規則。 例如,您已經重建了郵箱中的文件夾結構。 因此,您打算將電子郵件重新分類並存檔到不同的文件夾。 在這種情況下,您可能要批量刪除執行“移動”操作的所有規則。 對此,我們將介紹兩種方法。 第一個適用於一個郵箱。 但是,如果要處理Outlook中的所有郵箱,最好使用以下方法2。
方法1:在一個郵箱中批量刪除
- 首先,單擊“文件”。
- 然後,在“文件”菜單中,單擊“管理規則和警報”按鈕。
- 在下一個“規則和警報”對話框中,您可以在規則列表中看到“操作”列。 “移動”動作的圖標是
.
- 現在,按“ Ctrl”鍵,同時選擇其操作圖標為
逐個。 - 選擇規則後,單擊規則列表上方的“刪除”按鈕。
方法2:在所有郵箱中批量刪除
- 首先,請按照下列步驟啟動 Outlook VBA 編輯器:「如何在Outlook中運行VBA代碼“。
- 接下來,將以下VBA代碼複製到空白模塊中。
Sub DeleteAllMoveRules()
Dim objStores As Outlook.Stores
Dim objStore As Outlook.Store
Dim objRules As Outlook.rules
Dim i As Long
Dim objRule As Outlook.Rule
Dim objRuleAction, objMoveRuleAction As Outlook.RuleAction
Set objStores = Outlook.Application.Session.Stores
'Process all mailboxes
For Each objStore In objStores
Set objRules = objStore.GetRules
For i = objRules.Count To 1 Step -1
Set objRule = objRules(i)
For Each objRuleAction In objRule.Actions
'If "Move" action is enabled
If objRuleAction.ActionType = olRuleActionMoveToFolder Then
Set objMoveRuleAction = objRuleAction
If objMoveRuleAction.Enabled = True Then
'Delete the rule
objRules.Remove (objRule.Name)
On Error Resume Next
objRules.Save
Exit For
End If
End If
Next
Next i
Next
End Sub
- 隨後,按“ F5”鍵立即運行此宏。
- 宏完成後,檢查Outlook中每個郵箱的規則。 與“移動”動作有關的所有規則都消失了。
處理令人擔憂的Outlook錯誤
使用Outlook期間是否收到任何錯誤消息? 實際上,Outlook容易出錯甚至損壞。 因此,經常會遇到Outlook錯誤。 幸運的是,Outlook提供了內置的修復工具– 掃描儀。 您可以使用它來嘗試修復錯誤。 如果失敗,那麼您的最後一招就是更熟練和有效的外部工具,例如 DataNumen Outlook Repair.
作者簡介:
Shirley Zhang是的數據恢復專家 DataNumen,Inc.是數據恢復技術的全球領導者,包括 恢復SQL 和Outlook修復軟件產品。 欲了解更多信息,請訪問 萬維網。datanumen.COM


