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

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

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

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

ՆշումԱյս VBA կոդը կարող է կիրառվել Outlook 2007, 2010 և 2013 թվականների համար:

---

Kutools Outlook- ի համար. 100 առաջադեմ առանձնահատկություններ է բերում Outlook- ին և շատ ավելի հեշտացնում աշխատանքը:

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

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