MY CODE: Sub ImportMSGFile(x) Dim sItem, oItem Set sItem = CreateObject("Redemption.SafeMailItem") Set oItem = Application.Session.GetDefaultFolder(6).Items.Add(6) 'I don't know what (6) corresponds to, but it's apparently some type of weird post item. Would love to change to regular mail. sItem.Item = oItem sItem.Import "E:\MyFiles\Admin\HoldFile\TobeImported\" & x, 3 'I know the 3 is critical, but I can't figure out what to change it to. sItem.Save End Sub SAMPLE CODE ON THE REDEMPTION SITE: set Session = CreateObject("Redemption.RDOSession") Session.MAPIOBJECT = Application.Session.MAPIOBJECT set Msg = Session.GetDefaultFolder(16).Items.Add(6) Msg.Import "c:\temp\test.msg", 3 'olMSG, olRFC822 and olTNEF formats are supported Msg.Save 'Only their sample code, and no variations, seem to work.
From novice to tech pro — start learning today.