![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
#1
|
|||
|
|||
![]()
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 |
Ads |
#2
|
|||
|
|||
![]()
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 |
#3
|
|||
|
|||
![]()
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
"Unable to Display the Folder" msg, can't delete folder | Yvonne | Outlook - Calandaring | 2 | March 29th 06 08:01 PM |
Cannot copy this folder as it may contain private items | carlstev | Outlook - General Queries | 2 | March 9th 06 10:03 PM |
Send an email copy to folder | [email protected] | Outlook - General Queries | 3 | February 16th 06 02:44 PM |
copy a record to another folder | Bobbi Z | Outlook - Using Contacts | 3 | February 10th 06 08:45 PM |
Copy useful news to local folder | kei | Outlook Express | 3 | January 21st 06 12:37 AM |