OT: Ejecutar Programa al recibir correo en Microsoft Outlook

Saludos a todos de nuevo!

Aun no he decidido por cual herramienta, pero optare por leer desde VFP el
correo POP3, no lo habia pensado, y, definitivamente me parece la solucion
OPTIMA!

Gracias josepe y Carlos Omar, gracias a todos!


*-*-*-*-*-*-*-*-*
Félix Berto Castillo G.
La Vega, Rep. Dom.
*-*-*-*-*-*-*-*-*



"Félix Berto Castillo G." <felixbcastillo AT codetel.net.do> wrote in
message news:

Saludos a Todos!

¿Existe alguna forma de que, al recibir un correo en Microsoft Outlook, se
pueda enviar esa información a una aplicación?

Ejemplo:

*** Si este fuera el correo ***
De:
A:
Asunto: Activar cliente
Detalles:{
Código: 000001
Técnico: P-16
}
*** Fin del correo ***

Es como que quisiera poder enviar esa informacion a un programa hecho en
VFP y que luego el programa pueda HACER ALGO cada vez que un técnico envíe
un correo a una cuenta específica y registrar inmediatamente "algo" en
base al correo recibido.

DENME ESPERANZAS!

*-*-*-*-*-*-*-*-*
Félix Berto Castillo G.
La Vega, Rep. Dom.
*-*-*-*-*-*-*-*-*

Cusrname='' && sive para utilizar el correo
Cpasw='xxxxxxx'

Cenvio='' && quien lo envia
Cdestino='' && destino quien lo recibe

Csubject='hola como estas'
Ctextbody='hola como estas'
Cadjunto=''

LOCAL lcSchema, loConfig, loMsg, loError, lcErr
lcErr = ""
lcSchema = "http://schemas.microsoft.com/cdo/co...ion/"
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") = Cusrname
.ITEM(lcSchema + "sendpassword") = Cpasw
.UPDATE
ENDWITH
loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
.Configuration = loConfig
.FROM = Cenvio &&<correo de salida>"
.TO = Cdestino &&"<correo de destino>"
.Subject = Csubject
.TextBody = Ctextbody
.AddAttachment(Cadjunto) &&("<adjunto>")
.Send()
ENDWITH
Release loConfig, loMsg
STORE .NULL. TO loConfig, loMsg
IF EMPTY(lcErr)
*MESSAGEBOX("El mensaje se envió con éxito para el Proveedor " +
allt(selprov.nomprv), 64, titulo)
MESSAGEBOX("El mensaje se envió con éxito para el Proveedor ")
ELSE
MESSAGEBOX(lcErr, 16 , "Error")
ENDIF

Gracias Mario, pero mi deseo es recibir correos, no enviarlos.


*-*-*-*-*-*-*-*-*
Félix Berto Castillo G.
La Vega, Rep. Dom.
*-*-*-*-*-*-*-*-*



"mario alfredo" wrote in message
news:
Cusrname='' && sive para utilizar el correo
Cpasw='xxxxxxx'

Cenvio='' && quien lo envia
Cdestino='' && destino quien lo recibe

Csubject='hola como estas'
Ctextbody='hola como estas'
Cadjunto=''

LOCAL lcSchema, loConfig, loMsg, loError, lcErr
lcErr = ""
lcSchema = "http://schemas.microsoft.com/cdo/co...ion/"
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") = Cusrname
.ITEM(lcSchema + "sendpassword") = Cpasw
.UPDATE
ENDWITH
loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
.Configuration = loConfig
.FROM = Cenvio &&<correo de salida>"
.TO = Cdestino &&"<correo de destino>"
.Subject = Csubject
.TextBody = Ctextbody
.AddAttachment(Cadjunto) &&("<adjunto>")
.Send()
ENDWITH
Release loConfig, loMsg
STORE .NULL. TO loConfig, loMsg
IF EMPTY(lcErr)
*MESSAGEBOX("El mensaje se envió con éxito para el Proveedor " +
allt(selprov.nomprv), 64, titulo)
MESSAGEBOX("El mensaje se envió con éxito para el Proveedor ")
ELSE
MESSAGEBOX(lcErr, 16 , "Error")
ENDIF