Bagaimana cara membuat folder pencarian untuk semua email yang tidak dijawab di Outlook?

Jika Anda ingin memeriksa email yang tidak dijawab di Outlook Anda, untuk mencarinya satu per satu akan memakan banyak waktu. Artikel ini, saya akan berbicara tentang membuat folder pencarian untuk semua pesan yang tidak dibalas.

Buat folder pencarian untuk semua email yang tidak dijawab di Outlook dengan kode VBA

Buat folder pencarian untuk semua email yang tidak dijawab di Outlook dengan kode VBA

Kode VBA berikut dapat membantu Anda membuat folder pencarian tempat meletakkan semua email yang tidak dijawab, lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul Jendela.

Kode VBA: Buat folder pencarian untuk email yang tidak dijawab:

Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim xSearch As Outlook.Search
    Dim xScope As String, xFilter As String
    Dim xRepliedProperty As String
    Dim xFolder As Folder, xSubFolder As Folder
    On Error Resume Next
    xScope = ""
    For Each xFolder In Outlook.Application.Session.Folders
        Set xSubFolder = xFolder.Folders("Inbox")
        xScope = "'" + xSubFolder.FolderPath + "'"
        xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
        xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
        Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
        xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
        Set xSearch = Nothing
        Set xSubFolder = Nothing
    Next
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul seperti gambar berikut yang ditampilkan:

4. Klik OK tombol, sekarang, Anda akan mendapatkan file Tidak Dibalas Email folder di bawah Folder Pencarian untuk setiap akun di Outlook Anda, dan semua email yang tidak dijawab ditampilkan di sini, lihat tangkapan layar: