Outlookのすべてのメールフォルダをすばやく展開または折りたたむ方法

Outlookソリューション 2025 年 9 月 29 日
今すぐ共有：

場合によっては、メールナビゲーションペインのすべてのメールフォルダを一度に展開または折りたたむことができます。 この場合、このpで紹介されている方法を利用できます。ost.

さまざまなフォルダやサブフォルダにあるメールをより便利にチェックするなどの理由で、すべてのメールフォルダを展開することをお勧めします。 同様に、すべてのフォルダを展開したままにしておくと、メールナビゲーションペインが複雑になりすぎると感じる場合は、すべてのフォルダを折りたたむことをお勧めします。 この時点で、XNUMXつずつクリックして手動で展開または折りたたむと、かなり面倒になります。 したがって、一度にすべてのメールフォルダを展開または折りたたむことができる非常に迅速な方法を切望する必要があります。 さて、ここで私たちはあなたにそのような手段を明らかにします。

Outlookのすべてのメールフォルダをすばやく展開または折りたたむ

すべてのメールフォルダを展開

  1. そもそも、starOutlookプログラムを正常に。
  2. 次に、Outlookのメインウィンドウで「Alt + F11」キーボタンを押します。
  3. 次に、Outlook VBAエディターウィンドウで、空のモジュールを開きます。
  4. 続いて、次のVBAコードをこのモジュールにコピーします。
Sub ExpandAllMailFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objPSTFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder

    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
    'Specify a specific pst file
    'Change "PSTName" to the name of your own Outlook PST file
    Set objPSTFolders = Application.Session.Folders("PSTName").Folders
 
    For Each objFolder In objPSTFolders
        Call ProcessFolder(objFolder)
    Next

    DoEvents
    Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
End Sub

Sub ProcessFolder(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    'Only expand the mail folders
    If objCurFolder.DefaultItemType = olMailItem Then
       Set Application.ActiveExplorer.CurrentFolder = objCurFolder
       DoEvents
 
       'Process all subfolders recursively
       If objCurFolder.Folders.Count > 0 Then
          For Each objSubfolder In objCurFolder.Folders
              Call ProcessFolder(objSubfolder)
          Next
       End If
    End If
End Sub

VBAコード-すべてのメールフォルダを展開

  1. その後、ツールバーの「サブを実行」ボタンをクリックするか、F5キーを押して新しいマクロをトリガーできます。
  2. すぐに、事前定義されたOutlookPSTファイル内のすべてのメールフォルダーが展開されます。

すべてのメールフォルダを折りたたむ

すべてのメールフォルダを展開する場合と比較して、折りたたむのははるかに簡単です。 特定のOutlookPSTファイルのルートを折りたたんでから、もう一度展開するだけです。 これを行うには、次のスクリーンショットのように、PSTファイルの最上位フォルダーの前にある矢印をクリックします。 その後、矢印をもう一度クリックしてファイルを展開します。 すべてのサブフォルダーが折りたたまれていることがわかります。すべてのメールフォルダを折りたたむ

厄介なPSTエラーを柔軟に処理する

Outlookの使用中にエラーメッセージを受け取ったことはありますか？ Outlookを何十年も使用している場合は、使用する必要があります。 間違いなく、Outlookはエラーに対して脆弱です。 したがって、Outlookデータをより適切に保護するには、OutlookPSTファイルを定期的にバックアップする必要があります。 さらに、維持することをお勧めします PST修正 近くのツール、 DataNumen Outlook Repair.

著者紹介：

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

今すぐ共有：

コメントは締め切りました。