Conas fillteán cuardaigh a chruthú do gach ríomhphost nár freagraíodh in Outlook?

Más mian leat na ríomhphoist nár freagraíodh i do Outlook a sheiceáil, tógfaidh sé go leor ama iad a chuardach ceann ar cheann. An t-alt seo, labhróidh mé faoi fhillteán cuardaigh a chruthú do gach teachtaireacht nár freagraíodh.

Cruthaigh fillteán cuardaigh do gach ríomhphost nár freagraíodh in Outlook le cód VBA

Cruthaigh fillteán cuardaigh do gach ríomhphost nár freagraíodh in Outlook le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat fillteán cuardaigh a chruthú ina gcuirfidh sé gach ríomhphost nár freagraíodh, déan é seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Modúil Fuinneog.

Cód VBA: Cruthaigh fillteán cuardaigh le haghaidh ríomhphoist nár freagraíodh:

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. Ansin, brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach mar a thaispeántar an scáileán a leanas:

4. Cliceáil OK cnaipe, anois, gheobhaidh tú a Ríomhphoist Gan Freagra fillteán faoi Cuardaigh Fillteáin do gach cuntas i do Outlook, agus taispeántar gach ríomhphost nár freagraíodh anseo, féach an scáileán: