2 Cara Batch Menghapus Pengingat dari Semua Item Kalender Gratis atau Tentatif di Outlook

Untuk item kalender yang ditampilkan sebagai "Gratis" atau "Tentatif", Anda mungkin ingin menghapus pengingatnya. Sekarang, di artikel ini, kami akan memperkenalkan 2 metode yang memungkinkan Anda mendapatkannya secara massal.

Mungkin Anda telah mengonfigurasi waktu pengingat default untuk semua item kalender. Dalam hal ini, tidak peduli item sibuk, sedang tidak di kantor, gratis atau tentatif, mereka akan selalu mengaktifkan pengingat. Namun, biasanya barang gratis dan tentatif sebenarnya tidak membutuhkan pengingat. Oleh karena itu, Anda ingin menghapus pengingat dari item tersebut. Jadi, di sini kami akan mengajari Anda 2 cara untuk mewujudkannya sekaligus.

Metode 1: Hapus Batch dalam Satu Kalender Secara Manual

1. Pertama, buka kalender.
2. Kemudian, geser ke tab "Tampilan" dan klik "Ubah Tampilan"> "Daftar".
3. Selanjutnya, klik tombol "Lihat Pengaturan".
4. Di kotak dialog popup, tekan tombol "Group By".
5. Setelah itu, di dialog baru lainnya, pilih "Pengingat" di "Kelompokkan item menurut" dan klik "OK".
6. Nanti, klik tombol "Kolom".
7. Dalam dialog "Tampilkan Kolom", tambahkan kolom "Tampilkan Waktu Sebagai" dan tekan "OK".
8. Selanjutnya, klik "OK" untuk menyimpan pengaturan tampilan.
9. Dalam daftar item kalender, temukan dan pilih semua item bebas / tentatif di grup “Reminder: Yes”.
10. Terakhir, seret dan lepas ke grup "Reminder: No".

Metode 2: Hapus Batch di Semua Kalender dengan VBA

1. Pertama-tama, tekan "Alt + F11" untuk memicu editor VBA.
2. Kemudian, salin kode VBA di bawah ini ke dalam modul.

Sub RemoveReminders_TentativeCalendarItems()
    Dim objStore As Outlook.Store
    Dim objFolder As Outlook.Folder
 
    For Each objStore In Application.Session.Stores
        'Process all Calendar folders
        For Each objFolder In objStore.GetRootFolder.Folders
            If objFolder.DefaultItemType = olAppointmentItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
    Dim i As Long
    Dim objAppointment As Outlook.AppointmentItem
    Dim objSubCalendar As Outlook.Folder
 
    'Remove Reminders from Free/Tentative Calendar Items
    For i = objCalendar.Items.Count To 1 Step -1
        Set objAppointment = objCalendar.Items(i)
        If objAppointment.BusyStatus = olFree Or objAppointment.BusyStatus = olTentative Then
           If objAppointment.ReminderSet = True Then
              objAppointment.ReminderSet = False
              objAppointment.Save
           End If
        End If
    Next
 
    'Process Subfolders Recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call ProcessFolders(objSubCalendar)
       Next
    End If
End Sub

3. Setelah itu, pindahkan kursor ke subrutin pertama.
4. Terakhir, tekan tombol "F5".
5. Sekaligus, semua pengingat item kalender gratis atau tentatif akan dihapus.

Atasi Masalah Outlook yang Mengganggu

Sangat umum untuk menghadapi masalah lain-lain di Outlook, seperti kerusakan file PST, infeksi virus, penghapusan item yang tidak disengaja, dll. Untuk menanganinya tepat waktu dan efektif, sebaiknya simpan Perbaikan PST alat di sekitarnya, seperti DataNumen Outlook Repair. Ini dapat menyelamatkan Anda dari kehilangan data Outlook yang mengganggu.

Pengantar Penulis:

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