string nombre,ruta,ls_dir
ls_dir = GetCurrentDirectory ( )
nombre = "Filesend.pdf"
ruta = ls_dir+"\"+nombre


If dw_impresion.RowCount() > 0 Then
//Metodo Distiller
Int li_resp

li_resp = dw_impresion.SaveAs(ruta,PDF!, true)


if li_resp < 0 then //error al generar el archivo
Messagebox('Error','Error al grabar el archivo '+ruta+char(13)+'Instale Acrobat Writer '+char(13)+'y/o Verifique si la Impresora AdobePS Acrobat Distiller este instalada'+char(13)+'Comuniquese con el Dpto. de Sistemas')
return
end if
else
MessageBox("PDF","Debe existir Orden de Compras",Information!)
return
end if

mailSession mSes
mailReturnCode mRet
mailMessage mMsg
mailFileDescription mFile

// aca se crea la sesion
mSes = create mailSession

// inicia la session
mRet = mSes.mailLogon(mailNewSession!)

//pregunta que si al iniciar la sesion hubo un problema
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'Logon failed.')
RETURN
END IF

mMsg.Subject = 'prueba'//mle_subject.Text
mMsg.NoteText = 'ACA VA UNA NOTA QUE IRA EN EL CORREO'

mMsg.Recipient[1].name = 'longuitov@yahoo.es'
mMsg.Recipient[2].name = 'mpdvillalba@gmail.com'

// ACA ESTA EL ARCHIVO A ADJUNTAR
mFile.filename = 'rdepempleados1.txt'
mFile.Pathname = ruta
mMsg.AttachmentFile[1] = mFile


// ACA ENVIA EL EMAIL
mRet = mSes.mailSend(mMsg)

// SI OCURRIO UN ERROR TE MANDA EL MENSAJE
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail Send", 'Mail not sent')
RETURN
END IF

// ACA CIERRA TU SESSION
mSes.mailLogoff()

//ACA DESTRUYE LA INSTANCIA
DESTROY mSes