Как исходный текст письма (source) преобразовать в строку
Dim colSelection As Outlook.Selection
Set colSelection = Application.ActiveExplorer.Selection
Set mailItem = colSelection.Item(1)
Как из mailItem вытащить исходник письма (source) и сделать строкой?