2 Cara Cepat Menghapus Duplikat Liburan di Kalender Outlook Anda

Jika Anda menambahkan hari libur yang sama ke kalender yang sama dua kali atau lebih secara tidak sengaja, Anda akan menemukan bahwa kalender tersebut diisi dengan hari libur yang sama. Dalam skenario ini, Anda harus ingin menghapus duplikat. Sekarang, artikel ini akan mengajarkan Anda 2 cara.

Outlook memiliki fitur bawaan untuk menambahkan hari libur dengan cepat ke kalender default. Ini tidak diragukan lagi cukup nyaman bagi pengguna. Namun, jika Anda salah menambahkan hari libur dua kali atau lebih, kalender default Anda akan diisi dengan hari libur duplikat. Sekarang, berikut ini, kami akan memperkenalkan Anda 2 pendekatan untuk menghapus duplikat dengan cepat.

Metode 1: Hapus Semua Hari Libur & Tambahkan Lagi

1. Untuk start dengan, luncurkan program Outlook Anda.
2. Kemudian akses folder Kalender sumber.
3. Selanjutnya beralih ke tab “View” dan pilih “Change View” > “List”.
4. Setelah itu, Anda harus mengklik tombol "Kategori" di grup "Pengaturan".
5. Selanjutnya, Anda akan melihat bahwa semua janji telah dikelompokkan berdasarkan kategori.
6. Sekarang Anda dapat mengetahui grup "Liburan".
7. Terakhir, klik pada tajuk grup "Liburan" dan kemudian tekan tombol "Hapus".
8. Sekaligus, semua hari libur yang ada telah dihapus.
9. Setelah menghapusnya, Anda dapat menambahkan kembali hari libur. Pertama, buka "File"> Opsi".
10. Di jendela sembulan "Opsi Outlook", Anda dapat beralih ke tab 'Kalender".
11. Di bawah tab ini, Anda akan dapat menemukan tombol "Tambahkan Hari Libur".
12. Kemudian, di kotak dialog baru, pilih lokasi, seperti "Amerika Serikat" dan tekan "OK".
13. Akhirnya, hari libur telah diimpor ke Kalender default lagi.

Metode 2: Hapus Liburan Duplikat dengan VBA

1. Pada awalnya, tekan tombol tombol "Alt + F11".
2. Selanjutnya, Anda akan mengakses jendela editor Outlook VBA, di mana Anda dapat membuka modul yang tidak digunakan.
3. Selanjutnya, salin kode VBA berikut ke dalam modul ini.

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. Pada akhirnya, Anda dapat mencoba makro ini.

• Klik subrutin "HapusDuplikatHolidays".
• Kemudian tekan tombol tombol F5 untuk menjalankannya.
• Setelah selesai, semua liburan duplikat di semua kalender Outlook Anda akan dihapus.

Ambil Data Outlook yang Berharga

Ini adalah fakta yang tidak perlu dipertanyakan lagi bahwa tidak ada program yang dapat menjamin bahwa ia dapat kebal dari kesalahan dan korupsi. Hal yang sama berlaku untuk Outlook. Oleh karena itu, untuk melindungi data Outlook Anda, sebaiknya Anda membuat cadangan data secara teratur. Selain itu, Anda perlu menjadwalkan rencana pemulihan Outlook terlebih dahulu. Last but not least, adalah bijaksana untuk menyiapkan alat perbaikan yang memiliki reputasi baik, seperti DataNumen Outlook Repair. Itu bisa perbaiki Outlook masalah dalam sekejap dan dapatkan kembali data Outlook maksimum dari file yang disusupi.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan Sql Server dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com