Conas liosta fillteán a fháil in Outlook?

Uaireanta is féidir le struchtúr crainn gach fillteáin ríomhphoist (na fillteáin phearsanta chruthaithe san áireamh) sa Phána Nascleanúna roinnt cabhrach a dhéanamh d’úsáideoirí Outlook le linn a gcuid oibre. Chun na fillteáin struchtúir crainn iomlána a liostáil go tapa, is féidir leis an gcód VBA cabhrú leat. Sa rang teagaisc seo, is féidir leat foghlaim conas liosta fillteán a fháil go héasca le cód VBA.

Faigh liosta na bhfillteán in Outlook le cód VBA

Cluaisín Oifige - Cumasaigh Eagarthóireacht agus Brabhsáil Tábáilte i Microsoft Office, Ag Cur le hObair

Leigh Nios mo...Íoslódáil ...

Kutools le haghaidh Outlook - Treisiú Outlook le 100+ Gnéithe Casta le haghaidh Éifeachtúlacht Superior

Uathoibriú ríomhphost le Auto CC / BCC, Auto Ar Aghaidh le rialacha; seol Freagra Auto (As Oifig) gan freastalaí malartaithe a bheith ag teastáil...
Faigh meabhrúcháin cosúil le Rabhadh BCC nuair a thugann tú freagra ar gach duine agus tú ar an liosta BCC, agus Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh le haghaidh ceangaltán dearmadta...
Feabhas a chur ar éifeachtacht ríomhphoist le Freagra (Gach) Le Ceangaltáin, Auto Cuir Beannacht nó Dáta & Am isteach i Síniú nó Ábhar, Freagair Ríomhphoist Il...
Sruthlínigh ríomhphost le Ríomhphoist a Athghairm, Uirlisí Ceangail (Comhbhrúigh Uile, Sábháil Uile...), Bain Dúblaigh, agus Tuarascáil Thapa...

Treisigh do Outlook 2021 - 2010 nó Outlook 365 leis na hardghnéithe seo. Bain sult as triail chuimsitheach 60-lá saor in aisce agus ardaigh do thaithí ríomhphoist!

Leigh Nios mo...Íoslódáil ...

Faigh liosta na bhfillteán in Outlook le cód VBA

Chun liosta fillteán a fháil in Outlook le cód VBA, déan mar a leanas le do thoil.

1. Brúigh an Eile + F11 eochracha ar an méarchlár chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Ansin cliceáil faoi dhó ar an Project1 > Microsoft Outlook Object > ThisOutlookSession a oscailt Tionscadal1 - ThisOutlookSession fuinneog. Féach an pictiúr:

3. Ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog Project1 - ThisOutlookSession.

VBA: faigh liosta na bhfillteán in Outlook

Option Explicit
Sub GetFoldersList()
    On Error GoTo On_Error
    
    Dim Report As String
    Dim Folder As Outlook.Folder
       
    For Each Folder In Application.Session.Folders
        Report = Report & "---------------------------------------------------------------------------" & vbCrLf
        Call RecurseFolders(Folder, "", Report)
    Next
    Call CreateReportEmail("Outlook Folders List", Report)
    
Exiting:
    Exit Sub
On_Error:
    MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
    Dim SubFolder As Outlook.Folder
    Dim FolderName, StoreName As String
    
    FolderName = CurrentFolder.Name
    StoreName = CurrentFolder.Store.DisplayName
    
    Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
    
    For Each SubFolder In CurrentFolder.Folders
        Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
    Next SubFolder
End Sub
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub

4. Brúigh an F5 eochair ar an méarchlár chun an cód VBA a rith.

5. Anois a Macra bosca dialóige aníos, cliceáil le do thoil ar an Rith cnaipe.

6. Fan go rithfidh an Macra. Ansin liostaítear liosta d’fhillteáin ríomhphoist uile i bhfuinneog teachtaireachta nua cruthaithe láithreach. Is féidir leat é a phriontáil go héasca. Féach an pictiúr: