Here it is with your changes. Other Redemption code works.

Thanks.

'-----START -- OF CODE ----------

Dim utils

Private Sub Add_X_Header(ByVal Item As Object, Prop, Val As String)

   Const PT_STRING8 = &H1E

   Dim PrId As Long

   Dim localProp As String

   Dim localVal As String

   Dim foo As Integer

   localProp = Prop

   localVal = Val

   ' set high word of PrID to Property Id of Extended Header; create if
necessary

   PrId = utils.GetIDsFromNames(Item.MAPIOBJECT, _

       "{00020386-0000-0000-C000-000000000046}", localProp, True)

   ' set the low word to PT_STRING8

   PrId = PrId + PT_STRING8

   ' foo = utils.HrSetOneProp(Item.MAPIOBJECT, PrId, localVal, True)

   foo = utils.HrSetOneProp(Item.MAPIOBJECT, PrId, localVal, False)

End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

   Set utils = CreateObject("Redemption.MAPIUtils")

   On Error GoTo errorExit

   Add_X_Header Item, "X-Habeas-SWE-1", "winter into spring"

   Add_X_Header Item, "X-Habeas-SWE-2", "brightly anticipated"

   Add_X_Header Item, "X-Habeas-SWE-3", "like Habeas SWE (tm)"

   Add_X_Header Item, "X-Habeas-SWE-4", "Copyright 2002 Habeas (tm)"

   Add_X_Header Item, "X-Habeas-SWE-5", "Sender Warranted Email (SWE) (tm).
The sender of this"

   Add_X_Header Item, "X-Habeas-SWE-6", "email in exchange for a license fo
r this Habeas"

   Add_X_Header Item, "X-Habeas-SWE-7", "warrant mark warrants that this is
a Habeas Compliant"

   Add_X_Header Item, "X-Habeas-SWE-8", "Message (HCM) and not spam. Please
report use of this"

   Add_X_Header Item, "X-Habeas-SWE-9", "mark in spam to
<http://www.habeas.com/report/>;."

   Set utils = Nothing

   Cancel = False

   Exit Sub

errorExit:

   MsgBox "There has been an error adding headers"

   Cancel = True

'errorExit:

   MsgBox "There has been an error adding headers - " & Err.Description

End Sub

'--------------END OF CODE ---------