En este grupo En todos

Foro de PowerBuilder



Como enviar mails con power builder 9.0

Javier
San Juan, Argentina
Escrito por Javier Ochoa
el 11/08/2007
Buenas, disculpen, soy nuevo, estuve buscando por el mismo tema pero no encuentro respuestas por ningun lado, tal vez este buscando mal pero solo encuentro la misma pregunta que quiero hacer yo pero n ola respuesta. Alguien tiene el codigo para mandar mails desde power builder? Desde ya muchas gracias-
Escrito por Javier
el 03/12/2007
//**************** CODIGO GENERICO PARA ENVIO DE FICHEROS ******************//
//lmf_file. FileType = mailAttach!
//lmf_file. FileName = "a. Txt"
//lmf_file. PathName = "c:" + "a. Txt"
//
//lm_mess. NoteText = "Prueba de correo"
//lm_mess. Subject = "Prueba de correo automatico "
//lm_mess. Attachmentfile[1] = lmf_file
//
//lm_recipient. Address = "informatica@fontestad. Com"
//lm_recipient. Name = "Fontestad informatica"
//lm_recipient. RecipientType = mailTo!
//lm_mess. Recipient[1] = lm_recipient
//
//lms_sess = create mailsession
//lmc_rc = lms_Sess. MailLogon()
//lmc_rc = lms_Sess. MailSend(lm_Mess)
//IF lmc_rc <> mailReturnSuccess! THEN
//        //messagegox("Error", "Error on Send")
//END IF
//
//lmc_rc = lms_sess. MailLogoff()
//DESTROY lms_sess
Escrito por Dateho
el 07/12/2008

String ls_mensaje_correo
//Argumentos
//as_asunto, as_para, as_copia, as_path_file, as_file
//estructura creada gstr_mail

//INICIALIZANDO VARIABLES DE CORREO
mailSession mSes
mailReturnCode mRet
mailMessage mMsg

//Inicializo estructura
gstr_mail. As_asunto = as_asunto;
gstr_mail. As_para = as_para
gstr_mail. As_copia = as_copia
gstr_mail. As_fecha = string(today())

//LLENADO VARIABLES DE CORREO
//ls_mensaje_correo = "Orden de Compra: "

//CREANDO ENCABEZADO DE CORREO
if as_para <> "" then
mMsg. Recipient[1]. Name = gstr_mail. As_para
mMsg. Recipient[1]. RecipientType = mailTo!
if as_copia <> "" then
mMsg. Recipient[2]. Name = gstr_mail. As_copia
mMsg. Recipient[2]. RecipientType = mailCC!
end if
end if

MMsg. Subject= gstr_mail. As_asunto
mMsg. Notetext = ls_mensaje_correo

//ADJUNTANDO ARCHIVOS
if as_path_file <> "" and as_file <> "" then
mMsg. AttachmentFile[1]. PathName = as_path_file + "" + as_file
mMsg. AttachmentFile[1]. FileName = as_file
mMsg. AttachmentFile[1]. FileType = mailAttach!
mMsg. AttachmentFile[1]. Position = len(mMsg. Notetext) -1
end if

////INICIANDO SESION DE CORREO
mSes = create mailSession
mRet = mSes. MailLogon ( mailNewSession!)
IF mRet <> mailReturnSuccess! Then
MessageBox ("Problemas con Correo", "No se puede iniciar sesión del correo" )
mSes. MailLogoff()
DESTROY mSes
RETURN -1
END IF

//ENVIANDO CORREO A DESTINATARIO
mRet = mSes. MailSend ( mMsg )
IF mRet <> mailReturnSuccess! THEN
MessageBox("Problemas con Correo", "Por favor verifique la cuenta. ")
mSes. MailLogoff()
DESTROY mSes
RETURN -1
else
MessageBox("Mensaje", "Correo enviado con éxito. ")
END IF

//CIERRE DE SESION DE CORREO
mSes. MailLogoff()
DESTROY mSes

RETURN 1

Escrito por Nacho
el 20/03/2009
"string ls_mensaje_correo
//Argumentos
//as_asunto, as_para, as_copia, as_path_file, as_file
//estructura creada gstr_mail
//INICIALIZANDO VARIABLES DE CORREO
mailSession mSes
mailReturnCode mRet
mailMessage mMsg
//Inicializo estructura
gstr_mail. As_asunto = as_asunto;
gstr_mail. As_para = as_para
gstr_mail. As_copia = as_copia
gstr_mail. As_fecha = string(today())
//LLENADO VARIABLES DE CORREO
//ls_mensaje_correo = "Orden de Compra: "
//CREANDO ENCABEZADO DE CORREO
if as_para <> "" then
mMsg. Recipient[1]. Name = gstr_mail. As_para
mMsg. Recipient[1]. RecipientType = mailTo!
if as_copia <> "" then
mMsg. Recipient[2]. Name = gstr_mail. As_copia
mMsg. Recipient[2]. RecipientType = mailCC!
end if
end if
mMsg. Subject= gstr_mail. As_asunto
mMsg. Notetext = ls_mensaje_correo
//ADJUNTANDO ARCHIVOS
if as_path_file <> "" and as_file <> "" then
mMsg. AttachmentFile[1]. PathName = as_path_file + "" + as_file
mMsg. AttachmentFile[1]. FileName = as_file
mMsg. AttachmentFile[1]. FileType = mailAttach!
mMsg. AttachmentFile[1]. Position = len(mMsg. Notetext) -1
end if
////INICIANDO SESION DE CORREO
mSes = create mailSession
mRet = mSes. MailLogon ( mailNewSession!)
IF mRet <> mailReturnSuccess! Then
MessageBox ("Problemas con Correo", "No se puede iniciar sesión del correo" )
mSes. MailLogoff()
DESTROY mSes
RETURN -1
END IF
//ENVIANDO CORREO A DESTINATARIO
mRet = mSes. MailSend ( mMsg )
IF mRet <> mailReturnSuccess! THEN
MessageBox("Problemas con Correo", "Por favor verifique la cuenta. ")
mSes. MailLogoff()
DESTROY mSes
RETURN -1
else
MessageBox("Mensaje", "Correo enviado con éxito. ")
END IF
//CIERRE DE SESION DE CORREO
mSes. MailLogoff()
DESTROY mSes
RETURN 1
"

por Dateho (Diciembre 2008)

Dateho, una pregunta necesito de tu ayuda este código es excelente, pero tengo un problema cuando quiero mandar mas de 15 correos me marca un error y ya no los queire enviar me dice :
SMTP server error, algo pasa pero si son pocos si los envia

espero me puedas ayudar amigo