Vba 如何使用宏将水平规则添加到Outlook？

在我的电子邮件正文中向outlook添加水平规则时遇到问题

我正在创建一个回复。我想将回复文本与电子邮件正文的其余部分分开

回复邮件正文中的邮件，并使用下面的水平规则

---

从：最后，第一email@example.com>

---

这是一个简化版本，因为我正在从文件中提取文本

您是否尝试过

---

？是的，它添加了“

---

”。是否有一种方法可以使回复html类型？对不起，我没有注意到您正在更新

正文

，这是文本正文。您需要更新

BodyHtml

，这是Html正文。请记住，

strIn

需要是Html。

Sub AddHRToBody(strIn As String)
    Dim oReply As Outlook.MailItem
    Dim oItem As Object
    Set oItem = GetCurrentItem()

    If Not oItem Is Nothing Then
        Set oReply = oItem.ReplyAll

        oReply.Body = strIn + "What do I put to add Horizontal Line" + oReply.Body

        oReply.Display
        oItem.UnRead = False
    End If
    Set oReply = Nothing
    Set oItem = Nothing
End Sub