Code: Select all
ol := ComObjActive("Outlook.Application").ActiveInspector.CurrentItem
MsgBox, % ol.Body
Code: Select all
ol := ComObjActive("Outlook.Application").ActiveExplorer.Selection.Item(1)
MsgBox % "Sender: " ol.ReceivedByName "`r`nReceived Time:`r`n" ol.ReceivedTime "`r`nSubject:`r`n" ol.Subject "`r`nBody:`r`n" ol.Body