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
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
/
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
