Dim
objHTML
As
MSHTML.HTMLDocument
Dim
objMailItem
As
Outlook.MailItem
Set
objMailItem = GetNamespace(
"MAPI"
).GetDefaultFolder(olFolderInbox).Items(1)
Set
objHTML =
New
MSHTML.HTMLDocument
Call
CallByName(objHTML,
"writeln"
, VbMethod, objMailItem.HTMLBody)
With
objHTML.DocumentElement
With
.getElementsByTagName(
"TABLE"
)
If
.Length > 0
Then
Call
Copy(.Item(0).outerHTML)
End
If
End
With
End
With