Power Builder - adjuntar mas de un archivo

 
Vista:

adjuntar mas de un archivo

Publicado por Eduardo (2 intervenciones) el 08/02/2006 19:34:18
aca dejo el script que me funciona con un archivo adjunto pero necesito adjuntar mas de un archivo y no se como.

Long ll_total
String ls_texto
OLEObject ole_outlook

ll_total = dw_datos.getitemnumber( 1,'compute_1')

//Creacion de objeto ole para correo por medio de Outlook
ole_outlook = Create OLEObject
//Conexión a la sesión Outlook usando 'Outlook Application'
li_return = ole_outlook.ConnectToNewObject("outlook.application")
//Validacion del codigo de retorno
if li_return <> 0 then
MessageBox("Error No se pudo Generar Correo", li_return)
Destroy ole_outlook
Return
end if

//Creando elemento de correo
OLEObject ole_item, ole_attach
//Crea un elemento nuevo de correo
ole_item = ole_outlook.createitem(0)
//Coloca la linea del asunto el mensaje
ole_item.subject = 'Archivo TCFincard'
//Cuerpo del Mensaje
ls_texto = 'Adjuto archivo favor responder acuso de recivo gracias'
ole_item.body = ls_texto
//Destinatario(S) en este caso no van
ole_attach = ole_item.Attachments
ole_attach.add(ls_FileName)
ole_item.display //Muestra el fichero

agradeciendo de antemano su ayuda
atte
Eduardo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder