複数の Outlook メールでテキストをバッチ検索して置換する方法

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

既定では、Outlook は複数のメール内のテキストを同時に検索して置換することをサポートしていません。したがって、それを実行したい場合は、この記事を参照してください。ここでは、VBA コードを使用してそれを実現する方法を説明します。

たとえば、Outlook でいくつかのメールを終えたとします。それらを送信する前に、いくつかの間違いを発見し、これらの電子メールのテキストをいくつか変更したいと考えています。一般に、メールごとに「検索と置換」を XNUMX つずつ実行する必要があります。それにしても、面倒くさい。したがって、ここでは、それをまとめて実行できる、より効果的な方法を紹介します。

複数のメール内のテキストをバッチ検索および置換

まず、Outlookプログラムを起動してください。
次に、「Alt + F11」キーを使用して VBA エディターにアクセスします。
新しいウィンドウで、以下の VBA コードをモジュールまたはプロジェクトに配置します。

Sub FindReplaceInMultipleEmails()
    Dim strFind, strReplace As String
    Dim objInspectors As Outlook.Inspectors
    Dim objInspector As Outlook.Inspector
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
 
    'Enter the specific text
    strFind = InputBox("Enter the text for find: (Case Sensitive)")
    strReplace = InputBox("Enter the text for replacement: (Case Sensitive)")
 
    If Trim(strFind) <> "" Then
       Set objInspectors = Outlook.Application.Inspectors
 
       For Each objInspector In objInspectors
           If objInspector.CurrentItem.Class = olMail Then
              If objInspector.EditorType = olEditorWord Then
                 Set objMail = objInspector.CurrentItem
                 Set objMailDocument = objMail.GetInspector.WordEditor
 
                 'Find & replace specific text
                 With objMailDocument.Content.Find
                      .ClearFormatting
                      .Text = strFind
                      .Replacement.ClearFormatting
                      .Replacement.Text = strReplace
                      .Forward = True
                      .Wrap = wdFindContinue
                      .Format = False
                      .MatchCase = True
                      .MatchWholeWord = False
                      .Execute Replace:=wdReplaceAll
                End With
                objMail.Save
             End If
         End If
      Next
 
      MsgBox "Completed!", vbInformation + vbOKOnly
    End If
End Sub

その後、「このマクロをクイックアクセスツールバーに追加します。OutlookでVBAコードを実行する方法"
その後、このマクロを今すぐ試すことができます。

ソースのメールを開きます。
次に、クイックアクセスツールバーのマクロボタンをクリックします。
次に、検索して置き換える特定のテキストを入力する必要があります。
「完了」プロンプトが表示されたら、送信元メールを確認できます。

予期しないクラッシュからOutlookを復元する

Outlook を不適切に処理すると、Outlook がクラッシュすることがあります。さらに、通常、重大な Outlook クラッシュが発生した場合、Outlook ファイルは破損する傾向があります。その時点で、Outlook データの回復を試みる必要があります。もちろん、最新のデータバックアップがあれば非常に簡単です。しかし、そうでない場合は、次のような説得力のある信頼できる外部ツールを適用する必要があります。 DataNumen Outlook Repair。それができる PSTを修正汗をかくことなくファイルします。

著者紹介：

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