From this code:
LOCAL loOutlook,loNS,loInbox,loMailItems,lnItem
loOutlook=CREATEOBJECT('Outlook.Application')
loNS=loOutlook.GetNameSpace('MAPI')
loInbox=loNS.Folders('Personal Folders').Folders('MyFolder')
loMailItems=loInbox.Items
CLOSE ALL
USE Email
DELETE ALL
FOR lnItem=loMailItems.Count TO 1 STEP -1
loItem=loMailItems.Item(lnItem)
APPEND BLANK
REPLACE AddDate WITH loItem.CreationTime
REPLACE Sender WITH loItem.SenderName
REPLACE Subject WITH loItem.Subject
REPLACE Notes WITH loItem.Body
REPLACE To WITH loItem.To
NEXTI need to be able to store the sender's email as well. Anyone knows how to do it?
