Sub sendMailThroughRedempetion()

    Dim appOL               As Outlook.Application
    Dim myEmail             As Outlook.MailItem
    Dim mySafeEmail         As Redemption.SafeMailItem

    Set appOL = CreateObject("Outlook.Application")
    Set myEmail = appOL.CreateItem(olMailItem)
    Set mySafeEmail = CreateObject("Redemption.SafeMailItem")

    With mySafeEmail
        .Item = myEmail
        .Recipients.Add "someone@somewhere.com"
        .Recipients.ResolveAll
        .Subject = "My test redemption message"
        .Body = "Body of my message"
        .Send
    End With
End Sub