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