Email in VBA : Line Spacing in Un-Ordered List Issue

Copper Contributor

I have a macro that builds an email (in a loop) Example Below. When the email is created, there is a blank line between the heading and the un-ordered lists that are created in the email. I would like to find the code that would remove that line or select all the text and choose this option (see red box in photo) in the "paragraph" section of an outlook email. Thank you! [code below picture]

 

image.pngimage.png

 

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

With NewMail
.Subject = Subject
.To = Toperson
.CC = CCperson
.BCC = BCCperson
.HTMLBody = "<BODY style=font-size:11pt;font-family:Calibri>" & "FIRST SET OF TEXT" & "<br>" & "<br>" & _
"Please note the following: " & _
"<ul>" & "<li>" & "LIST ITEM 1"</li>" & _
"<li>" & "LIST ITEM 2"</li>" & "<br>" & _
"Additional Notes: " & _
"<ul>" & "<li>" & "LIST ITEM 1"</li>" & _
"<li>" & "LIST ITEM 2"</li>" & _
"<li>" & "LIST ITEM 3"</li>" & "</ul>" & _
"Thanks, " & _
"</BODY>"


.Attachments.Add XlsAttach1
.Attachments.Add XlsAttach2
.Display

End With

1 Reply

"<li style=""Margin: 0;"">" for the un ordered list item solved my issue.