Outlook起動時にVBAを使用してすべてのフォルダーを自動的に展開する方法

Outlookソリューション 2025 年 9 月 29 日

多くのユーザーは、Outlookを起動した際にすべてのフォルダーが自動的に展開されることを望んでいます。しかし実際には、Outlookはこの機能を標準でサポートしていません。そのため、実現するにはVBAコードを使用する必要があります。この記事では、その簡単な手順を説明します。

Outlook の既定のフォルダーの下に、多くのサブフォルダーを作成しているかもしれません。フォルダーが多数あるため、いつでもすばやくアクセスできるように、すべてのフォルダーを常に展開した状態にしておきたい場合があります。最初のステップは、Outlook を起動時にフォルダーを自動的に展開するように設定することです。当然ながら、Outlook にはそのようなネイティブ機能はありません。そのため、マクロを使用する必要があります。以下では、VBA を使用してこれを実現する方法を説明します。VBA の適用方法については、別の記事を参照してください。OutlookでVBAコードを実行する方法"

Outlook起動時にすべてのフォルダーを自動的に展開する

まず、Outlookで「Alt + F11」を押して、VBAエディターにアクセスします。
次に、新しいウィンドウで、コードを「ThisOutlookSession」プロジェクトに配置します。

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

その後、VBAエディターを閉じます。
その後、Outlookアプリケーションを適切に終了します。
後でOutlookを起動してください。すると、マクロが自動的に実行されます。
Outlookが起動すると、下の図に示すように、すべてのフォルダーが展開されていることが確認できます。

すべての悪意のあるマクロを寄せ付けない

疑わしいファイルが添付されている、または不明なリンクが埋め込まれている電子メールを受信したことがありますか？通常、そのような電子メールに直面するときは、警戒を強める必要があります。それらがウイルスを運ぶ可能性があるという点で、決して容易に信頼してはなりません。添付ファイルをダウンロードしたり、リンクを開いたりすると、Outlookだけでなくコンピュータも攻撃される可能性があります。その時、あなたはしなければなりません Outlookを修復するファイル。 Outlookのバックアップを更新したり、次のような強力な回復ツールを使用したりしない限り、かなり厄介なことがあります。 DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL Server 腐敗と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com