LOCAL lcSchema, loConfig, loMsg, loError, lcErr
lcErr = ""
loConfig = CREATEOBJECT("CDO.Configuration")
WITH loConfig.FIELDS
.ITEM(lcSchema + "smtpserverport") = 25
.ITEM(lcSchema + "sendusing") = 2
.ITEM(lcSchema + "smtpauthenticate") = .T.
.ITEM(lcSchema + "smtpusessl") = .T.
.ITEM(lcSchema + "sendpassword") = "micontrasenia"
.UPDATE
ENDWITH
loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
.Configuration = loConfig
.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