How to modify bullets? - html

Question

How do I format the bullet point itself?
The bullet points all appear as stars instead of a normal black circle for the first bullet and a hollow circle for the sub-bullet.
I tried to define the style but my code gives me an error message when I add list-style-type:disc;.
Using w3schools this is how I understand it should work.
Sub Email_Budget()
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)
Dim CaseCount As Long
CaseCount = WorksheetFunction.CountA(Range("B6:B500"))
Debug.Print CaseCount
Dim i As Integer
With objEmail
.To = "abc#xyz.com"
.Subject = "TEST1: May 2019 Budget"
.Body = "Kurt,"
.Body = .Body & " "
.Body = .Body & "The potential " & MonthName(Month(ActiveSheet.Range("A2"))) & " invoices are below."
.Body = .Body & " "
For i = 1 To CaseCount
If ActiveSheet.Cells(i + 5, 4).Value = "Yes" Then
.HTMLBody = .HTMLBody & "<ul style='list-style-type:disc;'>" & "<li>" & ActiveSheet.Cells(i + 5, 2).Value & " - " & Format(ActiveSheet.Cells(i + 5, 6).Value, "Currency") & " (" & Format(ActiveSheet.Cells(i + 5, 8).Value, "Currency") & " without budget or invoicing)." & "</li>" & "<ul>" & "<li>" & "Last billed " & ActiveSheet.Cells(i + 5, 10) & "." & "</li>" & "</ul>" & "</ul>"
End If
Next i
.Body = .Body & " "
.Body = .Body & " "
.Body = .Body & "Thank you,"
.Body = .Body & "Karen"
.Display
End With
End Sub

Answer 1

In order to create multi-level list, you can simply construct another <ul> nested beneath one of your <li> items. You can tinker with HTML here:
http://w3schools.com/code/tryit.asp?filename=G3UBZA6VM2WS
To control the list item style for an individual <li> item, specify it's type attribute`.
To set the list item style for all items in a list, specify the style attribute with the appropriate css, e.g.:
"<ul style='list-style-type:disc'>"
Note the use of single-quotes within the quoted string :)
Finally, and I now suspect that this was your problem all along (disc style appears to be the default in Outlook, so you probably don't need to specify it as such):
You can't mix .Body and .HTMLBody. You need to use one or the other. If you use .Body, the email will be plain text and will not accept or render HTML. So you should convert all of your .Body assignments to the appropriate .HTMLBody instead. Untested, but should be something like this:
With objEmail
.To = "abc#xyz.com"
.Subject = "TEST1: May 2019 Budget"
.HTMLBody = "Kurt,"
.HTMLBody = .HTMLBody & "<br>"
.HTMLBody = .HTMLBody & "<p>The potential " & MonthName(Month(ActiveSheet.Range("A2"))) & " invoices are below.</p>"
.HTMLBody = .HTMLBody & "<br>"
For i = 1 To CaseCount
If ActiveSheet.Cells(i + 5, 4).Value = "Yes" Then
.HTMLBody = .HTMLBody & "<ul style='list-style-type:disc;'>" & "<li>" & ActiveSheet.Cells(i + 5, 2).Value & " - " & Format(ActiveSheet.Cells(i + 5, 6).Value, "Currency") & " (" & Format(ActiveSheet.Cells(i + 5, 8).Value, "Currency") & " without budget or invoicing)." & "</li>" & "<ul>" & "<li>" & "Last billed " & ActiveSheet.Cells(i + 5, 10) & "." & "</li>" & "</ul>" & "</ul>"
End If
Next i
.HTMLBody = .HTMLBody & "<br><br>"
.HTMLBody = .HTMLBody & "<p>" & "Thank you," & "</p>"
.HTMLBody = .HTMLBody & "<p>" & "Karen" & "</p>"
.Display
End With