Save current message to .msg format

[criticalim]

All the samples I have seen actually read from an outlook folder whichi will not work. I want to be able to begin authoring an email, add contacts and attachments then allow for executing a macro that will take the current message and save it to the files system as an msg file.

I Appreciate any help.