Macro to save email as: Date - Sender - Recipient - Subject. Slight glitch

Hello all.

I have managed to find and slightly adjust a code that allows me to save an email with the date, sender, recipient & subject as the file name. It works great when I am saving an email that I have received. However, when I save an email that I have sent it misses off the recipient's name. Any ideas? The code I have is as follows:

Please Login or Register  to view this content.

I know it's a little late, but let's not let the thread go unanswered.
Try the line:

Please Login or Register  to view this content.

replace with:

Please Login or Register  to view this content.

You can also try oMail.To replace with oMail.Recipients(1).
I assume this construction should handle the Inbox and also the Sent Items.

Artik