Outlook VBA - Automatic save Mail as msg and in Outlook

Question

I have becuase I need a vba script that scans on new mails and save them in a folder in Outlook, first is a folder with the Domainname -> 2nd subfolder is the year ->