Using Outlook

[Antonio Linares]

Code: Select all  Expand view

function Main()

   local olApp := CreateObject( "Outlook.Application" )
   local olns := olApp:GetNameSpace( "MAPI" )
   local oUserFolder := olns:Folders( "alinares@fivetechsoft.com" )
   local oFolder := oUserFolder:Folders( "Bandeja de entrada" )
   local n
 
   MsgInfo( "Total emails: " + AllTrim( Str( oFolder:Items:Count ) ) )
 
   for n = 1 to Min( oFolder:Items:Count, 10 )
      MsgInfo( oFolder:Items( n ):Subject )
   next

return nil