2 種快速刪除 Outlook 日曆中重複假期的方法

如果您不小心將相同的假期添加到同一日曆兩次或更多次，您會發現日曆中塞滿了重複的假期。 在這種情況下，您必須希望刪除重複項。 現在，這篇文章將教你2個方法。

Outlook 具有內置功能，可快速將假期添加到默認日曆中。 毫無疑問，這對用戶來說非常方便。 但是，如果您錯誤地添加了兩次或更多次假期，您的默認日曆將被重複的假期填滿。 現在，在下面，我們將向您介紹兩種快速刪除重複項的方法。

方法 1：刪除所有假期並重新添加

1. 首先，啟動 Outlook 程式。
2. 然後訪問源日曆文件夾。
3. 接下來切換到“查看”選項卡並選擇“更改視圖”>“列表”。
4. 之後，您應該單擊“排列”組中的“類別”按鈕。
5. 接下來，您將看到所有約會都已按類別分組。
6. 現在您可以找到“假期”組。
7. 最後，單擊“假日”組標題，然後按“刪除”鍵。
8. 一下子，所有現有的假期都被刪除了。
9. 刪除它們後，您可以重新添加假期。 首先，轉到“文件”>“選項”。
10. 在彈出的“Outlook 選項”窗口中，您可以切換到“日曆”選項卡。
11. 在此選項卡下，您將能夠找到“添加假期”按鈕。
12. 然後，在新對話框中，選擇一個位置，例如“美國”並點擊“確定”。
13. 最終，假期再次被導入到默認日曆中。

方法 2：使用 VBA 刪除重複的假期

1. 一開始，按“Alt + F11”鍵。
2. 接下來，您將訪問 Outlook VBA 編輯器窗口，您可以在其中打開一個未使用的模塊。
3. 隨後，將以下VBA代碼複製到該模塊中。

Sub RemoveDuplicateHolidays()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object

    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next

End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objDictionary As Object
    Dim i As Long
    Dim objItem As Object
    Dim strKey As String

    Set objDictionary = CreateObject("Scripting.Dictionary")

    If objCurrentFolder.DefaultItemType = olAppointmentItem Then
       For i = objCurrentFolder.Items.count To 1 Step -1
           Set objItem = objCurrentFolder.Items.Item(i)
 
           'Get all holidays based on the "Holiday" category
           If objItem.Categories = "Holiday" Then
              strKey = objItem.Subject & "," & objItem.Location & "," & objItem.Body & "," & objItem.Categories
              strKey = Replace(strKey, ", ", Chr(32))

              If objDictionary.Exists(strKey) = True Then
                 objItem.Delete
              Else
                 objDictionary.Add strKey, True
              End If
          End If
       Next i
    End If
End Sub

4. 最後，你可以試試這個宏。

• 單擊“RemoveDuplicateHolidays”子程序。
• 然後按F5鍵按鈕運行它。
• 完成後，所有 Outlook 日曆中的所有重複假期都將被刪除。

檢索有價值的Outlook數據

毫無疑問，沒有任何程序可以保證它可以免受錯誤和損壞的影響。 Outlook 也是如此。 因此，為了保護您的 Outlook 數據，您最好定期進行數據備份。 此外，您需要提前安排 Outlook 恢復計劃。 最後但並非最不重要的是，準備一個信譽良好的修復工具是謹慎的，例如 DataNumen Outlook Repair。 它能夠 維修展望 立即解決問題並從受感染的文件中取回最大的 Outlook 數據。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 恢復 Sql Server 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM