Outlook 2002 ShortCut Attachments

D

David Wilson

Evening all,

I have an Exchange system that isn't running the Outlook Security PF.
I've been using Redemption to skirt around the issue of RTF based
shortcuts not opening without said Outlook Security folder.

Everything seems fine. The boss doesn't mind the fact the shortcut
comes through as a "Outlook Message Attachment". However, it seems
under 2002 SP3 (Not sure if SP1/SP2 causes it), I don't even get that.
I get a blank "Attachments" field, but if you click in it the shortcut
fires.

Set oSafeMailItem = CreateObject("Redemption.SafeMailItem")
oSafeMailItem.Item = oMailItem

sBody = oSafeMailItem.Body
oMailItem.HTMLBody = addHTMLFont & Replace(sBody, vbCrLf, "<br />")

Set oAttachment = oMailItem.Attachments.Add(Application.ActiveInspector.CurrentItem,
5)
oAttachment.DisplayName = oCurrentItem.Subject

Has anyone else experienced this?

Thanks,

David Wilson
 
Top