Email - HTML Body Multiple Lines

Dim EBody As String

'Message using HTML

EBody = " Today is " & MyDate & " - " & MyTime & "<br />" & "<br />" & Greetings & "<br />" & "<br />" & " Ticket " & (Forms("Entry_Log_Form")![Ticket_Number]) & " was completed successfully." & "<br />" & "<br />" _

& "New Contract: " & "<br />" & "Ultimately, the originator, " & (Forms("Entry_Log_Form")![Requestor_Name]) & ", is responsible for the quality assurance of all fields on the new contract. Please review all fields on the new contract." & "<br />" & "<br />" _

& "Jax Funding: Please Process the API" & "<br />" _

& "<U>" & "<h4 style=color:red;>" & "TOTALS" & "</h4>" & "</U>" & "&emsp;" & "Total Items Original File: " & (Forms("Entry_Log_Form")![Number_of_Items]) & "<br />" & "&emsp;" & "Total Worked Items: " & (Forms("Entry_Log_Form")![Number_of_Items]) & "<br />" & "&emsp;" & "Total Worked Fields: " & (Forms("Entry_Log_Form")![Number_of_Fields]) & "<br />" & "<br />" _

& "<U>" & "<h4 style=color:blue;>" & "TITLE1" & "</h4>" & "</U>" & "&emsp;" & (Forms("Entry_Log_Form")![Number_of_Fields]) & " Fields" & "<br />" & "<br />" _

& "<U>" & "<h4 style=color:green;>" & "TITLE2" & "</h4>" & "</U>" & "&emsp;" & (Forms("Entry_Log_Form")![Quality_Assurance]) & " Fields" & "<br />" & "<br />" _

& "<U>" & "<h4 style=color:purple;>" & "TITLE3" & "</h4>" & "</U>" & "&emsp;" & "<br />" & "<br />" & "<br />" _

& " Thank You" & "<br />"

With objMsg

.To = (Forms("Entry_Log_Form")![Requestor_Name])

.CC = "user@email.com"

.Subject = "Ticket: " & (Forms("Entry_Log_Form")![Ticket_Number]) & " - Project Name: " & (Forms("Entry_Log_Form")![Project_Name])

.Categories = "PROJECTS"

.BodyFormat = olFormatPlain ' send plain text message

.HTMLBody = EBody

.Display

End With