如何在不删除图像的情况下替换Outlook电子邮件正文中的文本
提问于 2017-08-04 08:10:23
在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函数，因为我认为它们与问题无关，只会增加很多混乱。)
这对文本来说很好用。但是，如果电子邮件正文包含任何图像，该行将删除这些图像。
如何逐行替换文本，使其保留图像？
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-08-04 19:23:06
您正在读取和设置纯文本Body属性，它将清除所有格式，而不仅仅是图像。您需要改为使用HTMLBody属性。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/45501498
复制相关文章
![每日一题[LeetCode 689]三个无重叠子数组的最大和](https://ask.qcloudimg.com/http-save/yehe-2007777/xcuyex6f44.svg)
腾讯云开发者
