Read inbox from Outlook

NK · Post by NK » Thu Jul 13, 2006 2:32 pm

Hi Everybody,

Does someone have experiences of you to read the inbox in Outlook via OLE?

Yet some variable names are missing for fromeMail, toemail etc..

Greeting, Norbert

Code: Select all

/
   TRY
      oOL := TOleAuto():New( "Outlook.Application" )
      lOutlookOK := .T.
   CATCH
      lOutlookOK := .F.
   END
   IF ! lOutlookOK
      RETURN ( 0 )
   ENDIF

   oNameSpace   = oOL:Get( "GetNameSpace", "MAPI" )
   oContacts    = oNameSpace:Get( "GetDefaultFolder", "6" )  // 6 = Inbox-Folder
   
   FOR nContador = 1 TO oContacts:ITEMS:Count()
         oNewContact  = oContacts:ITEMS( nContador )
         cSenderName	:= oNewContact:get( "SenderName" )
         cSubject		:= oNewContact:get( "Subject" )

  >>>> ??????

   NEXT nContador
RETURN NIL