I'll bet there is no easy solution to this problem, but I thought I would try anyhow.
I cannot do a Saveas of a particular email message.
The email's total size is only 6 MB, but the email has an odd structure which contains 3 levels:
Level 1 is the email with subject "look at this"
Level 2 is an attachment named "Master.msg". it contains 100 sub attachments named "Att1.msg to "Att100.msg"
level 3 are the attachments. It is possible that some of them have Level 4 sub attachments, but I don't think so.
The failing code is very simple:
Dim Item As Outlook.mailItem
Set Item = ActiveExplorer.Selection(1)
On Error Resume Next
Item.SaveAs "c:\aaatmp\test451.uni", olMsg
Debug.Print InputBox("", , Err & " " & Error)
The error message is
"-2147024882 There is not enough free memory to run this program. Quit one or more programs, and then try again.
This SaveAs fails in both Outlook 2003 and Outlook 2010.