Sut i fynd yn gyflym i ac agor y ffolder o ganlyniad chwilio yn Outlook?

Yn Outlook, gallwch chwilio e-byst yn seiliedig ar y testun penodol gyda'r swyddogaeth Chwilio. Ond, os ydych chi'n chwilio trwy'r holl eitemau rhagolygon, ni allwch ddarganfod ffolder y canlyniad chwilio yn gyflym. Yn yr achos hwn, yma mae gen i rai triciau a all eich helpu i fynd yn gyflym ac agor ffolder y canlyniad chwilio.

Ewch i ac agor y ffolder o ganlyniad chwilio gyda VBA

Ewch i ac agor y ffolder o ganlyniad chwilio gyda De-gliciwch

Ewch i ac agor y ffolder o ganlyniad chwilio gyda VBA

Yn Outlook, nid oes swyddogaeth adeiledig a all drin y swydd hon, ac eithrio cod VBA.

Cyn defnyddio'r cod VBA, mae angen i chi arddangos enw'r ffolder yn y canlyniadau a chwiliwyd.

1. Cliciwch Gweld > Ychwanegu Colofnau.

2. Yn y Dangos Colofnau deialog ac i mewn Dewiswch y colofnau sydd ar gael o rhestr ostwng, dewiswch Pob maes Post, yna dewiswch Yn Ffolder yn y Colofnau sydd ar gael rhestr.

3. Cliciwch Ychwanegu i ychwanegu Mewn Ffolderi i Dangoswch y colofnau hyn yn y drefn hon rhestr, yna cliciwch Symud i fyny botwm i symud Yn Ffolder i y brig.

4. Cliciwch OK i gau deialog. Nawr tra'ch bod chi'n chwilio e-byst, bydd enw'r ffolder yn cael ei arddangos mewn canlyniadau chwilio.

5. Nawr pwyswch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau i greu Modiwl newydd.

6. Copïwch a gludwch y cod isod i'r Modiwl.

VBA: Ewch i'r ffolder yn ôl enw

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7. Gwasgwch F5 allwedd i alluogi'r cod, nawr nodwch enw'r ffolder rydych chi am fynd iddo i'r ymgom.

8. Cliciwch OK, mae deialog yn ymddangos i'ch atgoffa lleoliad y ffolder, cliciwch Ydy i fynd yn uniongyrchol i'r ffolder, neu glicio Na i ganslo.

Ewch i ac agor y ffolder o ganlyniad chwilio gyda De-gliciwch

Os oes gennych Kutools ar gyfer Rhagolwg, bydd Ffolder agored gwreiddio cyfleustodau yn y ddewislen clic dde a all fynd yn gyflym i ffolder yr e-bost a ddewiswyd.

Gosod am ddim Kutools ar gyfer Outlook, ac yna gwnewch fel y camau isod:

Ar ôl chwilio, cliciwch ar y dde ar y canlyniad rydych chi am agor ei ffolder, dewiswch Ffolder agored o'r ddewislen cyd-destun.

---

Offer Cynhyrchiant Swyddfa Gorau

Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook

🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...

📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP)  /  Amserlen Anfon E-byst  /  Auto CC/BCC gan Reolau Wrth Anfon E-bost  /  Awto Ymlaen (Rheolau Uwch)   /  Auto Ychwanegu Cyfarchiad   /  Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...

📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd  /  Rhwystro E-byst Sgam gan Bynciau ac Eraill  /  Dileu E-byst Dyblyg  /  Chwilio Manwl  /  Cydgrynhoi Ffolderi ...

📁 Ymlyniadau Pro: Arbed Swp  /  Swp Datgysylltu  /  Cywasgu Swp  /  Auto Achub   /  Datgysylltiad Auto  /  Cywasgiad Auto ...

🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl   /  Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed  /  Lleihau Outlook Yn lle Cau ...

???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn  /   E-byst Gwrth-Gwe-rwydo  /  🕘Dangos Parth Amser yr Anfonwr ...

👩🏼‍🤝‍👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol  /  Rhannwch Grŵp Cyswllt i Grwpiau Unigol  /  Dileu Atgoffa Pen-blwydd ...

Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.

Darllenwch fwy       Lawrlwythiad Am Ddim      prynu