Cara Cepat Membuat Folder Pencarian untuk Semua Email yang Tidak Dibalas melalui Outlook VBA

Untuk memeriksa email yang belum dibalas dengan lebih mudah di Outlook Anda, Anda dapat membuat folder pencarian untuk email tersebut. Sekarang, artikel ini akan memperkenalkan Anda cara mendapatkannya dengan Outlook VBA.

Dalam artikel sebelumnya “Cara Otomatis Menyorot Email Penting yang Belum Anda Balas di Outlook”, Anda dapat mempelajari cara untuk menampilkan email penting yang belum Anda balas dengan warna tertentu. Namun, Anda mungkin merasa masih repot karena harus melihat semua folder email satu per satu. Oleh karena itu, Anda ingin langsung mengumpulkan semua email tersebut di folder pencarian. Sekarang, berikut ini, kami akan mengajari Anda menggunakan VBA untuk membuat folder pencarian dengan cepat.

Buat Folder Pencarian untuk Semua Email yang Belum Dibalas

1. Pada awalnya, start Aplikasi Outlook.
2. Kemudian, tekan tombol "Alt + F11" untuk mengakses editor VBA.
3. Selanjutnya, salin kode VBA berikut ke modul yang tidak digunakan.

Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim strScope As String
    Dim strRepliedProperty As String
    Dim strFilter As String
    Dim objSearch As Outlook.Search
 
    'Specify the folders to be searched
    'Here we use Inbox folder for an example
    strScope = "'" & Application.Session.GetDefaultFolder(olFolderInbox).FolderPath & "'"
 
    'Search filter
    strRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
    strFilter = Chr(34) & strRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & strRepliedProperty & Chr(34) & " <> 103"
    Set objSearch = Outlook.Application.AdvancedSearch(Scope:=strScope, Filter:=strFilter, SearchSubFolders:=True, Tag:="SearchFolder")
 
    'Save the search folder
    objSearch.Save ("Not Replied Emails")
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Search Folder"
End Sub

4. Selanjutnya, letakkan kursor di subrutin ini.
5. Setelah itu, klik tombol tombol “F5” untuk memicu makro ini.
6. Ketika makro selesai, sebuah pesan, seperti gambar berikut, akan ditampilkan.
7. Terakhir, Anda dapat melihat folder pencarian baru bernama “Not Replied Emails”, yang berisi semua email yang belum dibalas di Inbox.

Ubah Lingkup Pencarian dari Folder Pencarian

Dalam kode VBA saya, folder pencarian ini hanya mencari folder Kotak Masuk default. Jika Anda ingin mengubah cakupan pencarian, Anda dapat mengikuti langkah-langkah di bawah ini.

1. Pertama, klik kanan folder pencarian.
2. Kemudian, pilih "Sesuaikan Folder Pencarian Ini" dari menu konteks.
3. Selanjutnya, dalam dialog "Folder Pencarian Kustom" yang muncul, klik tombol "Jelajahi".
4. Kemudian, kotak dialog baru "Select Folder(s)" akan ditampilkan. Di dalamnya, Anda dapat memilih folder untuk mencari email yang belum Anda balas.
5. Terakhir, setelah memilih, Anda cukup mengklik beberapa "OK" untuk menerapkan perubahan.

Hilangkan Kesalahan Outlook yang Sering Terjadi

Adalah umum untuk menerima pesan kesalahan di Outlook Anda, seperti kesalahan yang terkait dengan kegagalan pengiriman/penerimaan, kesalahan yang melibatkan file Outlook PST yang tidak dapat diakses dan sebagainya. Oleh karena itu, untuk mengatasi kesalahan ini dengan cepat dan efektif, Anda harus mempelajari cara menemukan dan memanfaatkan alat perbaikan kotak masuk. Selain itu, dalam kasus kegagalan alat bawaan, disarankan untuk mendapatkan utilitas eksternal lain yang sangat baik, seperti: DataNumen Outlook Repair.

Pengantar Penulis:

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