Read inbox from Outlook

[NK]

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  Expand view

/
   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



[Enrico Maria Giordano]

Have you checked the file VBAOUTL*.CHM?

EMG

[NK]

Have you checked the file VBAOUTL*.CHM?

EMG

Yes, but nothing found

[Enrico Maria Giordano]

Have you checked the file VBAOUTL*.CHM?

EMG

Yes, but nothing found

Have a look at MailItem object's properties (as an example, I can see the To property).

EMG