也許您的Outlook中有許多過期的約會。 在本文中,我們將向您介紹3種快速刪除所有過期約會的方法。
為了使您的PST數據較小,並使日曆更整潔和井井有條,您需要刪除Outlook中的那些無用的項目,例如過期的約會,即今天之前安排的約會。 Outlook沒有提供直接功能來識別此類約會並一次性刪除它們。 因此,在這裡,我們將向您介紹3種技巧,以快速查找和刪除過期的約會。
1:手動刪除過期的約會
- 首先,啟動Outlook,轉到“日曆”窗格,然後打開一個特定的日曆文件夾。
- 然後切換到“查看”選項卡,然後單擊“查看設置”。
- 在彈出的對話框中,單擊“過濾器”按鈕。

- 接下來,您應該指定高級視圖過濾器。
- 首先,在“欄位”方塊中輸入“開始”,選擇“在…之前或之後”,然後在“值”中輸入“昨天”。
- 接下來添加另一個-“在昨天或之前結束”。
- 隨後,單擊一系列“確定”,直到返回日曆。
- 此後,您將看到列表中只剩下過期的約會。
- 最後選擇全部,然後按“刪除”按鈕。
2:通過存檔刪除過期的約會
- 首先,轉到“文件”菜單。
- 然後單擊“清理工具”按鈕,並從下拉列表中選擇“存檔”。
- 最終在新彈出的對話框中,執行以下步驟:
- 首先,選擇“日曆”。
- 然後在“存檔時間早於:”中鍵入“今天”
- 接下來,您可以選擇通過“瀏覽”按鈕指定“存檔PST文件”。
- 最後點選「確定」按鈕開始歸檔。
3:通過Outlook VBA刪除過期的約會
- 首先,按“ Alt + F11”鍵按鈕訪問Outlook VBA編輯器。
- 然後,在隨後的窗口中,您應該打開一個新模塊。
- 稍後,您可以將以下VBA代碼複製並粘貼到模塊中。
Sub DeleteAllOverDueAppointments()
Dim objAppointments As Outlook.Items
Dim objVariant As Variant
Set objAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
For i = objAppointments.Count To 1 Step -1
Set objVariant = objAppointments.Item(i)
'Specify the overdue appointments
If (objVariant.Start < Date) And (objVariant.End < Date) Then
objVariant.Delete
End If
Next
End Sub
- 之後,您可以點擊工具列中的「執行」圖示來啟動巨集。
- 一次,所有過期的約會都將從您的日曆中刪除。
保護您的 Outlook 數據
您必須非常重視Outlook數據,因為Outlook中有大量重要的電子郵件或聯繫人。 因此,您應該定期備份Outlook數據。 而且,以便快速取回您的 腐敗的Outlook Outlook崩潰後的數據,您應該在附近放置一個出色的工具,例如 DataNumen Outlook Repair.
作者簡介:
Shirley Zhang是的數據恢復專家 DataNumen,Inc.是數據恢復技術的全球領導者,包括 sql損壞 和Outlook修復軟件產品。 欲了解更多信息,請訪問 萬維網。datanumen.COM



