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

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

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

電子メールをより適切に整理するには、Outlookに多数のカスタムフォルダを作成しておく必要があります。非常に多くのカスタマイズされたフォルダーに直面した場合、上司の要件や設定の変更などの理由で、これらのフォルダーの名前を変更することをお勧めします。 Most 場合によっては、フォルダ名の特定の単語を単に置き換えたり削除したりしたいだけかもしれません。

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

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

非常に最初に、starOutlookプログラム。
次に、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の問題に関しては、almost 誰もがパニックを感じ、このトピックを避ける傾向があります。ただし、Outlookではかなり一般的です。このようなPSTの問題を効果的に回避するには、PSTファイルを定期的にバックアップすることをお勧めします。さらに、強力な状態を維持することもお勧めします PST修復近くのツール、 DataNumen Outlook Repair.

著者紹介：

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