mego60
13 de Febrero del 2004

ALGUIEN DE USTEDES SABE COMO PUEDO MANDAR CORREOS ELECTRONICOS DESDE MI APLICACION EN VFP. 6.0
GRACIAS A TODAS LAS PERSONAS QUE ME PUEDAN AYUDAR.

sgomez
13 de Febrero del 2004

Yo utilizo este codigo en forma de funcion a la que le paso como parametro el archivo que quiero enviar. Donde dice "Nombre de destinatario" debe ir el nombre del destinatario tal cual figura en la lista de contactos. Debe ir el nombre y no la direccion de correo.

parameter archivo

ruta="m:pilvar"
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
oform.Message1.compose
oform.message1.AttachmentIndex=0
oform.message1.Attachmenttype=0
oform.message1.Attachmentposition=0
oform.message1.attachmentPathname=ruta+adjunto1
oform.message1.recipdisplayname="Nombre de destinatario"
oform.Message1.AddressResolveUI = .T.
oform.Message1.msgsubject = adjunto1
oform.Message1.msgnotetext = "Titulo del mail"
oform.Message1.send(.F.)
oform.Session1.signoff
release oform
return