VBA将Outlook html模板中的所有占位符替换为用户表单文本框和组合框

Question

我不是程序员，但我喜欢创建一些小宏来节省迭代任务的时间。现在我正试图创建一个用户表单，它可以替换HTML模板上的几个占位符。

到目前为止我制作的代码：

Private Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Outlook.MailItem

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = Application.CreateItemFromTemplate("C:pathciccio.oft")

With OutMail
.To = TextBox4.Text
.CC = ""
.BCC = ""

.HTMLBody = Replace(.HTMLBody, "###PLACEHOLDER1###", TextBox1.Text)
.HTMLBody = Replace(.HTMLBody, "###PLACEHOLDER2###", ComboBox1.Text)
Unload UserForm2
.Display
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

这在纯文本正文上效果很好，但在HTML正文上却拒绝替换所有内容。。看起来甚至有点随意。。所以有些东西被替换了，其他的就没有了。

有什么帮助吗？

Answer 1

已解决。

问题在于如何格式化html正文。我已经编辑了其他文件中的占位符单词，然后直接复制到模板上，保存它。