Note: The other languages of the website are Google-translated. Back to English

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

Fila Office - Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Outlook - aduce 100 de caracteristici avansate puternice în Microsoft Outlook
  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte E-mailuri multiple după reguli; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul atunci 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 în conversația prin poștă; Răspundeți la multe e-mailuri simultan; Adăugare automată felicitare când răspundeți; Adăugare automată a datei și orei în subiect ...
  • Instrumente de atașare: Detașare automată, Comprimare toate, Redenumire toate, Salvare automată toate ... Raport rapid, Numărați mesajele selectate, Eliminați mesajele și persoanele de contact duplicate ...
  • Mai mult de 100 de funcții avansate vor rezolva majoritatea problemelor tale în Outlook 2021 - 2010 sau Office 365. Caracteristici complete Probă gratuită de 60 de zile.

săgeată albastru dreapta balonObț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.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (2)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează perfect cu OLK 365, mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Pentru a obține dimensiunea folderelor, cum o faci?
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL