HTML code inside VBA Code for email

[mchadwick]

I have an email I am trying to create and would like to add a definition list to it. Here is my code below with the definition list below in red. It's HTML. I'm afraid I'm going to have to type it out line by line, if so I need to find out how to add spaces in front of the text.




Private Sub Command24_Click()


Me.[Sent] = True

Dim Msg As String

Msg = "Hello " & [Pref_First] & ",<br>" & _
" text.<P>" & _
"text.<br>"
'insert Definition list here


Dim O As Outlook.Application
Dim M As Outlook.MailItem


Set O = New Outlook.Application
Set M = O.CreateItem(olMailItem)


With M
.BodyFormat = olFormatHTML
.HTMLBody = "<IMG src= C:\Users\mc900136\Documents\header.jpg width=450><br>" & Msg
.To = [Email - Primary Work]
.CC = [Manager Email]
.Subject = "Consolidation - Questionnaire Duel Account User"
.Display

End With


Set M = Nothing
Set O = Nothing




End Sub
Definition lists

Definition lists allow you to indent without necessarily having to use bullets.
<dl>
<dt> Question one with options to choose from below
<dd> Option One.
<dd> Option Two.
<dt> Question two with options to choose from below
<dd> Option One.
<dd> Option Two.
</dl>
And here is how this would be displayed
Question one with options to choose from belowOption One.Option Two. Question two with options to choose from belowOption One.
Option Two.

[Micron]

Not sure what your issue is. All of your html code must be contained in your msg variable if you expect it to become part of the email html body.

Question one with options to choose from belowOption One.Option Two. Question two with options to choose from belowOption One.
Option Two.

That doesn't look like a description list at all.

Please use code tags (# button on posting toolbar) to maintain code indentation and readability.