vba 邮件body html,Access VBA Outlook Mailtiem.Body vs MailItem.HTMLBody

I am Trying to Populate a Series of Generated Emails With Custom Hyperlinks But am Having Trouble in Getting the Hyperlinks to Generate Properly.

I Have a User Form that allows the Person Creating the Reports to Enter in the E-Mail Body into a Text Field. This Field is Assigned to a Table.

In My Code I am Pulling those Fields and Parsing them for Keywords like DATE and HYPERLINK and Replacing those Keywords with the Code Generated Numbers.

As I Create Hyperlinks I am Inserting them into the Body String like Below:

Function CreateHyperLink(HyperText, HyperLink) As String

CreateHyperLink = "

"

CreateHyperLink = CreateHyperLink & "'" & HyperText & "'"

CreateHyperLink = CreateHyperLink & ""

End Function

But When I insert these as(eBody is an Array of Strings)

Set oMail = oApp.CreateItem(olMailItem)

With oMail

.To = t

.CC = c

.HTMLBody = eBody(i)

.Subject = eSubject(i)

ETC.....

The Hyperlinks Create Properly But I lose all the Spacing and Line Breaks from the Text the User Entered.

If Instead I use

Set oMail = oApp.CreateItem(olMailItem)

With oMail

.To = t

.CC = c

.Body = eBody(i)

.Subject = eSubject(i)

ETC.....

I Keep all the Formating but Lose the Hyperlink.

Is There a Best of Both Worlds Solution? I Do not want my Users to have to Type in the entire Email in HTML.

Example Output of Method .htmlBody (Hyperlink is Valid but Missing Format)

The file can be accessed via:

'Click here to access the Report '

Please use the filters to select your...

Example Output of Method .Body (Hyperlink is not Valid but Formated)

The file can be accessed via :

'Click here to access the Report ' "

Please use the filters to select your...

Is there a Way to add Hyperlinks in .body or a way to Keep Formatting with .HTMLbody?