Forse partendo da questo esempio trovat nelne news si riesce a risolvere il mio problema:
Code:
oOL := TOleAuto():New( "Outlook.Application" )
lOutlookOK := .T.
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" )
cBody := oNewContact:get( "Body" ) && questo l'ho inserito io grazie al tuo sempio e funziona
- quali sono tutte le altre informazioni che posso beccare ?
- ho provato a cercare nel web e nel mio pc il file: VBAOUTL?.CHM che mi poteva aiutare ma.... non ho trovato niente, per la verita' mi occorrerebbe qualche codice di risposta della email del tipo Non esestente,spazio email insuff, ecc...
NEXT nContador
RETURN NIL
Ci siamo quasi, un ultimo sforzo
Grazie