PRIMERO TINES QUE INSERTAR LOS CONRTOLADORES DE MAPI
DESDE HERRAMIENTAS, OPCIONES, CONTROLES
olecontrol1 =MapiMessage
olecontrol2 =MpaiSession
memail = "
[email protected]"
IF EMPTY(memail)
ELSE
form1.olecontrol2.DownLoadMail = .F.
form1.olecontrol2.signon
form1.olecontrol1.sessionid= servicio.form1.olecontrol2.sessionid
form1.olecontrol1.compose
form1.olecontrol1.msgnotetext="encabezado"
form1.olecontrol1.msgsubject= "Saludos"
form1.olecontrol1.attachmentpathname = "direcion y nombre de archivo"
form1.olecontrol1.recipdisplayname = ALLTRIM(memail)
form1.olecontrol1.addresscaption = ALLTRIM(memail)
form1.olecontrol1.recipaddress = ALLTRIM(memail)
form1.olecontrol1.SEND()
form1.olecontrol2.signoff
ENDIF