saving embedded email attachments

[khcharles]

I have office documents embedded into other office documents as an
attachment. for example I have an XLS embedded in an RTF where the
oleformat.classtype is Outlook.FileAttach. how do I save this attachment
with its original filename?