Como utilizar o Redemption

Uma questão interessante no NG foi esta e já há algum tempo que quería escrever sobre este assunto e então cá vai:

Pergunta: Fiz download da aplicação Redemption (http://www.dimastr.com/redemption/), mas não sei qual a propriedade que devo alterar o valor para que a mensagem não seja apresentada aquando do envio de email apartir de
outras aplicações. Consegues me ajudar ?

Resposta: A solução talvez esteja explicada neste código:

Function TestRedemption()

Dim SafeItem, oItem, objOL, Namespace

Set objOL = CreateObject("Outlook.Application")
Set Namespace = objOL.GetNamespace("MAPI")
Namespace.Logon
Set SafeItem = CreateObject("Redemption.SafeMailItem") 'Instancia do Redemption
Set oItem = objOL.CreateItem(0) 'Criar nova mensagem
oItem.Save
SafeItem.Item = oItem
SafeItem.Recipients.Add "somebody@somewhere.com"
SafeItem.Recipients.ResolveAll
SafeItem.Attachments.Add "c:\msinput.ini"
SafeItem.Subject = "Testar Redemption"
SafeItem.Body = "Texto da mensagem de teste"
SafeItem.Send

End Function