Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i gael rhestr o ffolderau yn Outlook?

Weithiau gall strwythur coed yr holl ffolderau post (gan gynnwys y ffolderau personol a grëwyd) yn y Pane Llywio wneud rhywfaint o help i ddefnyddwyr Outlook yn ystod eu gwaith. I restru'r ffolderi strwythur coed cyfan yn gyflym, gall y cod VBA eich helpu chi. Yn y tiwtorial hwn, gallwch ddysgu sut i gael rhestr o ffolderau yn hawdd gyda chod VBA.

Sicrhewch restr o ffolderau yn Outlook gyda chod VBA

Tab Swyddfa - Galluogi Golygu a Phori Tabbed yn y Swyddfa, a Gwneud Gwaith yn Haws Orau ...
Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch Pwerus i Microsoft Outlook
  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl rheolau; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangos neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst ar unwaith; Auto Ychwanegu Cyfarchiad wrth ateb; Auto Ychwanegu Dyddiad ac Amser yn destun ...
  • Offer Ymlyniad: Auto Detach, Cywasgu Pawb, Ail-enwi Pawb, Auto Save All ... Adroddiad Cyflym, Cyfrif Postiau Dethol, Tynnwch y Post a Chysylltiadau Dyblyg ...
  • Bydd mwy na 100 o nodweddion datblygedig datrys y rhan fwyaf o'ch problemau yn Outlook 2010-2019 a 365. Nodweddion llawn treial am ddim 60 diwrnod.

swigen dde glas saethSicrhewch restr o ffolderau yn Outlook gyda chod VBA

I gael rhestr o ffolderau yn Outlook gyda chod VBA, gwnewch fel a ganlyn.

1. Gwasgwch y Alt + F11 allweddi ar y bysellfwrdd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna cliciwch ddwywaith ar y Project1 > Gwrthrych Microsoft Outlook > ThisOutlookSession i agor y Prosiect1 - ThisOutlookSession ffenestr. Gweler y screenshot:

3. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr Project1 - ThisOutlookSession.

VBA: cael rhestr o ffolderau yn 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. Gwasgwch y F5 allwedd ar y bysellfwrdd i ddechrau rhedeg y cod VBA.

5. Nawr a Macro blwch deialog yn ymddangos, cliciwch ar y Run botwm.

6. Arhoswch i'r Macro redeg. Yna mae'r rhestr o'ch holl ffolderau e-bost wedi'i rhestru mewn ffenestr neges newydd wedi'i chreu ar unwaith. Gallwch ei argraffu yn hawdd. Gweler y screenshot:

Nodyn: Gellir cymhwyso'r cod VBA hwn i Outlook 2007, 2010 a 2013.


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Luis Gonzalez · 5 years ago
    For get the size of the folders how do you do it?
  • To post as a guest, your comment is unpublished.
    Master Blaster · 6 years ago
    Working perfect with OLK 365, Thank you!