1

如何将项目符号添加到.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相当陌生。我搜索了论坛，但找不到我需要的东西。

4

1 回答 1

0

如前所述，您将需要使用 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
于 2020-03-08T02:49:59.947 回答