Cara Cepat Mendapatkan Daftar Semua Pengingat yang Ada di Outlook Anda

Jika Anda ingin dengan cepat memeriksa atau mencetak daftar semua pengingat yang ada saat ini di Outlook Anda, terlepas dari pengingat tugas atau pengingat janji temu, Anda dapat menggunakan Outlook VBA. Artikel ini akan memperkenalkan Anda cara mendapatkannya dengan rumit.

Secara umum, cukup mudah untuk melihat semua pengingat yang ada di folder tertentu, seperti semua pengingat di folder tugas tertentu atau kalender tertentu. Namun, jika Anda ingin memeriksa semua pengingat di semua folder Outlook secara bersamaan, jika Anda hanya menggunakan fitur asli Outlook, itu tidak mungkin. Oleh karena itu, Anda harus mencari pendekatan lain, seperti 3^rd add-in pihak atau kode VBA. Di sini kami akan memandu Anda cara cepat semua pengingat saat ini dengan Outlook VBA.

Dapatkan Daftar Semua Pengingat yang Ada dengan Cepat

1. Pertama-tama, start Aplikasi Outlook.
2. Maka Anda harus beralih ke tab "Pengembang". Jika Anda belum menemukannya, maka Anda harus mengaktifkannya terlebih dahulu. Buka "File"> "Opsi"> "Sesuaikan Pita".
3. Selanjutnya, Anda harus mengklik tombol "Visual Basic" di bawah tab ini.
4. Setelah itu, Anda akan mendapatkan akses ke editor Outlook VBA. Saat ini, Anda dapat membuka modul yang tidak digunakan atau memasukkan modul baru dengan memilih “Insert” > “Module”.
5. Selanjutnya Anda harus menyalin dan menempelkan kode VBA berikut ke dalam modul.

Sub GetAllExistingReminders()
    Dim objReminders As Reminders
    Dim objReminder As Reminder
    Dim strReminderDetails As String
    Dim objNewNote As NoteItem
 
    Set objReminders = Outlook.Application.Reminders

   'Check if any reminders exist
    If objReminders.Count = 0 Then
       MsgBox "There is no existing reminder."
    Else
       For Each objReminder In objReminders
           strReminderDetails = strReminderDetails & objReminder.Caption & " (" & TypeName(objReminder.Item) & ") ---- " & objReminder.NextReminderDate & vbCrLf
       Next objReminder
       'Display report in a new note item
       Set objNewNote = Outlook.Application.CreateItem(olNoteItem)
       With objNewNote
            .Body = "All Existing Reminders:" & vbCrLf & vbCrLf & strReminderDetails
            .Categories = "Reminder"
            .Display
            'To print out all these reminders, add ".PrintOut" line.
       End With
    End If
End Sub

6. Nanti Anda dapat mengklik ikon "Jalankan" di bilah alat untuk start makro baru.
7. Akhirnya, item Outlook Note baru akan muncul. Semua pengingat yang ada di Outlook Anda akan disertakan dalam Catatan ini, seperti tangkapan layar berikut:

Catatan: Jika Anda telah menambahkan baris “.PrintOut” di kode VBA, Outlook akan mencetak item catatan secara otomatis. Ini akan terlihat seperti gambar di bawah ini:

Hati-hati dengan Makro Berbahaya

Makro memang sangat membantu dan bermanfaat karena dapat membantu kita menyelesaikan tugas-tugas yang tampaknya mustahil. Namun, Anda harus berhati-hati terhadap makro dari orang lain, karena mungkin berbahaya. Ini berarti makro dari orang lain mungkin mengandung virus, yang dapat merender Korupsi PST dalam sekejap. Dengan asumsi file PST Anda terinfeksi, Scanpst.exe, alat kotak masuk gratis, tidak akan memberikan efek apa pun. Saat itu, Anda tidak punya pilihan selain menggunakan alat yang lebih canggih, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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