VBA Mail opstellen vanuit Excel Bullet points

[Spartaan89]

Goede dag Allen,

Ik ben bezig met wat processen te vereenvoudigen vanuit excel.
Ik heb een VBA code geschreven wat automatisch een nieuwe mail vanuit outloop opent en daar gegevens uit excel invult (afzender, onderwerp etc).
Nu wil ik ook de inhoud van de mail opbouwen met onder andere een opsomming van mogelijke bijlage in de mail. Ik wil na het aanmaken van de mail nog eventuele andere bijlage toevoegen. Ik zou daarom in de mail, met enter, op een nieuwe regel nieuwe bullet points krijgen. Dit lukt me echtet niet. Heeft iemand hier een oplossing voor?

Hieronder heb je een stuk HTML die ik aan de VBA code heb toegevoegd.

"Graag je akkoord op deze order.<br>" & _
"Klik op de link om het order document te openen : " & _
"<A HREF=""file://" & ActiveWorkbook.FullName & _
""">Order document</A> <br>" & _
"In de bijlage vind je de volgende documenten:<br> " & _
"<LI>Order van de klant </LI>" & _
"<LI>AQ </LI>" & _
"<LI>Packing list </LI>" & _
"<br><br>Als je vragen hebt dan horen we dit graag," & _
"<br><br>User</font>"

 

[edmoor]

Je laat niet het maken van de mail zelf zien.
Gebruik je daar wel HTMLBody in plaats van Body?

 

[Spartaan89]

Code

Sheets("Akkoord Rene").Select

If ActiveWorkbook.Path <> "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "<font size=""3"" face=""Calibri"">" & _
"Beste René,<br><br>" & _
"Graag je akkoord op deze order.<br>" & _
"Klik op de link om het order document te openen : " & _
"<A HREF=""file://" & ActiveWorkbook.FullName & _
""">Order document</A> <br>" & _
"In de bijlage vind je de volgende documenten:<br> " & _
"<LI>Order van de klant </LI>" & _
"<LI>AQ </LI>" & _
"<LI>Packing list </LI>" & _
"<br><br>Als je vragen hebt dan horen we dit graag," & _
"<br><br>User</font>"

On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Voor" & " " & Akkoord & " " & Ordernumber & " " & country & " " & productgroup
.HTMLBody = strbody & vbNewLine & vbNewLine & Akkoord & vbNewLine & vbNewLine & Bodymail & vbNewLine & vbNewLine & _
"Met vriendelijke groet" & vbNewLine & User
.Display 'or use .Send
.Display 'or use .Send
End With
On Error GoTo 0

 

[edmoor]

Je mist een End If en dat krijg je dus als je geen inspringpunten gebruikt.
Verder doet 'ie het hier prima: