Enviar E_MAIL , comor ?????

20/09/2004 - 01:55 por Virmix | Informe spam
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 codigo 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 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

Preguntas similare

Leer las respuestas

#1 Sashka
20/09/2004 - 06:23 | Informe spam
Será porque el NameSpace mailheader... no contiene ningún field
X-Software-Mailer??? el field es x-mailer...

http://msdn.microsoft.com/library/d...header.asp

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 codigo


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


Respuesta Responder a este mensaje
#2 Sashka
20/09/2004 - 06:23 | Informe spam
Será porque el NameSpace mailheader... no contiene ningún field
X-Software-Mailer??? el field es x-mailer...

http://msdn.microsoft.com/library/d...header.asp

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 codigo


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


Respuesta Responder a este mensaje
#3 Virmix
20/09/2004 - 14:17 | Informe spam
No, no es eso, ya que X-Software-Mailer es mi NAMESPACE

.Item("urn:schemas:mailheader:Myheader")= "some value"


"Sashka" escribió en el mensaje
news:
Será porque el NameSpace mailheader... no contiene ningún field
X-Software-Mailer??? el field es x-mailer...




http://msdn.microsoft.com/library/d...dosys/html
/_cdosys_schema_mailheader.asp

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


codigo
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


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


Respuesta Responder a este mensaje
#4 Virmix
20/09/2004 - 14:17 | Informe spam
No, no es eso, ya que X-Software-Mailer es mi NAMESPACE

.Item("urn:schemas:mailheader:Myheader")= "some value"


"Sashka" escribió en el mensaje
news:
Será porque el NameSpace mailheader... no contiene ningún field
X-Software-Mailer??? el field es x-mailer...




http://msdn.microsoft.com/library/d...dosys/html
/_cdosys_schema_mailheader.asp

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


codigo
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


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


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida