Conas dul go tapa agus fillteán an toraidh cuardaigh in Outlook a oscailt?

In Outlook, is féidir leat ríomhphoist a chuardach bunaithe ar an téacs sonrach leis an bhfeidhm Cuardaigh. Ach má tá tú ag cuardach trí gach mír dearcadh, ní féidir leat fillteán an toraidh cuardaigh a fháil amach go tapa. Sa chás seo, tá roinnt cleasanna agam anseo a chabhróidh leat dul go tapa chuig fillteán an toraidh cuardaigh agus é a oscailt.

Téigh chuig agus oscail fillteán an toraidh cuardaigh le VBA

Téigh go dtí agus fillteán an toraidh cuardaigh le Deaschliceáil agus oscail é

Téigh chuig agus oscail fillteán an toraidh cuardaigh le VBA

In Outlook, níl aon fheidhm ionsuite ann a fhéadfaidh an post seo a láimhseáil, seachas cód VBA.

Sula n-úsáidtear an cód VBA, ní mór duit ainm an fhillteáin a thaispeáint sna torthaí cuardaigh.

1. cliceáil Amharc > Cuir Colúin leis.

2. Sa Taispeáin Colúin dialóg agus i Roghnaigh na colúin atá ar fáil ó liosta anuas, roghnaigh Gach réimse Ríomhphoist, Ansin roghnaigh I bhFillteán sa Colúin atá ar fáil liosta.

3. cliceáil Cuir a chur I bhFillteáin chun Taispeáin na colúin seo san ord seo liosta, ansin cliceáil Éirí suas cnaipe le bogadh I bhFillteán go an barr.

4. cliceáil OK chun dialóg a dhúnadh. Anois agus tú ag cuardach ríomhphoist, taispeánfar ainm an fhillteáin i dtorthaí an chuardaigh.

5. Anois brúigh Alt + F11 eochracha le cumasú Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil chun Modúl nua a chruthú.

6. Cóipeáil agus greamaigh an cód thíos sa Mhodúl.

VBA: Téigh chuig fillteán de réir ainm

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. Brúigh F5 eochair chun an cód a chumasú, cuir isteach ainm an fhillteáin ar mhaith leat dul isteach sa dialóg anois.

8. cliceáil OK, tagann dialóg amach chun suíomh an fhillteáin a mheabhrú duit, cliceáil Is ea chun dul go díreach chuig an bhfillteán, nó cliceáil Uimh a chur ar ceal.

Téigh go dtí agus fillteán an toraidh cuardaigh le Deaschliceáil agus oscail é

Má tá tú Kutools for Outlook, beidh Fillteán oscailte tá fóntais leabaithe sa roghchlár deaschliceáil ar féidir léi dul go tapa chuig fillteán an ríomhphoist roghnaithe.

Suiteáil saor in aisce Kutools for Outlook, agus ansin déan mar atá thíos na céimeanna:

Tar éis cuardach a dhéanamh, cliceáil ar dheis ar an toradh a theastaíonn uait a fhillteán a oscailt, roghnaigh Fillteán oscailte ón roghchlár comhthéacs.