HTML - Code (into Ouitlook)

[GaryPanic]

Guys I am using the below code to dump fields into an email
but i want to tidy up the coding
from the HTML body part onwards
would like to change the font to arial if possible

the coding is a little untidy

any pointers

Private Sub EmailerZ_Click()

Dim EmailApp, NameSpace, EmailSend As Object

Set EmailApp = CreateObject("Outlook.Application")
Set NameSpace = EmailApp.GetNamespace("MAPI")
Set EmailSend = EmailApp.CreateItem(0)


EmailSend.To = [Forms]![quotefrm]!
EmailSend.Subject = " Our Reference :-" & " " & [Forms]![quotefrm]![QuoteNo] & " - " & "(" & [Forms]![quotefrm]![Insured] & ")"


EmailSend.HTMLBody = _
"<p>" & "For the Attention of :-" & [Forms]![quotefrm]![POC] & " </p>" _
& vbCrLf & vbCrLf _
& "<br>" & "Insured :-" & [Forms]![quotefrm]![Insured] & " </br>" _
& "<br>" & "Event :-" & [Forms]![quotefrm]![Eventname] & " </br>" _
& "<br>" & "Dates :-" & [Forms]![quotefrm]![openfrom] & " To " & [Forms]![quotefrm]![opento] & " </br>" _
& "<br>" & "Venue :-" & [Forms]![quotefrm]![venuename] & " </br>" _
& "<h1>" & [Forms]![quotefrm]![Text184] & "</h1>" _
& "<p>" & [Forms]![quotefrm]![Text151] & "</p>" _
& "<p>" & [Forms]![quotefrm]![Text155] & "</p>" _
& "<p>" & [Forms]![quotefrm]![Text157] & "</p>" _
& "<br>" & [Forms]![quotefrm]![AccounthandName] & "</br>" _
& "<br>" & [Forms]![quotefrm]![Accounthandtitle] & "</br>" _
& "<br>" & [Forms]![quotefrm]![AccEmail] & "</br>" _
& "<br>" & [Forms]![quotefrm]![accTel] & "</br>" _
& "<br>" & [Forms]![quotefrm]![AccFax] & "</br>" _
& "<br>" & [Forms]![quotefrm]![Webaddz] & "</br>" _
& vbCrLf & vbCrLf _
& "<p>" & [Forms]![quotefrm]![AccountHandsignoff1] & "</p>" _
& "<p>" & [Forms]![quotefrm]![accountHandsignoff2] & "</p>" _
& "<font size=""2"">" & [Forms]![quotefrm]![accountHandsignoff8] & "</font>"

 

[HiTechCoach]

Add this where you want the font to start:

<FONT FACE="Arial, Helvetica, Geneva">

and this to the end:

</FONT>