Ekstra Mail header med CDO fra en .asp side

Hejsa
Jeg har nedenstående funktion som jeg benytter til at sende en mail fra en .asp side.
Nu er jeg i gang med at lave en Bounce back system og i den forbindelse vil jeg gerne have indsat en ekstra Mail header som skal indeholde den ID som findes i databasen på det pågældende abbonnement,

Er der nogen som ved hvordan man indsætter sådan en ekstra header ?

-----------------------------------------
Sub sendmail

'Dimension variables
Dim objCDOSYSCon, objCDOSYSMail

'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

' HER VIl JEG GERNE LAVE EN EKSTRA MAIL HEADER SOM HEDDER UserID og som indeholder UserIDValue
' Hivs det skal indsættes på et tidligere tidspunkt eller et andet sted er det også OK - jeg formoder bare det skal være her ???

' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/mailheader:UserID") = UserIDValue

objCDOSYSCon.Fields.Update

'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon


objCDOSYSMail.From     = from
objCDOSYSMail.To     = email
objCDOSYSMail.cc     = emailcc
objCDOSYSMail.bcc     = emailbcc
objCDOSYSMail.ReplyTo     = ReplyTo

objCDOSYSMail.Subject = Subject

objCDOSYSMail.HTMLBody = Txt

objCDOSYSMail.Send

'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

End Sub

-----------------------------------------