FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Using Outlook
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Using Outlook
Posted: Tue May 14, 2013 06:29 AM
Code (fw): Select all Collapse
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
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion