var borr = FOREST_SQL_MAP("SELECT T.CODFILE, T.CODTRABORR FROM GDO_TRA_BORRADOR_DOC T, GDO_GRL_BORRADOR B WHERE B.CODINST = ? AND B.CODBORR = T.CODBORR AND B.VERSION = T.VERSION order by t.fecha desc", CurrentDesktop.codInst); var codfile = borr.codfile; var adj = MAKE_OBJECT("EmailBytesAttachment"); adj.name = "Nueva solucion.docx"; adj.bytes = FOREST_GET_FILE(codfile); var lista = FOREST_SQL_MAP_LIST("SELECT NOMBRE, CODFILE FROM GDO_TRA_BORRADOR_ADJUNTO WHERE CODTRABORR = ?", borr.codtraborr); var adjuntos = MAKE_LIST(adj); for (var i = 0; i < lista.length; i++) { adj = MAKE_OBJECT("EmailBytesAttachment"); adj.name = lista[i].nombre; adj.bytes = FOREST_GET_FILE(lista[i].codfile); LIST_ADD(adjuntos, adj); } for (var i = 0; i < CurrentForm.DA_DDS_CORREOS_DEPENDENCIAS.length; i++) { var fun = FOREST_GET_RECORD("gdo_funcionario", CurrentForm.DA_DDS_CORREOS_DEPENDENCIAS[i].data.funcionario.value); if (fun.email != null) { //try { SEND_HTML_MAIL(fun.email, "Envío de nueva solución para comentarios", "Para lo pertinente, adjunto envío la nueva solución para comentarios internos. Los comentarios deben ser enviados a los correos: del Líder de la solución " + CurrentForm.maillider + " y al Subdirector Respectivo " + CurrentForm.mailsub + ". La fecha máxima para la recepción de comentarios internos es "+CurrentForm.fechamaxci+".

Cordialmente

Líder de la solución", null, adjuntos); /*} catch(e) { ADD_MESSAGE("Fallo envio de correo dds: " + e); }*/ } }