Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i greu ffolder chwilio ar gyfer yr holl negeseuon e-bost sydd heb eu hateb yn Outlook?

Os ydych chi eisiau gwirio negeseuon e-bost heb eu hateb yn eich Outlook, byddant yn chwilio am lawer ohonynt. Yr erthygl hon, byddaf yn siarad am greu ffolder chwilio ar gyfer yr holl negeseuon heb eu hateb.

Creu ffolder chwilio ar gyfer yr holl negeseuon e-bost heb eu hateb yn Outlook gyda chod VBA


Creu ffolder chwilio ar gyfer yr holl negeseuon e-bost heb eu hateb 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. Dal 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 negeseuon e-bost 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 wedi'i datgelu fel y lluniau canlynol a ddangosir:

ffolder chwilio doc ar gyfer 1 annibynadwy

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

ffolder chwilio doc ar gyfer 2 annibynadwy



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.