Съвет: Други езици са преведени от Google. Можете да посетите English версия на тази връзка.
Влизане
x
or
x
x
Регистрирам
x

or

Как да експортирате и отпечатате списък на всички папки и подпапки в Outlook?

Като цяло можете да натиснете Ctrl + 6 за да видите списъка с всички папки в панела за навигация в Outlook. Не можете обаче да отпечатате списъка с папки. Тази статия ще въведе два VBA скрипта за експортиране и отпечатване на списъка с всички папки и техните подпапки в Outlook.

Едно кликване показва общия брой елементи във всички папки в панела за навигация в Outlook

Обикновено Outlook показва броя на непрочетените елементи във всяка папка в навигационния екран. Но, Kutools за Outlook Всички папки показват общия брой елементи функция може да ви помогне да покажете общия брой елементи във всички папки само с едно кликване. Кликнете за безплатен пробен период 60-дни без ограничение!
всички папки показват общия брой kto 9.00

Kutools за Outlook: 100 + Нови разширени инструменти за Outlook.
Таб на Office: Активиране на редактиране и сърфиране в раздела с папки в Office, Точно като Chrome, Firefox, IE 8 / 9 / 10.
Класическо меню: Носете стари менюта и ленти с инструменти към Office 2007, 2010, 2013, 2016 и 2019.

arrow синя десен балон Експортирайте и отпечатайте списъка с всички папки на Outlook и техните подпапки в нов имейл

Този метод ще въведе VBA, за да експортирате списъка на всички папки и техните подпапки в определен имейл акаунт в нов имейл в Outlook, след което можете да отпечатате списъка с папки лесно.

1. Натиснете Друг + F11 за да отворите прозореца Microsoft Visual Basic for Applications.

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. След отпечатването, моля, затворете новия имейл, без да го запазвате.


arrow синя десен балон Експортирайте и отпечатайте списъка на всички папки на Outlook и тези подпапки в Notepad

Този метод ще въведе VBA, за да експортирате списъка от всички папки и техните подпапки в определен имейл акаунт от Outlook към Notepad, след което можете да отпечатате списъка на Outlook папките в Notepad лесно.

1. Натиснете Друг + F11 за да отворите прозореца Microsoft Visual Basic for Applications.

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.


arrow синя десен балонСвързани статии



Kutools за Outlook

Повече от 100 разширени функции за Outlook 2010, 2013, 2016, 2019 и 365

Екран изстрел kutools за перспективата малка за банер 201812

Още функции | Безплатно сваляне | Само $ 39.00 за стотици функции

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.