correo hotmail

[foxera]

hola necesito ayuda por favor.. quiero enviar correo y pdf adjuntos automatizados, lo hago bien desde gmail pero no lo puedo hacer con hotmail.

este programa uso

EmailRemitente= "la...@hotmail.com"

Contrasena = "glclavea1994"

ArchivosAdjuntos= rutap

wTitulo = wnombreanimales

           

           

*!*            

EmailDestinatario =wcorreo 

 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")   = 465

          .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

        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

      .Subject       = wTitulo

      .HTMLBody = "<p><img src='cid:logo_web_bi'></p>" + ;

      "<p> <b><small>cc</small></b>.</p>"+;

      "<p> <big><big>nn</big></big> </p>"+;

      "<p> <i>Tel:(071) xx</i>.</p>"+;

      "<p> <u><FONT color=green >gg</FONT></u> </p>"

      

      loBP = .AddRelatedBodyPart("z:\sas\logo_web_bi.png", "id_imagen10", 1)

      WITH loBP.Fields

        .Item("urn:schemas:mailheader:Content-ID") = "logo_web_bi"

        .Update

      ENDWITH

      if !Empty(ArchivosAdjuntos)

        .AddAttachment(ArchivosAdjuntos)

      endif

      .Send()

    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

 IF es_correcto = .T.

  MESSAGEBOX("ENVIADO !!! ")

endif

    Release oCDO, oMsg

    oCDO = .NULL.

    oMsg = .NULL.

 endtry

 

Return

habra algo mas que tengo que definir?

Graqcias

[Zarlu]

Buenas tardes foxera!

Si puedes enviar con gmail sólo compara y ajusta estos valores:

*-HOTMAIL

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

Suerte

zarlu

Chetumal, Quintana Roo, México

[olga galeano]

hola zarlu, pruebo con office, y que significa mssl?

Gracias

--
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/158fbf93-8965-434e-8c6b-b0723428d604n%40googlegroups.com.

[olga galeano]

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

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

          .Item(Esquema + "smtpserverport")   = 25
          .Item(Esquema + "sendusing")        = 2

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

asi hice pero med error de trasporte de datos

[Zarlu]

Qué tal foxera!

.Item(Esquema + "smtpauthenticate") = 1

Si funciona. lo acabo de probar.

Puedes cambiar ese línea para todos lo dominios. Prueba

(mSSL es la variable para smtpusessl)

zarlu

Chetumal. Quintana Roo., México

[Luis Maria Guayan]

Yo tengo para Hotmail:

el servidor SMTP: smtp-mail.outlook.com

y el puerto SMTP: 587

y la seguridad de la conexión: SSL/TLS

Saludos.

[Antonio Meza]

Si tu proveedor de internet tiene abierto el puerto SMTP 25 entonces vas a poder enviar correos con CDO, pero normalmente ese puerto esta bloqueado, por lo que hay que usar el 587, el problema es que CDO no soporta TLS solo SSL, y este puerto requiere TLS.

Hice una librería en c# que puedes usar desde VFP que usa TLS y puedes enviar correos con cualquier servidor.

https://foxydb.wordpress.com/2020/03/19/cs-y-vfp/

https://foxydb.wordpress.com/csfoxysmtp/

saludos

Antonio Meza

[Antonio Lima]

Hola, 

Según pude observar en el código para hotmail usas el puerto 465,. Pero no ese , es el que mencionan los compañeros 597, o 25.

Si quieres escríbeme y lo vemos. yo  estoy haciendo unas pruebas con ello.

Un saludo.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/12353ba4-b60f-452f-9eb5-bd726469bce2n%40googlegroups.com.

[olga galeano]

Hola Antonio, si voy a probar y me encantaria me pudieras ayudar.

Gracias

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAGPJKZHCVCk8ZDEq7wCuEO4XTquMbOg6XOEb8UKTdfCwQouokQ%40mail.gmail.com.

[olga galeano]

el puerto tiene algo que ver con el equipo? probe 2 servidores live y office365 y con ambos puertos 25 y 597 y siempre me da error 1429, que puedo hace?

[Antonio Meza]

Muestra el código que estas usando para ver que puede ser, desde luego la contraseña y cuenta pueden ser ficticias.

saludos

Antonio Meza

[Zarlu]

Buenas tardes foxera!

Ya te había adjuntado la rutina completa con CDO. Te la dejo de nuevo. Recién la probé sin problemas

https://groups.google.com/g/publicesvfoxpro/c/XVZr2DrX12U/m/tMsGLTG2BwAJ

Otra opción:

https://www.tbare.com/software/swithmail/

zarlu

Chetumal, Quintana Roo, México

[foxera]

sigo sin poder enviar correo desde hotmail ni outlook

EmailRemitente= "la...@hotmail.com"

Contrasena = "glclavea1994"

ArchivosAdjuntos= rutap

wTitulo = wnombreanimales

           

           

*!*            

EmailDestinatario =wcorreo 

 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

HE PROBADO CON TODOS LOS SMTP

OFFICE35, MAIL.OUTLOOK,LIVE

PUERTOS 25,587

Y NADA

ALQUIEN TENDRIA ALGUNA RESPUESTA PARA AYUDARME XFAVOR

[sande...@gmail.com]

Esto siempre me ha funcionado, crea correo gmail y pruebas esto.

--
Enviado desde myMail para Android

domingo, 04 abril 2021, 11:16a. m. -04:00 de foxera galean...@gmail.com:

      .HTMLBody = "

" + ;

      "

cc.

"+;

      "

nn

"+;

      "

Tel:(071) xx.

"+;

      "

gg

"

--
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/3f8c3991-0830-4aaf-b536-e2b3341c32c1n%40googlegroups.com.

[Zarlu]

Buenas tardes foxera!

Con gusto te apoyo. Contáctame al correo

Creo que es hora de cambiar de método

Descarga swithmail:

https://www.tbare.com/software/swithmail/

Y prueba así desde cmd, en el directorio donde descargues

SwithMail.exe /s /from "tuco...@hotmail.com" /pass "contraseña" /server "smtp.live.com" /p "587" /SSL /to "elde...@prodigy.net.mx" /sub "prueba de zarlu" /b "con swithmail"

Si te funciona ya entonces se hace desde vfp (Lo acabo de probar sin problemas)

zarlu

Chetumal, Quintana Roo, México

[olga galeano]

SwithMail.exe /s /from "tuco...@hotmail.com" /pass "contraseña" /server "smtp.live.com" /p "587" /SSL /to "elde...@prodigy.net.mx" /sub "prueba de zarlu" /b "con swithmail"

hola probe y asi mismo anda perfecto.

Ahora como hago para enviar archivos adjuntos ?

y el cuerpo del correo que serian datos generales como direccion por ej

Disculpa la molestia

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/ee8ffcb4-ef1a-49a7-91be-3c2b9e360141n%40googlegroups.com.

[Antonio Lima]

Me parece que con estos parámetros, 

Ojo:

Requiere que todos los equipos tengan instalado las libs de .net

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAOrtran2rfN6oqk%3DrLj7tixmZN6yS_5Yg%3DH0Duiby-qhr75Mow%40mail.gmail.com.

[Marcelo Colombani]

Estimado, puede que no estés pudiendo enviar por el server de smtp, tuve interminables problemas y me terminó andando con smtp.office365.com                                     

El puerto es el 25.

con SSL

Salvo eso no veo otra diferencia.

Saludos

Marcelo 

[Zarlu]

Buenos días foxera!

Al menos ya salio el correo de hotmail, eso es avance!

Ejecuta SwithMail.exe sin parámetros

Clickea el botón "Configure Settings with GUI"

Captura los datos conforme requieras el envío. Incluso los adjuntos

Clickea el botón "Generate CLI strig". Ahí Podrás ver como queda la cadena para línea de comandos.

zarlu

Chetumal, Quintana Roo, México