Как добавить маркеры в раздел .Body шаблона электронной почты?

Question

Как добавить маркеры в раздел .Body шаблона электронной почты?

Я хочу, чтобы мое тело электронной почты выглядело следующим образом:

---

Прилагаются документы для DATE AM.

Отправлено

• 3 документа

Получено

• 7 документов

---

Мой текущий код приведен ниже, за исключением лишних пробелов под словами «Отправлено и отправлено»:

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. Я искал форумы, но не могу найти то, что мне нужно.

Answer 1

Как уже упоминалось, вам нужно будет использовать 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