Outlookでフォルダのリストを取得するにはどうすればよいですか?
ナビゲーションウィンドウ内のすべてのメールフォルダー(作成された個人用フォルダーを含む)のツリー構造が、作業中にOutlookユーザーに役立つ場合があります。 ツリー構造フォルダー全体をすばやく一覧表示するには、VBAコードが役立ちます。 このチュートリアルでは、VBAコードを使用してフォルダーのリストを簡単に取得する方法を学習できます。
VBAコードを使用してOutlookのフォルダのリストを取得する
Officeタブ-Officeでタブ付きの編集と閲覧を有効にし、作業をはるかに簡単にします...
Kutools for Outlook-100の強力な高度な機能をMicrosoftOutlookにもたらします
- 自動CC / BCC メール送信時のルールによる。 自動転送 ルールによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
- BCC警告 -メールアドレスがBCCリストにある場合、すべてに返信しようとするとメッセージを表示します。 添付ファイルがない場合に通知する、その他の機能を思い出させる...
- すべての添付ファイルで(すべて)返信 メールでの会話。 一度に多くのメールに返信します。 あいさつを自動追加 返信するとき; 件名に日付と時刻を自動追加...
- アタッチメントツール:自動デタッチ、すべて圧縮、すべての名前変更、すべて自動保存... クイックレポート、選択したメールを数える、 重複するメールと連絡先を削除する...
- 100 以上の高度な機能が あなたの問題のほとんどを解決します Outlook 2021 - 2010 または Office 365。フル機能の 60 日間無料試用版。
VBAコードを使用してOutlookのフォルダのリストを取得する
OutlookでVBAコードを使用してフォルダのリストを取得するには、次のようにします。
1。 プレス 他の + F11 キーボードのキーを押して アプリケーション向け Microsoft Visual Basic 窓。
2.次に、 Project1 > MicrosoftOutlookオブジェクト > このOutlookSession を開く Project1 – ThisOutlookSession 窓。 スクリーンショットを参照してください:
3.次に、以下のVBAコードをコピーしてProject1 –ThisOutlookSessionウィンドウに貼り付けます。
VBA:Outlookでフォルダのリストを取得する
Option Explicit
Sub GetFoldersList()
On Error GoTo On_Error
Dim Report As String
Dim Folder As Outlook.Folder
For Each Folder In Application.Session.Folders
Report = Report & "---------------------------------------------------------------------------" & vbCrLf
Call RecurseFolders(Folder, "", Report)
Next
Call CreateReportEmail("Outlook Folders List", Report)
Exiting:
Exit Sub
On_Error:
MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
Dim SubFolder As Outlook.Folder
Dim FolderName, StoreName As String
FolderName = CurrentFolder.Name
StoreName = CurrentFolder.Store.DisplayName
Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
For Each SubFolder In CurrentFolder.Folders
Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
Next SubFolder
End Sub
Sub CreateReportEmail(Title As String, Report As String)
Dim aMail As MailItem
Set aMail = Application.CreateItem(olMailItem)
aMail.Subject = Title
aMail.Body = Report
aMail.Display
End Sub
4。 プレス F5 キーボードのキーを押して、VBAコードの実行を開始します。
5.今 マクロ ダイアログボックスが表示されたら、をクリックしてください ラン ボタン。
6.マクロが実行されるのを待ちます。 次に、すべての電子メールフォルダのリストが、作成された新しいメッセージウィンドウにすぐに一覧表示されます。 簡単に印刷できます。 スクリーンショットを参照してください:
注意:このVBAコードは、Outlook 2007、2010、および2013に適用できます。
Kutools for Outlook-100の高度な機能をOutlookにもたらし、作業をはるかに簡単にします!
- 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
- BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
- メール会話のすべての添付ファイルで(すべて)返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
- 添付ファイルツール:すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
- 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。

