如何在.Body部分中为电子邮件模板的Outlook VBA模块添加项目符号？

Question

我对如何在电子邮件模板的[[.Body部分中添加项目符号感到困惑。

我对VBA还是很陌生，所以我已经在论坛上查询了一段时间，但似乎找不到我需要的东西。

我希望我的电子邮件正文如下所示：

---

附有DATE AM的文档。

已邮寄

3个文档

已接收

7个文档

---

我当前的代码在下面，除非在邮件和接收的单词下面没有多余的空格：

子CreateNewMail（）昏暗的ObApp作为对象昏暗的NewMail作为MailItem设置obApp = Outlook.Application设置NewMail = obApp.CreateItem（olMailItem）'您可以根据需要更改具体信息使用NewMail.Subject =“文档”＆格式（日期，“ m.d.yy”）和“上午”.To =.Body =“随附的是＆格式（日期，” m.d.yy“）和” AM“＆vbNewLine和vbNewLine _的文档＆“已邮寄”＆vbNewLine＆vbNewLine _＆“已收到”。显示结束于设置obApp = Nothing设置NewMail = Nothing结束子

Answer 1

如前所述，您将需要使用.HTMLBody而不是.Body可以轻松实现的HTML。如果您只需要几个子弹，就可以使其简单。这应该使您入门。您想要一个无序列表<ul>，您将向其中添加列表项<li>

Sub CreateNewMail()
Dim obApp As Object
Dim NewMail As MailItem

Set obApp = Outlook.Application
Set NewMail = obApp.CreateItem(olMailItem)

'You can change the concrete info as per your needs
With NewMail
     .Subject = "Docs " & Format(Date, "m.d.yy") & " AM"
     .To = "Mr Nobody"
     .HTMLBody = "Attached are the docs for " & Format(Date, "m.d.yy") & " AM" & _
     "<p>Mailed</p>" & _
     "<ul><li>3 Documents</li></ul>" & _
     "<p>Received</p>" & _
     "<ul><li>7 Documents</li></ul>"
     .Display
End With

Set obApp = Nothing
Set NewMail = Nothing
End Sub