Andrea
30 de Junio del 2004

Tengo una rutina para enviar mails en VFP pero en las maquinas con Netscape funciona barbaro , con Outlook NO , que puede ser ? GRACIAS

sgomez
30 de Junio del 2004

parameter encabezado,mensaje,direccion,ruta,adjunto

*Funcion que envia un mail con un solo adjunto usando MAPI

oform = CreateObject("form")
oform.addobject("Session1","olecontrol","MSMAPI.mapiSession")
oform.addobject("Message1","olecontrol","MSMAPI.mapiMessages")

oform.Session1.signon
oform.Message1.sessionid = oform.Session1.sessionid

* Compose an e-mail message and set the subject line and Message text:
oform.Message1.compose
oform.message1.AttachmentIndex=0
oform.message1.Attachmenttype=0
oform.message1.attachmentname= adjunto
oform.message1.attachmentPathname=ruta+adjunto
oform.message1.recipdisplayname=direccion
oform.Message1.AddressResolveUI = .T.
oform.Message1.msgsubject = encabezado
oform.Message1.msgnotetext = mensaje
oform.Message1.send(0)
oform.Session1.signoff
release oform

Luisen98
30 de Junio del 2004

Utilizas algun Activex ? como se llama ?
Version de VFP ? Utilizaste una cuenta AOL en Netscape, Utilizaste una Hotmail en Outlook ?
Describe un poco mas. Saludos.

emilsonpineda
30 de Junio del 2004

Hola, yo utilizo un OCX que baje de internet no requiere de ningun otro software para el envio de correo la dirección, donde lo puedes bajar es la siguiente y es muy facil de utilizar y gratis

http://www.ostrosoft.com/smtp_component.asp

en dado caso me dices tu direccion de correo y yo te lo envio