Buenos días Grupo:
¿Hay alguna forma que desde VFP8 se pueda abrir el"Outlook" o "Outlook
express" y pasarle la dirección de envío, el asunto, el mensaje y un
adjuntar un fichero?
Al decir "abrir" quiero decir sacar la pantalla de Outlokk para el
envío de e-mail, ya que se supone que la aplicación la tendrá abierta
el usuario.
Ahora lo estoy enviando así:
lcSchema = "
http://schemas.microsoft.com/cdo/configuration/"
loConfig = CREATEOBJECT("CDO.Configuration")
WITH loConfig.FIELDS
.ITEM(lcSchema + "smtpserver") = "
mail.mio.es" &&&&&& Aquí pongo el
"servidor de correo saliente(smtp)" que figura en la configuración de
OutLook
.ITEM(lcSchema + "smtpserverport") = 25
.ITEM(lcSchema + "sendusing") = 2
.ITEM(lcSchema + "smtpauthenticate") = .T.
.ITEM(lcSchema + "smtpusessl") = .T.
.ITEM(lcSchema + "sendusername") = "
micu...@mio.es"
.ITEM(lcSchema + "sendpassword") = "65"
.UPDATE
ENDWITH
WAIT windows "Enviando mensaje al Cliente " + ALLTRIM(tcdir_correo)
NOWAIT noclear
loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
.Configuration = loConfig
.FROM = tcsendername + " <" + ALLTRIM(tcsender) + ">"
.TO = tcdir_correo
.Subject = tcSubject
.TextBody = tcmensaje
IF LEN(ALLTRIM(tcadjunto)) != 0
.AddAttachment(tcadjunto)
endif
.Send()
ENDWITH
El error que da es :
"Error: 1429
Linea: 33
Mensaje: Código de excepción OLE IDispatch 0 de CDO.Message.1: Error
de transporte en la conexión al servidor.
."
Pero si pongo :
.ITEM(lcSchema + "smtpserver") = "
smtp.live.com"
y mi cuenta de hotmail en .ITEM(lcSchema + "sendusername") funciona
perfectamente.
Claro al decir a mis Clientes que tienen que abrir una cuenta de
hotmail se están negando, por ello quiero buscar otra alternativa.
Muchas gracias por todo.
Saludos cordiales y perdón por lo extenso del mensaje.
Kike.
Sevilla - España.