提示:其他语言是Google翻译的。 你可以访问 English 版本。
登录
x
or
x
x
注册账户
x

or

如何导出并打印Outlook中的所有文件夹和子文件夹的列表?

一般来说,你可以按 按Ctrl + 6 键查看Outlook中导航窗格上所有文件夹的列表。 但是,您不能打印文件夹列表。 本文将介绍两个VBA脚本,用于导出和打印Outlook中所有文件夹及其子文件夹的列表。

单击一次即可显示Outlook中导航窗格上所有文件夹中项目的总数

通常,Outlook会在导航窗格上显示每个文件夹中未读项目的数量。 但是,Outlook的Kutools 所有文件夹显示项目总数 功能可以帮助您只用一次点击即可显示所有文件夹中的项目总数。 点击60天免费试用,没有限制!
所有文件夹都显示总数kto 9.00

Kutools for Outlook: 100 +新的高级工具 为Outlook。
Office Tab: 在Office中启用选项卡式编辑和浏览,就像Chrome,Firefox,IE 8 / 9 / 10一样。
经典菜单: 带回旧菜单和工具栏 到Office 2007,2010,2013,2016和2019。

箭头蓝色右泡 在新电子邮件中导出并打印所有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。 打印完成后,请关闭新邮件而不保存。


箭头蓝色右泡 导出并在记事本中打印所有Outlook文件夹和子文件夹的列表

此方法将引入一个VBA以将指定电子邮件帐户中的所有文件夹及其子文件夹的列表从Outlook导出到记事本,然后可以轻松地在记事本中打印Outlook文件夹的列表。

1。 按 其他 + F11 键以打开Microsoft Visual Basic for Applications窗口。

2。 点击 插页 > 模块,然后将VBA代码粘贴到新的“模块”窗口中。

VBA:将Outlook中所有Outlook文件夹和子文件夹的列表导出到记事本

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文件夹列表。


箭头蓝色右泡相关文章



Kutools for Outlook

超过100高级功能的Outlook 2010,2013,2016,2019和365

屏幕截图kutools for outlook tiny for banner 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.