メインコンテンツへスキップ

Outlookでフォルダのリストを取得するにはどうすればよいですか?

ナビゲーションウィンドウ内のすべてのメールフォルダー(作成された個人用フォルダーを含む)のツリー構造が、作業中にOutlookユーザーに役立つ場合があります。 ツリー構造フォルダー全体をすばやく一覧表示するには、VBAコードが役立ちます。 このチュートリアルでは、VBAコードを使用してフォルダーのリストを簡単に取得する方法を学習できます。

VBAコードを使用してOutlookのフォルダのリストを取得する

Office タブ - Microsoft Office でタブによる編集と参照を有効にし、仕事をスムーズにします
Kutools for Outlook - 100 以上の高度な機能で Outlook を強化し、優れた効率を実現します
これらの高度な機能を使用して、Outlook 2021 ~ 2010 または Outlook 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.マクロが実行されるのを待ちます。 次に、すべての電子メールフォルダのリストが、作成された新しいメッセージウィンドウにすぐに一覧表示されます。 簡単に印刷できます。 スクリーンショットを参照してください:

Note:このVBAコードは、Outlook 2007、2010、および2013に適用できます。


最高のオフィス生産性向上ツール

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
For get the size of the folders how do you do it?
This comment was minimized by the moderator on the site
Working perfect with OLK 365, Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations