Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set Session = CreateObject("Redemption.RDOSession")
- Session.MAPIOBJECT = Application.Session.MAPIOBJECT
- set redItem = Session.GetMessageFromId(OutlookMessage.EntryID)
- set redFolder = Session.GetFolderFromId(OutlookFolder.EntryID)
- for each attach in redItem.Attachments
- if attach.Type = olEmbeddeditem Then
- attach.EmbeddedMsg.CopyTo OutlookFolder
- End If
- next
Add Comment
Please, Sign In to add comment