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

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

Será porque el NameSpace mailheader... no contiene ningún field
X-Software-Mailer??? el field es x-mailer...

Sashka

"Virmix" escribió en el mensaje
news:N6p3d.137587$
> Aquí abajo expongo el codigo que uso y funciona perfectamente al 100% ,
pero
> me gustaria saber como es posible insertar HEADER al email con este

o
> 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

> 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
>
>

Será porque el NameSpace mailheader... no contiene ningún field
X-Software-Mailer??? el field es x-mailer...

Sashka

"Virmix" escribió en el mensaje
news:N6p3d.137587$
> Aquí abajo expongo el codigo que uso y funciona perfectamente al 100% ,
pero
> me gustaria saber como es posible insertar HEADER al email con este

o
> 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

> 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
>
>