D
dkgb
I am trying to use Outlook Redemption to save an email message upon arrival
to a msg file. Despite using redemption, it generates a security message.
Am I doing something wrong? See code below.
strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
on Error GoTo exitfunction
Set olMail = olNS.GetItemFromID(strID)
On Error GoTo 0
Set SafeMail = CreateObject("Redemption.SafemailItem")
SafeMail.item = olMail
StrPath = StrPath & "Suppliers\" & ID & "-" & Format(rstlog!ID, "#") & ".msg"
SafeMail.item.SaveAs StrPath, olMSG
to a msg file. Despite using redemption, it generates a security message.
Am I doing something wrong? See code below.
strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
on Error GoTo exitfunction
Set olMail = olNS.GetItemFromID(strID)
On Error GoTo 0
Set SafeMail = CreateObject("Redemption.SafemailItem")
SafeMail.item = olMail
StrPath = StrPath & "Suppliers\" & ID & "-" & Format(rstlog!ID, "#") & ".msg"
SafeMail.item.SaveAs StrPath, olMSG