Cara Cepat Mendapatkan Daftar Pengingat yang Ditunda di Outlook Anda

Setelah menunda pengingat, Anda mungkin merasa sedikit kesulitan untuk mengetahui pengingat yang ditunda di antara semua pengingat. Sekarang, dalam artikel ini, kami akan mengajari Anda cara cepat mendapatkan daftar pengingat yang ditunda di Outlook Anda.

Saat pengingat muncul di Outlook, Anda dapat memilih untuk mengabaikan atau menundanya. Most waktu, jika saat ini Anda tidak punya waktu untuk berurusan dengan item terkait saat pengingat mengingatkan Anda, Anda akan memilih untuk menunda pengingat untuk waktu tertentu, seperti 5 menit, 1 jam, dll. Namun, setelah menundanya, Anda akan merasa agak sulit menemukan pengingat yang ditunda. Dalam hal ini, Anda akan merindukan solusi yang memungkinkan Anda mengetahui semua pengingat yang ditunda sekaligus. Nah, untuk selanjutnya akan kami bagikan caranya.

Dapatkan Daftar Pengingat yang Ditunda

1. Untuk sebagaitart, luncurkan aplikasi Outlook Anda.
2. Kemudian, setelah masuk ke jendela Outlook utama, Anda harus menekan tombol tombol “Alt + F11”.
3. Selanjutnya, Anda akan mendapatkan akses ke jendela editor VBA dengan sukses.
4. Sekarang, Anda harus menemukan modul yang tidak terpakai.
5. Selanjutnya, salin dan tempel kode VBA berikut ke dalam modul ini.

Sub GetListofSnoozedReminders()
    Dim objReminder As Outlook.Reminder
    Dim objReminders As Outlook.Reminders
    Dim strList As String
    Dim i As Long
    Dim objNote As Outlook.NoteItem
    
    'Get all the reminders in Outlook
    Set objReminders = Outlook.Reminders
 
    i = 1
    For Each objReminder In objReminders
        'Get the snoozed reminders
        If (objReminder.OriginalReminderDate <> objReminder.NextReminderDate) = True Then
            strList = strList & i & ". " & objReminder.Caption & " (" & Replace(TypeName(objReminder.Item), "Item", "") & ")" & vbCrLf & " Snoozed to " & objReminder.NextReminderDate & vbCrLf & vbCrLf
           i = i + 1
        End If
    Next objReminder
  
    'Display the list of snoozed reminders in a Note
    Set objNote = Outlook.Application.CreateItem(olNoteItem)
    With objNote
         .Body = "Snoozed Reminders" & vbCrLf & vbCrLf & strList
         .Display
    End With
End Sub

6. Setelah itu, Anda dapat menjalankan makro ini dengan mengeklik ikon "Jalankan" di bilah alat atau mengetuk tombol "F5".
7. Akhirnya, item catatan baru akan ditampilkan di latar belakang. Ini akan menampilkan seperti tangkapan layar berikut:
8. Jika Anda ingin mencetak item ini, Anda dapat menemukannya di folder "Catatan". Lalu, buka menu "File", alihkan ke tab "Print" dan tekan tombol "Print".

Gunakan Alat Perbaikan yang Lebih Kuat

Seperti yang kita semua tahu, Outlook hadir dengan alat perbaikan bawaan. Jika dihadapkan dengan masalah kecil, Anda dapat menggunakannya. Namun, jika menghadapi masalah yang rumit, sebaiknya Anda menggunakan bantuan alat eksternal lainnya, seperti DataNumen Outlook Repair. Itu dapat memperbaiki berbagai masalah Outlook dan memulihkan PST data dengan utmost kemudahan tidak peduli seberapa parah file PST rusak.

Pengantar Penulis:

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