Enviar E_MAIL , comor ?????

Aquí abajo expongo el codigo que uso y funciona perfectamente al 100% ,

me gustaria saber como es posible insertar HEADER al email con este codigo

con otro, segun he visto en la pagina de microsoft con poner la linea de
abajo lo insertar, pero mis pruebas aun siendo positivas no aparecen en el
mail.

Flds("urn:schemas:mailheader:X-Software-Mailer") = "Mi soft"



==> Set email = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "mi_smtp"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0

Flds.Update
Set email.Configuration = iConf

email.to = "email"
email.from = "email"
email.Subject = "mi asunto"


email.TextBody ="texto de prueba"


email.Send

Set email = Nothing