Use Attachment.SaveAsFile - it will save the embedded messages in the MSG
format.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

wrote in message
ups.com...
Please, could you give me a tip how to make the following task by
program in VBA for Outlook?

I have a message (MSG0) in my inbox folder. This message has some
attachments of type embedded message (MSG1[, MSG2,...]).
I would like to make by the program the same as if I take the icon of
the embedded message MSG1 in the open MSG0 by mouse, drag it and drop
into my inbox folder.


For i = 1 To mItem.Attachments.Count
finam = mItem.Attachments.Item(i).FileName
If mItem.Attachments.Item(i).Type = olEmbeddeditem _
And Right(finam, 4) = ".msg" Then
.................
????????????
.................
End If
Next i