html - 如何将项目符号添加到电子邮件模板的 .Body 部分?
问题描述
如何将项目符号添加到.Body
电子邮件模板的部分?
我希望我的电子邮件正文如下所示:
附件是 DATE AM 的文档。
邮寄
- 3 份文件
已收到
- 7 份文件
我当前的代码如下,除了 Mailed 和 Received 后面没有多余的空格:
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 =
.Body = "Attached are the docs for " & Format(Date, "m.d.yy") & " AM" & vbNewLine & vbNewLine _
& "Mailed" & vbNewLine & vbNewLine _
& "Received"
.Display
End With
Set obApp = Nothing
Set NewMail = Nothing
End Sub
我对VBA相当陌生。我搜索了论坛,但找不到我需要的东西。
解决方案
如前所述,您将需要使用 HTML,这可以使用 .HTMLBody 而不是 .Body 轻松实现。如果您只需要几颗子弹,则可以保持简单。这应该让你开始。<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
推荐阅读
- mysql - Laravel 控制器获取外键
- python - 如何将断言输出记录到文件中?
- javascript - include.model.getTableName 不是函数
- javascript - 我正在学习如何编码,所以我有一个问题?
- python - 使用 Python 的“%”计算 C 的“%”?
- xcode - Xcode - 如何删除名称为空白的分支 - 给定的参考名称无效
- javascript - 从 React Ref 对象访问 Props
- vb.net - 在 DataGridView 中复制/粘贴
- jasper-reports - Jasper 报告:2 列子报告在报告的第二页上没有均匀分布
- java - 如何在不调用 notifyItemChanged 或 DiffUtil 的情况下更新/刷新 RecyclerView 的特定项目?