How to copy attachment .msg into folder ?

  • Thread starter Thread starter ZamekPetr
  • Start date Start date
Z

ZamekPetr

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
 
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
 
Back
Top