Abrir "Outlook" u "Outlook express"

198 views
Skip to first unread message

Kike. Sevilla

unread,
Oct 19, 2011, 6:53:25 AM10/19/11
to Comunidad de Visual Foxpro en Español
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.

Luis Maria Guayan

unread,
Oct 19, 2011, 7:39:42 AM10/19/11
to publice...@googlegroups.com
Como consejo continua utilizando CDO, lo que debes hacer es verificar los valores correctos del servidor SMTP del dominio de tu cliente, el número de puerto y si tiene autentificación y/o cifrado SSL.

Estos valores lo puedes sacar de la configuración de Outlook u otro cliente de correo tenga configurado tu cliente.

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

Kike. Sevilla

unread,
Oct 20, 2011, 10:24:57 AM10/20/11
to Comunidad de Visual Foxpro en Español
Tenías mucha razón, ponía mal la configuración.
Muchas gracias.

Saludos cordiales.
Kike.
Sevilla - España


On 19 oct, 13:39, Luis Maria Guayan <luismar...@gmail.com> wrote:
> Como consejo continua utilizando CDO, lo que debes hacer es verificar los valores correctos del servidor SMTP del dominio de tu cliente, el número de puerto y si tiene autentificación y/o cifrado SSL.
> Estos valores lo puedes sacar de la configuración de Outlook u otro cliente de correo tenga configurado tu cliente.
>
> Luis María Guayán
> Tucumán, Argentina
> _________________________http://www.PortalFox.com
Reply all
Reply to author
Forward
0 new messages