Բաց թողնել հիմնական բովանդակությունը

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

Ընդհանուր առմամբ, կարող եք սեղմել Ctrl + 6 ստեղները ՝ Outlook- ում Navigation Pane- ի բոլոր պանակների ցուցակը դիտելու համար: Այնուամենայնիվ, դուք չեք կարող տպել պանակների ցուցակը: Այս հոդվածը կներկայացնի երկու VBA սցենարներ ՝ Outlook- ում բոլոր պանակների և դրանց ենթապանակների ցուցակը արտահանելու և տպելու համար:


Արտահանեք և տպեք Outlook- ի բոլոր պանակների և դրանց ենթապանակների ցուցակը նոր էլ. Փոստով

Այս մեթոդը կներկայացնի VBA ՝ նշված էլփոստի հաշվի բոլոր պանակների և դրանց ենթապանակների ցուցակը արտահանելու համար Outlook- ի նոր էլփոստի մեջ, ապա կարող եք հեշտությամբ տպել պանակների ցուցակը:

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

2: սեղմեք Տեղադրել > Մոդուլներ, ապա VBA կոդի տակ տեղադրեք նոր Մոդուլի պատուհանում:

VBA. Արտահանեք Outlook- ի նոր էլփոստի պանակների և ենթապանակների ցուցակը

Public gFolders As String

Public Sub GetFolderNames()
Dim oSession As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oNewMail As Outlook.mailItem

Set oSession = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oSession.PickFolder

If (oFolder Is Nothing) Then Exit Sub

ProcessFolder oFolder

Set oNewMail = Application.CreateItem(olMailItem)
oNewMail.Body = gFolders
oNewMail.Display

gFolders = ""
End Sub

Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder)

Dim i As Long
Dim oSubFolder As Outlook.MAPIFolder
Dim oFolder As Outlook.MAPIFolder
Dim sFolderPaths As String

    For i = CurrentFolder.Folders.Count To 1 Step -1
Set oFolder = CurrentFolder.Folders(i)

sFolderPaths = oFolder.FolderPath
gFolders = gFolders & vbCrLf & sFolderPaths & " " & oFolder.Items.Count
Next

For Each oSubFolder In CurrentFolder.Folders
If oSubFolder.Name <> "Deleted Items" Then
ProcessFolder oSubFolder
End If

Next

End Sub

3. Մամուլ F5 այս VBA- ի գործարկման բանալին:

4. Ընտրված պանակ երկխոսության պատուհանում դուրս գալուց հետո ընտրեք էլփոստի հաշիվը, որի պանակների ցանկը ցանկանում եք տպել և կտտացրեք OK կոճակ Տեսեք,

5. Եվ հիմա նշված էլփոստի հաշվի պանակների ցուցակը պատճենվում է նոր էլ. Փոստում, ինչպես ցույց է տրված նկարում: Խնդրում ենք սեղմել Ֆայլ > տպել թղթապանակների պատճենված ցուցակը տպելու համար:

6. Տպելուց հետո, առանց խնայելու, փակեք նոր էլ.


Արտահանեք և տպեք Գրառման գրքում առկա բոլոր ենթապանակների Outlook թղթապանակների ցուցակը

Այս մեթոդը կներկայացնի VBA ՝ Outlook- ից Notepad նշված էլփոստի հաշվի մեջ բոլոր պանակների և դրանց ենթապանակների ցուցակը արտահանելու համար, այնուհետև Դուք կարող եք հեշտությամբ տպել Outlook պանակների ցուցակը Notepad- ում:

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

2: սեղմեք Տեղադրել > Մոդուլներ, ապա VBA կոդի տակ տեղադրեք նոր Մոդուլի պատուհանում:

VBA. Արտահանեք բոլոր Outlook պանակների և ենթապանակների ցուցակը Outlook- ից Notepad

Dim gFileName, gCreateTree, gBase

Public Sub ExportFolderTree()
Dim objOutlook
Dim F, Folders
Dim Result

  Set objOutlook = CreateObject("Outlook.Application")

  Set F = objOutlook.Session.PickFolder

If Not F Is Nothing Then
Set Folders = F.Folders

    Result = MsgBox("Do you want to create tree?", vbYesNo + vbDefaultButton2 + vbApplicationModal, "Output Folder Tree")
If Result = 6 Then
gCreateTree = True
Else
gCreateTree = False
End If

    gFileName = GetDesktopFolder() & "\Outlook-Folders.txt"
gBase = Len(F.FolderPath) - Len(Replace(F.FolderPath, "\", "")) + 1

    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))

LoopFolders Folders

Set F = Nothing
Set Folders = Nothing
Set objOutlook = Nothing
End If
End Sub

Private Function GetDesktopFolder()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
GetDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShell = Nothing
End Function

Private Sub LoopFolders(Folders)
Dim F

For Each F In Folders
WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
LoopFolders F.Folders
Next
End Sub

Private Sub WriteToATextFile(OLKfoldername)
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(gFileName, 8, True)
objTextFile.WriteLine (OLKfoldername)
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
End Sub

Private Function CreateFolderTree(OLKfolderpath, OLKfoldername)
If gCreateTree = False Then
CreateFolderTree = Mid(OLKfolderpath, 3)
Else
Dim i, x, OLKprefix
i = Len(OLKfolderpath) - Len(Replace(OLKfolderpath, "\", ""))

    For x = gBase To i
OLKprefix = OLKprefix & "-"
Next

CreateFolderTree = OLKprefix & OLKfoldername
End If
End Function

3. Մամուլ F5 այս VBA- ի գործարկման բանալին: Հաջորդը `Ընտրելով պանակ երկխոսության պատուհանում, ընտրեք էլփոստի հաշիվը, որի պանակների ցուցակը ցանկանում եք արտահանել և տպել, և կտտացրեք OK կոճակ Տեսեք,

4. Ապա գալիս է Արդյունք թղթապանակ ծառի երկխոսության տուփը: Խնդրում ենք սեղմել այո կոճակը կամ Ոչ կոճակը, որքան անհրաժեշտ է:

Եվ հիմա տեքստային ֆայլ, որի անունն է Outlook- պանակներ ստեղծվում և պահվում է ձեր աշխատասեղանին, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը:

5. Կրկնակի կտտացրեք ՝ նոր տեքստային ֆայլը բացելու համար, ապա կտտացրեք Ֆայլ > տպել Outlook պանակների արտահանված ցուցակը տպելու համար:

Մեկ կտտոցով ՝ Outlook- ի Նավիգացիոն վահանակի բոլոր պանակներում տարրերի ընդհանուր քանակը ցույց տալու համար

Սովորաբար, Outlook- ը ցույց է տալիս Նավիգացիոն վահանակի յուրաքանչյուր թղթապանակում չկարդացված իրերի քանակը: Բայց, Kutools- ը Outlook- ի համար Բոլոր պանակները ցույց են տալիս իրերի ընդհանուր քանակը առանձնահատկությունը կարող է օգնել միայն մեկ սեղմումով ցույց տալ բոլոր պանակների տարրերի ընդհանուր քանակը:


բոլոր պանակները ցույց են տալիս ընդհանուր թիվը kto 9.00

Առնչվող հոդվածներ


Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ ProԽմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

 

 

Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thank you so much for this very valuable post. It really helped me a lot as outlook is still not able to show the folder structure!
This comment was minimized by the moderator on the site
Saved us a ton of time. Thanks for the detailed instructions. Worked like a charm! :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
Most excellent tip. Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations