Gurama
15 de Diciembre del 2004

Alguien me da una manito para realizar envios de mail desde un programa en Visual Fox

Gracias

sgomez
15 de Diciembre del 2004

parameter archivo

ruta="pathdelarchivo"
adjunto1=archivo

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:
*CORRIDA
oform.Message1.compose
oform.message1.AttachmentIndex=0
oform.message1.Attachmenttype=0
oform.message1.Attachmentposition=0
*oform.message1.attachmentname= adjunto1
oform.message1.attachmentPathname=ruta+adjunto1

oform.message1.recipdisplayname="nombrededestinatario"
oform.Message1.AddressResolveUI = .T.
oform.Message1.msgsubject = "Titulo"
oform.Message1.msgnotetext = "Mensaje"
oform.Message1.send(.F.)

oform.Session1.signoff
release oform
return