在Outlook邮件的htmlbody中为优先级设置颜色代码

Question

我已经成功地编写了一个代码，可以通过EAGETMAIL和EASENDMAIL实现的Outlookmail的htmlbody进行解析。停留在我需要将颜色优先设置为01 02 03的位置上。例如红色表示01表示橙色表示02。

在代码中，我正在当前Outlook电子邮件htmlbody中检测值Prio1，并希望将其替换为带有红色背景色突出显示的01值。

Dim oMail As New Mail("TryIt")
oMail.LoadOMSG("C:\TRUEREPORT\INTERIM.msg")
Dim htmlupdate as string = "<a style= background-color: red;> 01</a>"
Omail.htmlbody = omail.htmlbody.replace("Prio1", htmlupdate)

这里的问题是，我要替换的元素文本具有span元素的externalhtml，仅在html更新中添加一个元素并不能帮助您忽略externalhtml。 当我将html作为代码编译邮件的文本并在chrome中看到它时，html成功更新，并且我能够看到颜色。 当前情景的例子

<span style="many arguements" > Prio1</span>

现在，当提到的代码运行时，它变为

<span style="many arguements" ><a style= background-color: red;> 01</a></span>

这将在Outlook中产生01，并且在html中打开时，它会按预期变成红色背景的01。 因此，请给我一种可以破解此代码的方法。