Cum se obține lista de foldere în Outlook?

Uneori, structura arborescentă a tuturor folderelor de poștă electronică (include folderele personale create) în panoul de navigare poate ajuta utilizatorii Outlook în timpul muncii lor. Pentru listarea rapidă a tuturor folderelor structurii copacului, codul VBA vă poate ajuta. În acest tutorial, puteți afla cum să obțineți cu ușurință lista de foldere cu codul VBA.

Obțineți lista de foldere în Outlook cu codul VBA

Obțineți lista de foldere în Outlook cu codul VBA

Pentru a obține o listă de foldere în Outlook cu cod VBA, procedați după cum urmează.

1. apasă pe Alt + F11 tastele de pe tastatură pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi faceți dublu clic pe Project1 > Obiect Microsoft Outlook > Această sesiune Outlook pentru a deschide Project1 - ThisOutlookSession fereastră. Vedeți captura de ecran:

3. Apoi copiați și lipiți codul VBA de mai jos în fereastra Project1 - ThisOutlookSession.

VBA: obțineți lista de foldere în 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. apasă pe F5 tasta de pe tastatură pentru a începe să ruleze codul VBA.

5. Acum a Macro apare caseta de dialog, faceți clic pe Alerga butonul.

6. Așteptați ca Macro să ruleze. Apoi, lista tuturor folderelor de e-mail este listată imediat într-o fereastră nouă de mesaje creată imediat. Îl puteți imprima cu ușurință. Vedeți captura de ecran:

notițe: Acest cod VBA poate fi aplicat Outlook 2007, 2010 și 2013.

---

Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

• Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
• Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
• Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
• Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
• E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.

Citeşte mai mult ... Descarcă acum...