**Mc Ph@ntom**
12 de Noviembre del 2004

hola a todos
necesito saber el codigo para mandar mails desde un programa de vfp6.0.
gracias

cesarivan
12 de Noviembre del 2004

Ok. Si podrias enviarme tu ejemplo a mi tambien.
Desde ya, muchas gracias.

israel
12 de Noviembre del 2004

soy nuevo y les agradecería me mandaran tambien un ejemplo porfavor

gracias
[email protected]

jaidquintero
12 de Noviembre del 2004

Me pueden mandar una copia delcodigo para mandar mails desde un programa de vfp6.0. Gracias
E-mail [email protected]

gr
12 de Noviembre del 2004

necesitaria estos ejemplos,
gracias de antemano.

tigre
12 de Noviembre del 2004

Que buena pregunta.

Necesito su apoyo con el ejemplo del email,.

gracias.

mmm
12 de Noviembre del 2004

A tu correo te envío un ejemplo.

Luz
12 de Noviembre del 2004

Me gustaría recibir también el código. Saludos. Desde ya muchas gracias. Luz.

sgomez
12 de Noviembre del 2004

Esta version envía mail a traves de mapi utilizando la propiedad recipdisplayname. En esta ultima se debe asignar el nombre del destinatario tal como aparece en la libreta de contactos. Otra forma es utilizando la propiedad recipadress, en esta otra se debe asignar la dirección de correo.


parameter archivozip

ruta="c:mis documentos"
adjunto1=archivozip

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

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

oform.Message1.compose
oform.message1.AttachmentIndex=0
oform.message1.Attachmenttype=0
oform.message1.Attachmentposition=0
oform.message1.attachmentPathname=ruta+adjunto1
oform.message1.recipdisplayname="[email protected]"
oform.Message1.AddressResolveUI = .T.
oform.Message1.msgsubject = adjunto1
oform.Message1.msgnotetext = "Adjunto corrida de referencia y archivo de reclamos del dia"
oform.Message1.send(.F.)

oform.Session1.signoff
release oform
return