すべてのOutlookフォルダ名で特定の単語をバッチ検索して置換する方法

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

場合によっては、名前内の特定の単語を見つけて置き換えることにより、複数のOutlookフォルダの名前を一括で変更できます。この記事では、OutlookVBAを使用してこれをすばやく実行する方法を説明します。

メールをより効率的に整理するために、Outlookで多くのカスタムフォルダを作成していることでしょう。しかし、カスタマイズしたフォルダが多数あると、上司の指示や好みの変化など、何らかの理由でフォルダ名を変更したくなることがあります。多くの場合、フォルダ名に含まれる特定の単語を置き換えたり削除したりするだけで済むかもしれません。

一般に、フォルダの名前を変更するには、フォルダをピッチして右クリックするだけです。次に、右クリックメニューで「フォルダ名の変更」を選択します。次に、新しい名前を入力します。 XNUMXつまたはXNUMXつのフォルダの名前を変更したいだけの場合に便利です。ただし、すべてのOutlookフォルダーの名前に含まれる特定の単語を見つけて置き換えたい場合は、手動で行うのは非常に面倒です。したがって、以下では別の簡単な方法をお勧めします。

すべてのOutlookフォルダ名で特定の単語をバッチ検索して置換

まず最初に、Outlookプログラムを起動してください。
次に、Outlookのメインウィンドウで「Alt + F11」キーボタンを押します。
次に、Outlook VBAエディターウィンドウで、使用されていないモジュールを開きます。
続いて、次のVBAコードをこのモジュールウィンドウにコピーします。

Public strFind, strReplace As String

Private Sub FindReplaceWordsinFolderNames()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    'You need to input the specific words for find and replace
    strFind = InputBox("Enter the specific words you want to change.")
    strReplace = InputBox("Enter the specific words you want to change to. (Case Sensitive)")
 
    For Each objFolder In objFolders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Complete!", vbExclamation, "Rename Folders"
End Sub
 
Private Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    On Error Resume Next
    If InStr(LCase(objCurrentFolder.Name), LCase(strFind)) > 0 Then
       'Find and replace the specific words
       objCurrentFolder.Name = Replace(LCase(objCurrentFolder.Name), LCase(strFind), strReplace)
    End If
 
    'Process all folders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

その後、Outlookでマクロが許可されていることを確認する必要があります。
最後に、ツールバーの「実行」アイコンをクリックし、F5キーを押して新しいマクロをトリガーできます。
その後、検索と置換のために特定の単語を入力する必要があります。
次のスクリーンショットのように、Outlookフォルダ名のすべての特定の単語が一度に置き換えられます。

悲惨なPSTデータの問題に取り組む

PST の問題、例えばさまざまな PST エラーやアクセスできない PST ファイルなどに関しては、ほとんどの人がパニックになり、この話題を避けたがります。しかし、Outlook ではよくあることです。このような PST の問題を効果的に回避するには、PST ファイルを定期的にバックアップすることをお勧めします。さらに、強力な PST修復近くのツール、 DataNumen Outlook Repair.

著者紹介：

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