在Outlook电子邮件中编辑表格文本

我希望能够使用Excel VBA查找和替换嵌入表中的电子邮件中的文本。我已经知道如何打开现有的outlook电子邮件。从论坛中,我了解到以下代码仅适用于文本,但当它嵌入到电子邮件中的表中时则不适用。

有什么方法可以使用书签吗?我所做的任何尝试都会使电子邮件正文保持原样,或删除所有格式。

With OutMail
    .To = UserForm1.TextBox4.Text
    .CC = ""
    .BCC = ""
    .Subject = "This is my Subject line"
    .HTMLBody = Replace(.HTMLBody, "<First Name>", UserForm1.TextBox5.Text)
    .HTMLBody = Replace(.HTMLBody, "<Last Name>", UserForm1.TextBox6.Text)
    .Display
End With