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