Enviar correo con CDO usando hotmail

[Intel Man]

Hola a todos, estuve buscando en los correos pasados pero no encuentro la configuración para enviar correo usando VFP con una cuenta en hotmail.

Sí puedo enviar usando CDO y una cuenta de otro hosting, pero con hotmail no puedo.

Cuales serían los parametros:

 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""


Y si es que me falta alguno mas.

Gracias.

[HernanCano]

Envío de correo electrónico por el servidor SMTP de Windows Live
Hotmail
http://www.portalfox.com/index.php?name=News&file=article&sid=2677

[Intel Man]

Gracias, ya lo probé pero igual me aparece error:

Messaje:"OLE IDispatch exception code 0 from CDO.Message.1: The transport failed to connect to the server.

Saludos

> Date: Tue, 16 Aug 2011 11:24:13 -0700
> Subject: [vfp] Re: Enviar correo con CDO usando hotmail
> From: jherna...@gmail.com
> To: publice...@googlegroups.com

[Luis Maria Guayan]

El código de ese artículo funcionaba, hasta que Microsoft bloqueo su puerto SMTP a quienes no utilicen clientes de correo de MS y algunos otros mas. (yo tengo configurada una cuenta de Hotmail en mi Thunderbird y funciona sin problemas)

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[HernanCano]

Envío de correo electrónico por el servidor SMTP de Gmail
http://www.portalfox.com/index.php?name=News&file=article&sid=2413&mode=nested&order=0&thold=0

On 16 ago, 13:01, Intel Man <intel_man_in...@hotmail.com> wrote:

[Hugo C.]

Este ejemplo a mi me funciona pero con yahoo.
con gmail y hotmail me manda el error de ...transporte....

http://www.berezniker.com/content/pages/visual-foxpro/send-email-yahoo-mail-account

Saludos.

[Intel Man]

Hola, mi cliente habia cambiado la clave y no recordaba; con este código funciona sin problemas:

use mail
  xserver="smtp.live.com"
  xpuerto=25
  xremitentemail="tucu...@hotmail.com"
  xremitentenombre="tu nombre"
  xclave="tuclave"
try
  loCfg = CREATEOBJECT("CDO.Configuration")
  WITH loCfg.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = xserver
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = xpuerto

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =xremitentemail
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = xclave
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = .t.
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .T.
    .Update
  ENDWITH

  loMsg = CREATEOBJECT ("CDO.Message")
  WITH loMsg
    .Configuration = loCfg
    .From = xremitentenombre+" <"+xremitentemail+">"
    .To = alltrim(mail.nombre)+" <"+alltrim(mail.mail)+">"
    .Subject = "prueba"
    .TextBody = "prueba de texto"
    .Send()
  ENDWITH

CATCH TO loErr
  MESSAGEBOX("No se pudo enviar el mensaje" + CHR(13) + ;
    "Error: " + TRANSFORM(loErr.ErrorNo) + CHR(13) + ;
    "Mensaje: " + loErr.Message , 16, "Error")
FINALLY
  loMsg = NULL
  loCfg = NULL
ENDTRY

Habier si lo prueban todos, para ver si sigue funcionando.

Gracias a todos por su ayuda.

Saludos.

---

Date: Tue, 16 Aug 2011 15:36:33 -0300
From: luism...@gmail.com
To: publice...@googlegroups.com
Subject: Re: [vfp] Re: Enviar correo con CDO usando hotmail

[ZeRoberto]

Cual es el Thunderbird? es como el Outlook?

Saludos

[Luis Maria Guayan]

http://www.mozilla.org/es-ES/thunderbird/

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Hugo C.]

Interesante SoftWare.

Saludos.

On 16 ago, 13:37, Luis Maria Guayan <luismar...@gmail.com> wrote:
> http://www.mozilla.org/es-ES/thunderbird/
>
> Luis María Guayán
> Tucumán, Argentina

> _________________________http://www.PortalFox.com

> Nada corre como un zorro
> _________________________
> El 16/08/2011 16:11, ZeRoberto escribió:Cual es el Thunderbird? es como el Outlook?
>

> SaludosEl 16 de agosto de 2011 13:36, Luis Maria Guayan<luism...@gmail.com>escribió:El código de ese artículo funcionaba, hasta que Microsoft bloqueo su puerto SMTP a quienes no utilicen clientes de correo de MS y algunos otros mas. (yo tengo configurada una cuenta de Hotmail en mi Thunderbird y funciona sin problemas)

>
> Luis María Guayán
> Tucumán, Argentina

> _________________________http://www.PortalFox.com

[Walter R. Ojeda Valiente]

No funcionó, aparece un mensaje que dice:

"Error: 1429"
"Mensaje: OLE Dispatch exception .... Error de transporte en la conexión al servidor"

Saludos.

Walter.

---

From: intel_m...@hotmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] Re: Enviar correo con CDO usando hotmail
Date: Tue, 16 Aug 2011 19:07:03 +0000

[Intel Man]

Hola, yo estoy enviando varios mail en estos instantes y con la misma rutina me ha fallado 2 veces con ese mensaje pero los otros mail sigue enviando normal, parece que algunas veces falla la conexion, pero siendo hotmail, cualquier cosa se puede esperar :)

Gracias por probar y comentar.

Saludos

---

From: wr...@hotmail.com

To: publice...@googlegroups.com
Subject: RE: [vfp] Re: Enviar correo con CDO usando hotmail

Date: Wed, 17 Aug 2011 01:59:11 +0000

[olga galeano]

yo no encuentro la configuración para enviar correo usando VFP con una cuenta en outlook que segun las ayudas el smtp debiera ser live.com o smtp-mail.outlook.com

pero hasta ahora no lo puedo hacer funcionar. 

Hotmail became Outlook  por favor si alqguien puede ayudar

 siempre me da esto

Mensaje: "Código de excepción OLE IDispatch 0 de CDO.Message.1: El transporte no pudo conectarse al servidor.

[Valentin Fernandez]

Olga, yo utilizo este código que no recuerdo de dónde lo saqué y siempre me ha funcionado bien (lo tengo dentro de un .prg):

*enviocorreo.prg

LPARAMETERS EmailRemitente, Contrasena, EmailDestinatario, Titulo, Texto, ArchivosAdjuntos

 Try

    Local Esquema, oCDO, oMsg, oError

    Esquema = "http://schemas.microsoft.com/cdo/configuration/"

    oCDO = CreateObject("CDO.Configuration")

    with oCDO.Fields

      do case

        case "GMAIL" $ Upper(EmailRemitente)

          .Item(Esquema + "smtpserver")       = "smtp.gmail.com"

          .Item(Esquema + "smtpserverport")   = 465

          .Item(Esquema + "sendusing")        = 2

          .Item(Esquema + "smtpauthenticate") = .T.

          .Item(Esquema + "smtpusessl")       = .T.

        case "HOTMAIL" $ Upper(EmailRemitente) OR "OUTLOOK" $ Upper(EmailRemitente)

          .Item(Esquema + "smtpserver")       = "smtp.live.com"

          .Item(Esquema + "smtpserverport")   = 25

          .Item(Esquema + "sendusing")        = 2

          .Item(Esquema + "smtpauthenticate") = .T.

          .Item(Esquema + "smtpusessl")       = .T.

        case "YAHOO" $ Upper(EmailRemitente)

          .Item(Esquema + "smtpserver")       = "smtp.mail.yahoo.com"

          .Item(Esquema + "smtpserverport")   = 25

          .Item(Esquema + "sendusing")        = 2

*          .Item(Esquema + "smtpauthenticate") = .T.

*          .Item(Esquema + "smtpusessl")       = .T.

        otherwise

         * Wait Window "No puedo enviar este e-mail. No conozco los parámetros necesarios del servidor de correo"

      endcase

      .Item(Esquema + "sendusername") = EmailRemitente

      .Item(Esquema + "sendpassword") = Contrasena

      .Update()

    endwith

    oMsg = CreateObject("CDO.Message")

    with oMsg

      .Configuration = oCDO

      .From          = EmailRemitente

      .To            = EmailDestinatario
           
      *.BCC           ="otroc...@correo.com"

      .Subject       = Titulo

      *.TextBody      = Texto      && para texto plano
     
      .HTMLBody = Texto            && para texto hml

      if !Empty(ArchivosAdjuntos)

        .AddAttachment(ArchivosAdjuntos)

*        .AddAttachment()     && Hay que agregar una línea AddAttachment() por cada archivo adjunto

      endif
      * Aquí comento las 3 líneas siguientes que son la confirmación de lectura:
      *.Fields("urn:schemas:mailheader:disposition-notification-to") = .From

      *.Fields("urn:schemas:mailheader:return-receipt-to")           = .From

      *.Fields.Update

      .Send()

      *Wait Window 'El e-mail con título: "' + AllTrim(Titulo) + '" fue enviado exitosamente.'

    ENDWITH
   
    es_correcto = .T.

 catch to oError

    MessageBox("No pudo enviarse el e-mail" + Chr(13) + "Error Nº: " + Transform(oError.ErrorNo) + Chr(13) + "Mensaje: " + oError.Message)
    es_correcto = .F.

 finally

    Release oCDO, oMsg

    oCDO = .NULL.

    oMsg = .NULL.

 endtry

 

Return

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/8da55814-8062-469b-b6c8-54e308865a04%40googlegroups.com.

--

Atentamente:

Valentín Fernández

[Zarlu]

Buenas tardes foxera!

Usando CDO, que es lo que estás usando, para outlook ó hotmail el servidor puede ser "smtp.office365.com" ó "smtp.live.com"

puerto 25 y ssl .T.

*-mServidor="smtp.office365.com"&&ó"smtp.live.com"
*-mPort=25
*-mSSL=.T.

Recíen lo probé ayer y hoy para ambos tipos de correo.

Te adjunto link. de una publicación mía reciente que le contesté a olga galeano (ahora foxera según veo jejeje). Ve último(s) mensajes de éste hilo:

https://groups.google.com/forum/#!topic/publicesvfoxpro/XVZr2DrX12U

zarlu

Chetumal, Quintana Roo, México

[Juan Sebastian Cabrera]

Muchas gracias por compartir, hice una prueba y ha funcionado correctamente. Saludos!

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/8da55814-8062-469b-b6c8-54e308865a04%40googlegroups.com.

--

Atentamente:

Valentín Fernández