Enviar Correo hotmail desde VFP

560 views
Skip to first unread message

Daniel Flores

unread,
Nov 20, 2015, 1:10:37 PM11/20/15
to Comunidad de Visual Foxpro en Español
Hola a todos:

Se puede enviar correo electrónico con un archivo adjunto de una cuenta de hotmail, desde VFP 6.0? Como se hace..Alguno tendrá algún ejemplo?

Muchas Gracias a todos

HernanCano

unread,
Nov 20, 2015, 6:48:51 PM11/20/15
to Comunidad de Visual Foxpro en Español

Javier Bernal

unread,
Nov 21, 2015, 1:58:48 AM11/21/15
to Comunidad de Visual Foxpro en Español
Disculpa mi pregunta, pero veo que eres nuevo en este grupo. aparte de que no usas la busqueda de tus neceidades en el grupo

Alfonso Ramirez Diaz

unread,
Nov 23, 2015, 8:10:32 AM11/23/15
to Comunidad de Visual Foxpro en Español
Te recomiendo los controles Chilkatsoft aunque son de pago con muy buenos y trabajan perfecto con Foxpro.

Daniel Flores

unread,
Nov 23, 2015, 9:57:39 AM11/23/15
to Comunidad de Visual Foxpro en Español
Al Implementar esta solución:

  LOCAL lcSchema, loConfig, loMsg, loError, lcErr
  lcErr = ""
  loConfig = CREATEOBJECT("CDO.Configuration")
  WITH loConfig.FIELDS
    .ITEM(lcSchema + "smtpserver") = "smtp.live.com"
    .ITEM(lcSchema + "smtpserverport") = 25
    .ITEM(lcSchema + "sendusing") = 2
    .ITEM(lcSchema + "smtpauthenticate") = .T. 
    .ITEM(lcSchema + "smtpusessl") = .T.
    .ITEM(lcSchema + "sendusername") = "mius...@hotmail.com"
    .ITEM(lcSchema + "sendpassword") = "micontrasenia"
    .UPDATE
  ENDWITH
  loMsg = CREATEOBJECT ("CDO.Message")
  WITH loMsg
    .Configuration = loConfig
    .FROM = "Usuario Hotmail <mius...@hotmail.com>"
    .TO = "usu...@gmail.com"
    .Subject = "Prueba desde Windows Live Hotmail"
    .TextBody = "Este es un mensaje de prueba con CDO con " + ;
      "autenticación y cifrado SSL desde Windows Live Hotmail."
    .Send()
  ENDWITH

Me da este error en la linea:  WITH loConfig.FIELDS
El Error dice:
"Codigo de error OLE 0x80029c4a: Código de Estado de COM desconocido"

Que podrá ser?. Programo en VFP 6.0, Sera eso?

Mil Gracias a todos
Reply all
Reply to author
Forward
0 new messages