How to copy attachment .msg into folder ?
 

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

How to copy attachment .msg into folder ?
 

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

How to copy attachment .msg into folder ?
 

It is OK for writing as file, but not into inbox as message.I got
onother perfect idea from Sue Mosher: The code sample at
http://www.outlookcode.com/codedetail.aspx?id=523 shows how to use the
Redemption library to import embedded messages into Outlook. THere is
no pure Outlook object model way to do this.
Thank you for your answer.
P. Zámek