I want to read the messages in the inbox of Outlook or direct
from the pop server .
I want also to save the attached files (if present) in a defined folder .
I want to do that with a Fivewin program .
Thanks
Ph Jacquet (Belgium)
#define olFolderInbox 6
FUNCTION MAIN()
LOCAL oOutlook := CREATEOBJECT( "Outlook.Application" )
LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI")
LOCAL oInbox := oNameSpace:GetDefaultFolder( olFolderInbox )
LOCAL i
FOR i = 1 TO oInbox:Items:Count
? oInbox:Items[ i ]:Body
?
NEXT
oOutlook:Quit()
RETURN NIL
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 46 guests