
Envio de Mail
Publicado por Andres (331 intervenciones) el 23/12/2009 18:00:57
Hola amigos foristas
Tengo una aplicacion que genero un archivo PDF y esta OK, este archivo lo quiero enviar por correo.
El codigo me dice que el correo NO se envio, al ejecutarlo se abre una ventana de office outlook y dice que un otro programa esta in tentando enviar un correo. Le respondo que si pero igual NO lo envia
Si alguien me puede ayudar muchas gracias
Mi codigo es el siguiente
MailSession mSes
MailReturnCode mRet
MailMessage mMsg
//Crea la Session
MSes = create mailSession
//Verifica la Session
MRet = mSes. MailLogon(mailNewSession!)
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", "Logon failed. ")
RETURN
END IF
//CARGA EL MAIL
mMsg.Subject = 'Nota de Crédito - Interdenim S.A.'
MMsg.NoteText = ' _ '
//Adjunta el archivo y el destinatario
string ls_destin
MMsg. AttachmentFile[ 1].Pathname = ls_filename
mMsg.Recipient[1].Name = gb_emp_mai
// Envia el correo
MRet = mSes. MailSend(mMsg)
IF mRet <> mailReturnSuccess! THEN
MessageBox("Envío de Correo", "Correo no enviado")
mSes. MailLogoff()
DESTROY mSes
RETURN
Else
MessageBox("Envío de Correo", "Envío de Correo Satisfactorio")
END IF
MSes. MailLogoff()
DESTROY mSes
Tengo una aplicacion que genero un archivo PDF y esta OK, este archivo lo quiero enviar por correo.
El codigo me dice que el correo NO se envio, al ejecutarlo se abre una ventana de office outlook y dice que un otro programa esta in tentando enviar un correo. Le respondo que si pero igual NO lo envia
Si alguien me puede ayudar muchas gracias
Mi codigo es el siguiente
MailSession mSes
MailReturnCode mRet
MailMessage mMsg
//Crea la Session
MSes = create mailSession
//Verifica la Session
MRet = mSes. MailLogon(mailNewSession!)
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", "Logon failed. ")
RETURN
END IF
//CARGA EL MAIL
mMsg.Subject = 'Nota de Crédito - Interdenim S.A.'
MMsg.NoteText = ' _ '
//Adjunta el archivo y el destinatario
string ls_destin
MMsg. AttachmentFile[ 1].Pathname = ls_filename
mMsg.Recipient[1].Name = gb_emp_mai
// Envia el correo
MRet = mSes. MailSend(mMsg)
IF mRet <> mailReturnSuccess! THEN
MessageBox("Envío de Correo", "Correo no enviado")
mSes. MailLogoff()
DESTROY mSes
RETURN
Else
MessageBox("Envío de Correo", "Envío de Correo Satisfactorio")
END IF
MSes. MailLogoff()
DESTROY mSes
Valora esta pregunta


0