easy exchange vba

I need some vba code (vb6) to view all emails which are not read from an outlook/exchange folder (via mapi or other) mapi profile, and mailbox can be constants then to loop through each mail item (not read) retrieve; sender to address date and time (sent) subject and body then mark it as read. Thats it ! Must use some exchange/Outlook API and not pop3/smtp. ## Deliverables 1) Complete and fully-functional working code in executable form as well as complete source code of all work done. 2) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement). ## Platform VB6