提示:其他語言是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.