16-01-19 02:15 PM
19-01-19 01:12 AM
I highly recommend grabbing the MS Outlook VBO from a BP6 install, or from the Digital Exchange. (Note that installing BP6 doesn't mean upgrading your instance - just install it and copy the files out of the VBO directory where it installs, then downgrade to whichever version your environment supports.) Here's the code they provide for this.
Dim app = CreateObject(""Outlook.Application"") Dim _nameSpace = app.GetNameSpace(""MAPI"") Dim item = _nameSpace.GetItemFromID(Entry_ID) item.SaveAs (File_Path & File_Name & "".msg"")
06-02-19 02:29 AM
06-02-19 03:06 AM