默認情況下，Outlook 不支持您同時查找和替換多封電子郵件中的文本。 因此，如果你想這樣做，你可以參考這篇文章。 下面教大家通過VBA代碼來實現。
例如，您在 Outlook 中完成了幾封電子郵件。 在您將它們發送出去之前，您發現了一些錯誤並希望修改這些電子郵件中的一些文本。 通常，您必須在每封電子郵件中一一執行“查找和替換”。 然而，太麻煩了。 因此，在這裡我們將向您展示一種更有效的方法，它可以讓您批量完成。
批量查找和替換多封電子郵件中的文本
- 首先，啟動 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維修 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM