Can anyone show me how to get html from Notes inbox messages in VBA? I am using Access VBA to send notes email messages.  The message is a form I'm asking the recipient to fill out and return.  The message contains html with <select> and <input> elements.  The replies come back and in Lotus Notes, I am able to read what option the sender selected and any text they may have entered.  In VBA code, I am able to loop thru the inbox messages and get the message, however I am only able to get the plain text.  With plain text, I am able to get the text that was entered into a textbox element but I am not able to get anything from a dropdown select element. Here is some code that is working:

Dim session As Object
Dim mailDb As Object
Dim view As Object
Dim doc As Object

Dim MailServer As String
Dim MailDbPath As String

MailServer = "myMailServer"
MailDbPath = "myDBPath"
Dim i As Integer
Set session = CreateObject("Notes.NotesSession")

Set mailDb = session.GETDATABASE(MailServer, MailDbPath$)
If mailDb.isOpen = False Then mailDb.OPENMAIL
Set view = mailDb.GetView("ReplyFolder")
Set doc = view.GetFirstDocument

Do While Not (doc Is Nothing)
Dim thisSubject As String
Dim thisFrom As String
Dim thisDate As Date
Dim thisbody As String
thisDate = doc.Created
If doc.GetItemValue("Form")(0) = "Reply" Then
thisSubject = doc.GetItemValue("Subject")(0)
If InStr(1, thisSubject, "*** RESPONSE REQUIRED ***") > 0 Then
thisFrom = doc.GetItemValue("From")(0)
thisbody = doc.GetItemValue("Body")(0)'<<<  This is the plain-text body of the message.
'     html tags are stripped out.
'     I get text from <input type='text'> elements
'     I do not get text from <select> elements
End If
End If
Set doc = view.GetNextDocument(doc)
i = i + 1
If i > 1000 Then Exit Do
Loop