Redemption: problem adding a link to a SafeMailItem

[Marco Pessina]

I'm using Redemption mail Item and the problem is that the sent Mail
has the Item attached as Obiect and NOT as link attachment(type 5).

Function cmdMailSend_click()

Dim objMailItem
Dim SafeMail
Set objmailItem = Application.CreateItem(olItemMail)
Set SafeMail = CreateObject("Redemption.SafeMailItem")
SafeMail.Item = objmailItem

Call sUpdateTo(SafeMail)

SafeMail.subject= "Mail Sent by…"
SafeMail.body = Item.body
Item.save
‘Add a shortcut to the current item
SafeMail.Attachments.Add Application.ActiveInspector.CurrentItem, 5
SafeMail.send

End Function

Instead, if i don't use Redemption (but i get the security prompts) i
get the expected result.
Thanks for any help.