OutLook & ActiveInspector

[Antonio Linares]

Has someone been able to access ActiveInspector from OutLook ?

Code: Select all  Expand view

function ReadMail()

   local oOutlook, oInspector, oMailItem

   oOutlook = TOleAuto():New( "Outlook.Application" )
   
   oInspector = oOutlook:ActiveInspector()
   
   oMailItem = oInspector:CurrentItem()
   
   MsgInfo( oMailItem:Body )
   
return nil   


[Antonio Linares]

It properly works that way. The only requisite is that the email window is opened