oft outlook vba字符串替换不适用于带表的oft邮件

要替换outlook邮件文件中的某些字符串。请编写以下代码 但如果我使用MyItem.HTMLBody，oft文件有一个不显示的表。还有别的选择吗

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim myOlApp As Outlook.Application
    Dim MyItem As Outlook.MailItem
    Dim up As Object
    Dim ation As Object
    Dim hsbcval As Object

    up = TextBox1.Text
    ation = TextBox2.Text
    hsbcval = TextBox3.Text

    myOlApp = CreateObject("Outlook.Application")
    MyItem = myOlApp.CreateItemFromTemplate("D:\this.oft")
     MyItem.HTMLBody = Replace(MyItem.HTMLBody, "IDSPUPZ", up)
     MyItem.HTMLBody = Replace(MyItem.HTMLBody, "HANMZ", ation)
     MyItem.HTMLBody = Replace(MyItem.HTMLBody, "HSBCVALZ", hsbcval)
    MyItem.Display()
End Sub

---

首先，确保替换操作的结果是一个有效的HTML标记

其次，Outlook使用Word呈现HTML标记，但并非所有HTML标记/元素都受支持。在MSDN中的以下文章中阅读有关支持和不支持的HTML元素、属性和级联样式表属性的更多信息：

确保结果HTML标记在Word中正确呈现

---

最后，确保属性设置为HTML。正文文本格式确定用于显示消息文本的标准。Microsoft Outlook提供三种正文文本格式选项：纯文本、RTF和HTML。请注意，当BodyFormat属性从RTF切换到HTML时，所有文本格式都将丢失，反之亦然。

首先，确保替换操作的结果是有效的HTML标记

其次，Outlook使用Word呈现HTML标记，但并非所有HTML标记/元素都受支持。在MSDN中的以下文章中阅读有关支持和不支持的HTML元素、属性和级联样式表属性的更多信息：

确保结果HTML标记在Word中正确呈现

最后，确保属性设置为HTML。正文文本格式确定用于显示消息文本的标准。Microsoft Outlook提供三种正文文本格式选项：纯文本、RTF和HTML。请注意，当BodyFormat属性从RTF切换到HTML时，所有文本格式都将丢失，反之亦然