Outlookですべてのフォルダーとサブフォルダーのリストをエクスポートして印刷するにはどうすればよいですか?
一般的に言えば、あなたは押すことができます Ctrlキー + 6 Outlookのナビゲーションウィンドウにすべてのフォルダのリストを表示するためのキー。 ただし、フォルダの一覧は印刷できません。 この記事では、Outlookですべてのフォルダーとそのサブフォルダーのリストをエクスポートおよび印刷するためのXNUMXつのVBAスクリプトを紹介します。
- すべてのOutlookフォルダーとそのサブフォルダーのリストを新しい電子メールでエクスポートして印刷します
- メモ帳のサブフォルダにあるすべてのOutlookフォルダのリストをエクスポートして印刷します
すべてのOutlookフォルダーとそのサブフォルダーのリストを新しい電子メールでエクスポートして印刷します
この方法では、VBAを導入して、指定した電子メールアカウント内のすべてのフォルダーとそのサブフォルダーのリストをOutlookの新しい電子メールにエクスポートし、フォルダーのリストを簡単に印刷できます。
1。 押す 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。
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.次に、以下のスクリーンショットに示すように、指定した電子メールアカウントのフォルダーリストが新しい電子メールにコピーされます。 クリックしてください File > 印刷物 コピーしたフォルダのリストを印刷します。
6.印刷後、保存せずに新しいメールを閉じてください。
メモ帳のサブフォルダにあるすべてのOutlookフォルダのリストをエクスポートして印刷します
この方法では、指定した電子メールアカウント内のすべてのフォルダーとそのサブフォルダーのリストをOutlookからメモ帳にエクスポートするVBAが導入され、メモ帳でOutlookフォルダーのリストを簡単に印刷できます。
1。 押す 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。
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.ダブルクリックして新しいテキストファイルを開き、[ File > 印刷物 Outlookフォルダのエクスポートされたリストを印刷します。
ワンクリックで、Outlookのナビゲーションウィンドウにすべてのフォルダ内のアイテムの総数を表示します
通常、Outlookは、ナビゲーションウィンドウの各フォルダにある未読アイテムの数を表示します。 しかし、Outlook用のKutools すべてのフォルダにアイテムの総数が表示されます この機能を使用すると、ワンクリックですべてのフォルダ内のアイテムの総数を表示できます。
関連記事
最高のオフィス生産性向上ツール
Kutools for Outlook - Outlook を強化する 100 以上の強力な機能
🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。