Ինչպե՞ս ստանալ Outlook- ի պանակների ցուցակը:

Երբեմն Նավիգացիոն վահանակում բոլոր փոստային պանակների (ներառյալ ստեղծված անձնական պանակները) ծառի կառուցվածքը կարող է որոշակի օգնություն ցուցաբերել Outlook- ի օգտվողներին իրենց աշխատանքի ընթացքում: Treeառի կառուցվածքի ամբողջ պանակներն արագ ցուցակելու համար VBA կոդը կարող է օգնել ձեզ: Այս ձեռնարկում դուք կարող եք իմանալ, թե ինչպես հեշտությամբ ձեռք բերել պանակների ցուցակ VBA կոդով:

Ստացեք Outlook- ի պանակների ցուցակը VBA կոդով

Office Tab - Միացրեք ներդիրներով խմբագրումը և զննարկումը Microsoft Office-ում, ինչը հեշտացնում է աշխատանքը

Կարդալ ավելին...Ներբեռնել ...

Kutools Outlook-ի համար - Բարձրացրեք Outlook-ը 100+ առաջադեմ հատկություններով բարձր արդյունավետության համար

Ավտոմատացնել էլ Auto CC / BCC, Ավտոմեքենաների փոխանցում կանոններով; ուղարկել Ավտոմատ պատասխան (Offoff Office) առանց փոխանակման սերվեր պահանջելու...
Ստացեք նման հիշեցումներ Նախազգուշացում BCC- ի համար երբ պատասխանում եք բոլորին, երբ դուք BCC ցուցակում եք, և Հիշեցրեք հավելվածները բաց թողնելիս մոռացված հավելվածների համար...
Բարելավել էլփոստի արդյունավետությունը Պատասխանել (Բոլորը) Հավելվածներով, Ավտոմատ ավելացրեք ողջույն կամ ամսաթիվ և ժամ ստորագրության կամ թեմայի մեջ, Պատասխանել բազմաթիվ էլ...
Հեշտացնել էլփոստի ուղարկումը Վերհիշել նամակները, Կցման գործիքներ (Սեղմել բոլորը, ավտոմատ պահել բոլորը...), Հեռացնել կրկնօրինակները, եւ Արագ հաշվետվություն...

Ամրապնդեք ձեր Outlook 2021 - 2010 կամ Outlook 365 այս առաջադեմ գործառույթները: Վայելեք համապարփակ 60-օրյա անվճար փորձարկումը և բարձրացրեք ձեր էլփոստի փորձը:

Կարդալ ավելին...Ներբեռնել ...

Ստացեք Outlook- ի պանակների ցուցակը VBA կոդով

Outlook- ում VBA կոդով պանակների ցուցակ ստանալու համար խնդրում ենք անել հետևյալը.

1. Սեղմեք ալտ + F11 ստեղնաշարի ստեղները `բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Դրանից հետո կրկնակի կտտացրեք այն Project1 > Microsoft Outlook օբյեկտ > ԱյսOutlookSession- ը բացելու համար Project1 - ThisOutlookSession պատուհան Տեսեք,

3. Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը Project1 - ThisOutlookSession պատուհանում:

VBA. Ստացեք 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. Սեղմեք F5 ստեղնաշարի ստեղնը ՝ VBA կոդը գործարկելու համար:

5. Հիմա ա Մակրո երկխոսության պատուհանը հայտնվում է, սեղմեք Վազում կոճակը:

6. Սպասեք մակրո գործարկման: Այնուհետև ձեր բոլոր էլփոստի պանակների ցուցակը ցուցակագրված է անմիջապես ստեղծված նոր հաղորդագրության պատուհանում: Դուք կարող եք հեշտությամբ տպել այն: Տեսեք,