Sut i greu ffolder chwilio ar gyfer pob e-bost heb ei ateb yn Outlook?

Os ydych chi am wirio'r e-byst heb eu hateb yn eich Camre, bydd eu chwilio fesul un yn cymryd llawer o amser. Yr erthygl hon, byddaf yn siarad am greu ffolder chwilio ar gyfer yr holl negeseuon na chawsant eu hateb.

Creu ffolder chwilio ar gyfer pob e-bost heb ei ateb yn Outlook gyda chod VBA

Creu ffolder chwilio ar gyfer pob e-bost heb ei ateb yn Outlook gyda chod VBA

Gall y cod VBA canlynol eich helpu i greu ffolder chwilio lle bydd yn rhoi pob e-bost heb ei ateb, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Modiwlau Ffenestr.

Cod VBA: Creu ffolder chwilio ar gyfer e-byst heb eu hateb:

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. Yna, pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei nodi fel y dangosir y llun a ganlyn:

4. Cliciwch OK botwm, nawr, fe gewch chi E-byst Heb eu hateb ffolder o dan y Chwilio Ffolderi ar gyfer pob cyfrif yn eich Rhagolwg, ac mae'r holl negeseuon e-bost heb eu hateb yn cael eu harddangos yma, gweler y screenshot: