Lotus Notes 8.5 save attached file from “unread” messagges in a specific folder with excel vba

Hi everybody,
can anybody help me with a sample code?

In the folder “DailyFile” I receive every day messages with attached files and what I would like to do is described below:
• Locate only unread messages and determine if the message has an attachment or not;
• If there is the attachment I need:
o Find the date of the message;
o Read the first 3 characters of the subject of the email;
o Save the attachment locally in a specific folder, precede the file name attached to the mail, with the date of the message in "yyyymmdd" format (i.e. yyyymmdd_AttachmentFileName_First3CharactersOfTheSubject.txt);
o Mark the message as read.

Thanks in advance!!
Paolo