FoxPro/Visual FoxPro - Mailto en VFOXPRO

 
Vista:

Mailto en VFOXPRO

Publicado por RHOD (184 intervenciones) el 01/01/2001 00:00:00
Esperando que ya hayan recobrado sus fuerzas, quisiera saber como llamar el uotlook y que aparesca en el destinatario(PARA) la direcion que yo desee .Similar al (MAILTO)

ATTE RHOD
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mailto en VFOXPRO

Publicado por Daniel Carlos Aguirre (4 intervenciones) el 02/01/2001 00:00:00
hola: primero tenes que poner en el formulario los 2 ocx mapi para trabajar con correo, que despues podes hacer algo asi:

wait wind " Aguarde un momento... procesando mail..." nowait
if otromail=0 && para poder enviar varios mail sin salir del formulario
thisform.olecontrol1.signon && conecta al usuario con su cuenta de correo
thisform.olecontrol1.newsession=.t. && inicia una nueva sesion para enviar correo

otromail=1
endif

thisform.olecontrol2.sessionid=thisform.olecontrol1.sessionid && conecto la sesion iniciado con los controladores para un nuevo mensaje

thisform.olecontrol2.compose && redacta un mensaje
thisform.olecontrol2.recipaddress=
alltrim(thisform.pageframe1.page1.email.value) && direccion a enviar
thisform.olecontrol2.msgsubject="Clientes por vendedor" && titulo del mail
thisform.olecontrol2.attachmentType=0 && tipo de archivo a enviar
thisform.olecontrol2.attachmentPathName="c:\clientes_por_vendedor.txt" &&path y nombre del archivo a enviar
thisform.olecontrol2.send(1) && (1) para que me abra la ventana de mail

suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

POSIBLE SOLUCION A TU PROBLEMA

Publicado por Trino Barillas (7 intervenciones) el 08/02/2001 15:49:27
EL SIGUIENTE CONJUNTO DE INSTRUCCIONES TE PERMITE, DESDE VISUAL, ACTIVAR EL OUTLOOK, Y COLOCAR EN LA PLANTILLA MENSAJE, A QUIEN VA DIRIGIDO, CUAL ES EL ASUNTO, CUAL ES EL CONTENIDO DEL CORREO Y COMO ATACHAR ARCHIVOS.
ACTUALMENTE ESTOY INVESTIGANDO AL RESPECTO YA QUE ME FALTAN ALGUNOS DETALLES COMO, COPIA, COPIA OCULTA, CHEQUEO DE USUARIO, TODO DESDE VISUAL, SI ME PUEDES AYUDAR TE LO AGRADEZCO. ESPERO TE SIRVA ESTO OK?

oOutlook = CREA ("outlook.application")
oMail = oOutlook.createitem(0)
oMail.body = 'ESTO VA EN EL CUERPO DEL MENSAJE'
oMail.ATTACHMENTS.ADD (NOMBREARCHIVO)
oMail.RECIPIENTS.ADD('TBARILLAS')
oMail.Subject = 'ASUNTO'
oMail.DISPLAY
oMail.send
oMail = .NULL.
RELEASE oMail
oOutlook = .NULL.
RELEASE oOutlook
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:POSIBLE SOLUCION A TU PROBLEMA

Publicado por Roger (1 intervención) el 06/04/2009 23:45:16
Buenas tardes:
Que instruccion puedo utilizar en base a tu ejemplo para que tambien pueda uncluir un correo alterno en el casillero de Con copia Para?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar