La Web del Programador: Comunidad de Programadores
 
    Pregunta:  1804 - CORREO ELECTRÓNICO AUTOMÁTICO POR MEDIO DEL VFP
Autor:  Manrique Suárez Aguilar
En el lugar que trabajo tenemos en servidor NT de correos con exchange y todo los compañeros accesazos nuestros correos utilizando outlook. Es posible y como se pueden enviar mensajes por medio del correo por ejemplo a administrador del inventario, cuando se agotan existencias de algún producto en forma automática, que el mismo sistema de inventarios en vf5 escriba el mensaje y lo envié sin que medio ninguna participación humana.

Gracias

  Respuesta:  Ramsés Uscanga Barrientos
Mira, para tu caso especifico, primero que todo debes hacer la rutina que cheque la existencia del inventario, y cuando se detecte algun faltante, puedes agregar dos controles OLE, el session y _message a tu formulario que va a generar esos mails, el codigo que genera el mail es algo parecido a esto

thisform.session.SignOn ´Abre la sesion de correo´
thisform._message.SessionID=thisform.session.SessionID ´Le asigna un numero a esa sesion´
thisform._message.Compose ´Genera un mensaje nuevo´
thisform._message.RecipDisplayName = ´Aqui pones la dirección electronica´
thisform._message.MsgSubject = ´Aqui pones el asunto del mensaje´
thisform._message.MsgNoteText = ´Aqui pones el cuerpo del mensaje, puede ser el texto que tu quieras´
thisform._message.attachmentindex=0 ´Este sirve para mandar archivos´
thisform._message.AttachmentPathName=´Aqui le das la ruta de el archivo que vas a enviar´
thisform._message.Send(.f.) ´Este envia el mensaje´
thisform.session.SignOff ´Cierra la sesion´

Algo bien importante, debes tener abierto tu programa de correos al momento de ejecutar todas estas rutinas y logicamente estar conectado a internet.
Espero te sirva.....

Saludos desde Veracruz, veracruz. México