Excel VBA中的HTMLBody与Body-超链接格式问题

我有一个包含多个宏的工作簿，其中一个接受已输入到特定单元格中的消息正文（根据业务需要每季度更改一次），并将其用作宏生成的电子邮件正文。电子邮件正文在输入此单元格时已预格式化，在VBA中使用常规正文时保留该格式，但在将其更改为HTMLBody时将丢失其格式。他们最近更改了电子邮件消息以包含超链接。不幸的是，如果我试图使超链接看起来正确，似乎我需要HTMLBody，但随后我丢失了消息的格式

   OriginalText = HF.Sheets("Email_Setups").Range("B9").Value


   Link = "<a href=""" & "http://mylink.com" & """>Open Requests</a>"
   CorrectedText = Replace(OriginalText, "Open Requests", Link)



                'Create a new email item
        Set objMail = objOutlook.CreateItem(olMailItem)
        'From
        'To
        'objMail.To = Sheet1.Range("A" & lCounter).Value
        'Cc
        'objMail.CC = Sheet1.Range("B" & lCounter).Value
        'Subject
        objMail.Subject = HF.Sheets("Email_Setups").Range("A9").Value & " " & Tar_Num
        'Email Body
        objMail.HTMLBody = CorrectedText

OriginalText=HF.Sheets（“电子邮件设置”）.范围（“B9”）.值
Link=“”
更正文本=替换（原始文本，“打开的请求”，链接）
'创建新的电子邮件项目
设置objMail=objOutlook.CreateItem（olMailItem）
“从
”“对
'objMail.To=Sheet1.Range（“A”&lCounter）.Value
'抄送
'objMail.CC=Sheet1.Range（“B”&lCounter）.Value
“主题
objMail.Subject=HF.Sheets（“电子邮件设置”）.Range（“A9”）.Value&“Tar”Num
'邮件正文
objMail.HTMLBody=CorrectedText

---

使用HTMLBody时，原始单元格文本的格式将丢失。有没有一种方法可以保留它，而不必在HTML代码中输入整个消息体（因为它每次都会更改，并且需要是业务部门不需要我编码就可以做的事情），并且仍然可以获得所需的超链接结果？提前谢谢

请参阅：感谢Kostas，此链接显示的是通过代码以HTML格式输入的消息，而不仅仅是从单元格中获取的消息。我错过了它是如何转换的吗？