Vba 如何防止从邮件中删除文本破坏HTML？

我有一个过程，找到某个字符串并将其删除

这是通过

Replace（）

完成的

但是，当收到的邮件是HTML而不是纯文本时，大多数HTML功能都会被破坏，邮件是纯文本加超链接

因此，很明显，我的过程除了杀死字符串外，还杀死了一些东西

以下是我的程序：

Public Sub-EditBodyCgReplace（）
"宣言",
作为对象的Dim obj
将Sel设置为Outlook。选择
Dim DoSave为布尔值
像弦一样暗淡的新手
作为字符串的Dim strDelete01
Dim strDelete02作为字符串
Dim strDelete03作为字符串
'填充变量
strDelete01=“请发送电子邮件给我们。请您将链接发送到Dateianhänge，然后发送到vertrauenswürdig halten。”
据报道报道，交易交易交易方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场现场######”
“用它工作吧
如果Application.ActiveWindow的类型为Outlook.Inspector，则
设置obj=Application.ActiveInspector.CurrentItem
其他的
设置Sel=Application.ActiveExplorer.Selection
如果选择，那么数一数
设置obj=Sel（1）
DoSave=True
如果结束
如果结束
如果不是，那么obj什么都不是
新车身=更换（obj.Body，STDELETE01“”）
新车身=更换（obj.Body，STDELETE02，“”）
如果是“新手”，那么
车身=新车身
如果是这样的话
对象保存
如果结束
如果结束
如果结束
端接头

---

我该怎么做才能使这个（或类似的）过程消除字符串，但不损害电子邮件的HTML结构，从而使其在屏幕上的视觉功能保持不变？

不要设置纯文本

正文

属性。请改为使用

HTMLBody

属性。

不要设置纯文本

Body

属性。请改用

HTMLBody

属性。

谢谢。听起来直截了当且合乎逻辑。但是我在哪里以及如何才能做到这一点呢？你能给我一个提示吗？在你的脚本中用HTMLBody替换Body。我现在实现了这一点（使用obj.HTMLBody而不是上面skcript中出现的obj.Body），它确实做到了。（我现在还有其他问题，但这些问题与这里提出的实际问题不再相关）。谢谢。听起来直截了当且合乎逻辑。但是我在哪里以及如何才能做到这一点呢？你能给我一个提示吗？在你的脚本中用HTMLBody替换Body。我现在实现了这一点（使用obj.HTMLBody而不是上面skcript中出现的obj.Body），它确实做到了。（我现在还有其他问题，但这些问题与这里提出的实际问题不再相关）。