Power Builder - Enviar email

// Definir estas variables de instancia (ventana)...

mailSession mSes

mailReturnCode mRet

mailMessage mMsg

string file_name // variable de instancia (ventana) que contiene el nombre del archivo (adjunto) que quieras enviar...

// Objetos de la ventana...

// dw_para --> dw para seleccionar a quien enviar...

//		columna "si_no" con 1 indica enviar, con 0 indica no enviar.

// 		columna "e_mail" correo del destinatario.

//		columna "nombre" nombre de la persona destino.

//

// mle_text.Text --> caja (multilinea) con texto a enviar...

// 

------------------------------------------------------------

// Script para enviar (puede ser un botón...

long ll_row, ll_rows

string mensaje

int contador, persona

string file_persona

IF mle_text.Text = "" AND file_name=""  then

	MessageBox("Error!", "No hay nada que enviar!")

ELSE

	// Crear sesion de correo

	mSes = create mailSession

	// Logear sesion

	mRet = mSes.mailLogon(mailNewSession!)

	IF mRet <> mailReturnSuccess! THEN

	MessageBox("Correo", 'Logon fallido.')

	RETURN

	END IF

	ll_row=1

	ll_rows=dw_para.RowCount()

	DO until ll_row > ll_rows

		IF	dw_para.GetItemString(ll_row,"si_no")="1" THEN EXIT

			ll_row++

	LOOP

	IF	ll_row > ll_rows THEN

		MessageBox("Error!", "No hay destinatarios seleccionados")

	ELSE

		ll_row=1

		DO WHILE ll_row <= ll_rows

// Seleccion a enviar

			IF	dw_para.GetItemString(ll_row,"si_no")="1" THEN

				mMsg.recipient[1].name = dw_para.GetItemString(ll_row,"e_mail")

				mMsg.Subject = "Atencion: "+ dw_para.GetItemString(ll_row,"nombre")

				mMsg.NoteText = mle_text.text

// Archivo anexo.

				IF file_name<>"" THEN

					mMsg.attachmentfile[1].filename = file_name

					mMsg.attachmentfile[1].pathname = file_name

				END IF

// Enviar correo.

				mRet = mSes.mailSend(mMsg)

				IF mRet <> mailReturnSuccess! THEN

					MessageBox('Error: Correo no enviado!', dw_para.GetItemString(ll_row,"nombre")+": "+dw_para.GetItemString(ll_row,"e_mail"))

				END IF

			END IF

			ll_row++

		LOOP

		file_name=""

		sle_file.Text=""

	mSes.mailLogoff()

	DESTROY mSes

	END IF

END IF

// Fin del script....

// PARA EL ENVIO DE CORREO

n_smtp gn_smtp

//PARA EL ZIPEADO

n_zlib gn_zlib

gn_smtp.of_SetPort(25)//por el puerto de salida especificado en el servidor

gn_smtp.of_SetServer("nombre del server") //en mi caso es xxxxx.xxxxxxxx.com

string para_dir, para_nombre, asunto, mensaje, archivos[], nombre_usu, cc_dir[], correo_usu

para_dir = 'destinatario@correo.com'

para_nombre = 'nombre destinatario'

asunto = "ASUNTO DEL CORREO"

mensaje = "MENSAJE DEL CORREO"

archivos[1] = 'C:\archivo1.txt'

archivos[2] = 'C:\archivo2.docx'

archivos[3] = 'C:\archivo3.jpg'

nombre_usu = 'NOMBRE DEL USUARIO QUE ENVIA'

cc_dir[1] = 'concopia1@correo.com'

cc_dir[2] = 'concopia2@correo.com'

cc_dir[3] = 'concopia3@correo.com'

correo_usu = 'remitente@correo.com'

if f_enviar_correo(para_dir,para_nombre,asunto,mensaje,archivos,nombre_usu,cc_dir,correo_usu) = true then

	messagebox('AVISO',"Correo Enviado Satisfactoriamente...")

else

	messagebox('AVISO',"No se Pudo Enviar Correo Electrónico...")

	return

end if

ls_pathname[1] = 'C:\Temp\reporte.xlsx'

ls_filename[1] = 'reporte.xlsx'

ls_pathname[2] = 'C:\Temp\reporte.docx'

ls_filename[2] = 'reporte.docx'

is_zipfile = 'C:\Temp\reporte.zip'

ls_fname = 'reporte.zip'

SetPointer(HourGlass!)

lul_zipFile = gn_zlib.of_zipOpen(is_zipfile)

li_count = UpperBound(ls_pathname)

FOR li_file = 1 TO li_count

               gn_zlib.of_ImportFile(lul_zipFile, ls_pathname[li_file], ls_filename[li_file])

NEXT

gn_zlib.of_zipClose(lul_zipFile, "Zip archive created by Frank P.")