如何替换Outlook电子邮件正文中的文本而不删除图像

Question

在Excel 2016 VBA中，我自动使用Outlook替换电子邮件正文中的文本。替换的部分如下所示：

Year

（我遗漏了GetActiveOutlookEmail和TranslateOneEmailElement函数，因为我认为它们与问题无关，只会增加很多混乱。）

这对文本很好。但是，如果电子邮件正文有任何图像，该行将删除它们。

如何逐行替换文本以便将图像留在原位？

Answer 1

您正在阅读并设置纯文本Body属性，清除所有格式，而不仅仅是图像。您需要使用HTMLBody属性。