Skip i'r prif gynnwys

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.
doc ewch i ffolder agored canlyniad chwilio 1

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.
doc ewch i ffolder agored canlyniad chwilio 2

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.
doc ewch i ffolder agored canlyniad chwilio 3

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.
doc ewch i ffolder agored canlyniad chwilio 4

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.
doc ewch i ffolder agored canlyniad chwilio 5

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.
doc ewch i ffolder agored canlyniad chwilio 6


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.

Kutools for Outlook , Yn cynnwys 100 + nodweddion ac offer pwerus ar gyfer Microsoft Outlook 2016, 2013, 2010 ac Office 365.

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.
doc ewch i ffolder agored canlyniad chwilio 7


Offer Cynhyrchiant Swyddfa Gorau

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

📧 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 ProArbed 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.

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
HI Guys,
Will this scroll the folder pane as well?  Most of the time the folder is selected but the folder location doesnt get scrolled to  in the folder pane?
Cheers,

This comment was minimized by the moderator on the site
Deleted emails Folder
This comment was minimized by the moderator on the site
Hi, Red McKenna, each account has each deleted forlder, it is called Deleted items.
This comment was minimized by the moderator on the site
Where is the deleted email folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations