Как исходный текст письма (source) преобразовать в строку

[sodzo]

Код: Выделить всё

Dim mailItem As Outlook.mailItem
Dim colSelection As Outlook.Selection
Set colSelection = Application.ActiveExplorer.Selection
Set mailItem = colSelection.Item(1)


Как из mailItem вытащить исходник письма (source) и сделать строкой?

[Gloom]

Свойства HTMLBody или Body

[sodzo]

Не, не то... только тело письма достается, а как заголовки достать?