Outlook: Cara menghapus item kalender duplikat

Terkadang, ada beberapa item kalender duplikat saat kami mengimpor acara dari perangkat lain. Untuk menghapus item kalender duplikat, tutorial ini memperkenalkan dua metode berbeda, satu menghapus satu per satu saat duplikatnya lebih sedikit, yang lain menggunakan VBA untuk menghapus semua duplikat sekaligus.

Hapus duplikat item kalender satu per satu secara manual

VBA untuk menghapus duplikat item kalender sekaligus

Tab Office - Aktifkan Pengeditan dan Penjelajahan dengan Tab di Microsoft Office, Membuat Pekerjaan Menjadi Mudah

Read More ...Unduh ...

Kutools for Outlook - Tingkatkan Outlook dengan 100+ Fitur Lanjutan untuk Efisiensi Unggul

Otomatiskan pengiriman email dengan CC / BCC Otomatis, Maju Otomatis berdasarkan aturan; mengirim Balas otomatis (Di Luar Kantor) tanpa memerlukan server pertukaran...
Dapatkan pengingat seperti Peringatan BCC saat membalas semua saat Anda berada di daftar BCC, dan Ingatkan Saat Lampiran Hilang untuk lampiran yang terlupakan...
Tingkatkan efisiensi email dengan Balas (Semua) Dengan Lampiran, Tambahkan Ucapan atau Tanggal & Waktu secara Otomatis ke Tanda Tangan atau Subjek, Balas Beberapa Email...
Sederhanakan pengiriman email dengan Ingat Email, Alat Lampiran (Kompres Semua, Simpan Otomatis Semua...), Hapus Duplikat, dan Laporan Cepat...

Tingkatkan Outlook 2021 - 2010 atau Outlook 365 Anda dengan fitur-fitur canggih ini. Nikmati uji coba gratis 60 hari yang komprehensif dan tingkatkan pengalaman email Anda!

Read More ...Unduh ...

Hapus duplikat item kalender satu per satu secara manual

Untuk menghapus duplikat item kalender satu per satu, Anda harus mencantumkannya dalam urutan tertentu untuk melihat duplikat dengan jelas terlebih dahulu, lalu menghapusnya satu per satu.

1. Umumnya, kalender dalam Kalender lihat, aktifkan kalender yang ingin Anda hapus duplikatnya, lalu klik View > Ubah Tampilan > Daftar.

Sekarang kalender telah dilihat sebagai daftar.

2. Kemudian tentukan kondisi yang Anda gunakan untuk membandingkan jika item adalah duplikat, misalkan untuk membandingkan jika item memiliki subjek yang sama. Klik SUBJECT dalam daftar kalender, maka semua item dengan subjek yang sama ditempatkan bersama.

3. Sekarang Anda dapat menghapus item yang memiliki subjek yang sama satu per satu dengan mengklik kanan item tersebut dan mengklik Delete dari menu konteks yang muncul.

VBA untuk menghapus duplikat item kalender sekaligus

Di sini memperkenalkan beberapa VBA yang dapat menghapus semua item kalender duplikat dalam folder kalender dalam kasus yang berbeda.

1. tekan lain + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul untuk membuat modul kosong baru, lalu salin dan tempel kode di bawah ini ke modul.

VBA: hapus semua item kalender duplikat dalam satu kategori tertentu

'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change categories as you need in below script
    If xItem.Categories = "date" Then
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
    End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Di VBA ini, itu akan menghapus semua duplikat di “tanggal” kategori ini dengan membandingkan subjek, lokasi, isi dan kategori, Anda dapat mengubahnya sesuai kebutuhan.

3. lalu tekan F5 tombol atau klik Jalankan untuk menjalankan kode, sebuah dialog Macro muncul, pilih HapusDuplikatKalender dan klik Run .

Kemudian item duplikat dalam kategori "tanggal" telah dihapus.

VBA: hapus semua item kalender duplikat di seluruh kategori

Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Jalankan kode ini, semua duplikat yang berada pada subjek, lokasi, isi, kategori yang sama di setiap kategori telah dihapus.