Download embedded Outlook attachment in Ms Acces 97

hallo,

my problem is: 

sometimes in Outlook 2003 there are emails that have an attachment & in it there's another attachment embedded (for exemple another email) & another attachment etc. etc.

I need to arrive at last embedded attachment level with MS Access97.

Now I open first level of the attachment as follow 

     Set objOutlook = CreateObject("Outlook.Application")   

     Set objOutlookSpace = objOutlook.getnamespace("MAPI")   

     Set objOutlookFolder = objOutlookSpace.GetDefaultFolder(6) 

    .....

     Set objOutlookInbox = objOutlookFolder.items(iNloopItems)

     .....

     Set objInboxAttachments = objOutlookInbox.Attachments

     iAttachmentsNumber = objInboxAttachments.Count 

     If iAttachmentsNumber > 0 Then
        For iNloopAttachments = 1 To iAttachmentsNumber
              If objInboxAttachments.Item(iNloopAttachments).Type = 4

                   In this case I've a new attachment embedded in the attachment  & in my opinion the only way to read it is to restart the loop setting a new temporary object to analyze the embedded file

                 Set objMessageTmp = objInboxAttachments.Item(iNloopAttachments).Source

But  the object   objMessageTmp  must be defined as message to allow me to go at the last level of embedded attachment inside the email

this is my problem:     HOW TO DEFINE IN MS ACCESS97 AN OBJECT AS MESSAGE  (I can do it in VB6, but not in Access97)  ?

If it's not possible, there's another solution ?

Thank

Roberto