如何在不刪除圖像的情況下替換Outlook電子郵件正文中的文本

Question

在Excel 2016 VBA中，我將Outlook自動化以替換電子郵件正文中的文本。這確實更換了部分看起來是這樣的：

Dim oEmail As Object, strEmailSubject As String, strEmailBody As String 
Set oEmail = GetActiveOutlookEmail 
strEmailBody = TranslateOneEmailElement(oEmail.Body) 
If strEmailBody <> oEmail.Body Then oEmail.Body = strEmailBody 

（我已經離開了GetActiveOutlookEmail和TranslateOneEmailElement功能，因爲我不認爲他們有相關的問題，而且只會增添了不少混亂）

這對文本正常工作。但是，如果電子郵件正文有任何圖像，則該行會刪除它們。

如何逐行替換文本，使其保留原位？

Answer 1

您正在閱讀並設置純文本Body屬性擦除所有格式，而不僅僅是圖像。您需要改用HTMLBody屬性。