Aca te envio codigo sobre e-mail. Espero q te sirva:
STRING ls_e_mail
MailSession mSes, m
MailReturnCode mRet
MailMessage mMsg
MailFileDescription mAttach
// Create a mail session
//m.mailHandle()
mSes = create mailSession
// Log on to the session
mRet = mSes.mailLogon()
if mRet <> mailReturnSuccess! then
MessageBox("Mail", 'Logon failed, 1.')
//RETURN
end if
//Preparando la estructura del MailMessage
//mMsg.Recipient[1].name = '
[email protected]'
//mMsg.Recipient[2].name = '
[email protected]'
mMsg.Recipient[1].name = ls_e_mail
mMsg.Subject = "Articulos Cancelados"
//mMsg.NoteText = mle_1.text //""
//Archivo a enviar
mAttach.FileType = mailAttach!
mAttach.PathName = "C:\Correos\solicitus_de_proveedores_canceladas.x..."
mAttach.FileName = 'solicitus_de_proveedores_canceladas.xls'
mAttach.Position = len(mMsg.NoteText) -1
mMsg.AttachmentFile[1] = mAttach
//crea el mensage del mail (con esto manda abre solo la libreta de direciones)
// mRet = mSes.mailAddress(mMsg)
//
// IF mRet <> mailReturnSuccess! THEN
// MessageBox("Mail", 'Addressing failed, 2.')
// //RETURN
// END IF
// Send the mail
mRet = mSes.mailSend(mMsg)
if mRet <> mailReturnSuccess! then
MessageBox("Mail", 'Sending mail failed, 3.')
//RETURN
end if
MSes. MailLogoff()
Destroy mSes
/* Termina de enviar el correo */
Cualquier duda o consulta estoy a tu disposición.