Se me está presentado un error al momento de crear un correo automático por la base de datos, estoy creando el body y me sale este mensaje de error:
ORA-29279: error permanente de SMTP: 501 Error: attribute value too long
ORA-06512: en "SYS.UTL_SMTP", línea 17
ORA-06512: en "SYS.UTL_SMTP", línea 98
ORA-06512: en "SYS.UTL_SMTP", línea 317
ORA-06512: en línea 2
¿Cuál es el problema? ¿Cómo puedo solucionarlo? Éste es mi código:
inicioColTitulo VARCHAR(3000) :='<td align="center"><font face="Arial" color="FFFFFF" size="2">';
finColTitulo VARCHAR(3000) :='</font></td>';
tituloTabla VARCHAR(3000) :='Vencimiento Importaciones Temporales a Corto Plazo';
inicioCol VARCHAR(3000) :='<td bgcolor="#e9f3fc" align="center"><font face="Arial" color="#000000" size="1" style="vertical-align: bottom">';
finCol VARCHAR(3000) :='</font></td>';
BEGIN
OPEN nit_cursor
FOR select distinct(v.ID_CLIENTE)
from V_CONTROL_22 v;
LOOP FETCH nit_cursor
INTO id_nit;
EXIT WHEN nit_cursor%NOTFOUND;
mesg_body := '<html>';
mesg_body := mesg_body || '<head>';
mesg_body := mesg_body || '<title>Email</title>';
mesg_body := mesg_body || '</head>';
mesg_body := mesg_body || '<script>';
mesg_body := mesg_body || 'resizeTo(300,300);';
mesg_body := mesg_body || '</script>';
mesg_body := mesg_body || '<body bgcolor="#FFFFFF" link="#000080">';
SELECT TO_CHAR(SYSDATE,'DD/MM/YYYY HH24:MI:SS') INTO mi_fecha FROM DUAL;
mi_cadena := trim( '<center>');
mi_cadena := trim(mi_cadena || '<table border="0">');
mi_cadena := trim(mi_cadena || '<tr>');
mi_cadena := trim(mi_cadena || '<td>');
mi_cadena := trim(mi_cadena || '<table border="1">');
mi_cadena := trim(mi_cadena || '<tr bgcolor="000080">');
mi_cadena := trim(mi_cadena || '<td colspan="10" align="center">');
mi_cadena := trim(mi_cadena || '<b>');
mi_cadena := trim(mi_cadena || '<font face="Arial" color="FFFFFF" size="3">');
mi_cadena := trim(mi_cadena || tituloTabla || '<br>');
mi_cadena := trim(mi_cadena || '*** Fecha Ejecución: ' || mi_fecha || ' *** ');
mi_cadena := trim(mi_cadena || '</font>');
mi_cadena := trim(mi_cadena || '</b>');
mi_cadena := trim(mi_cadena || '</td>');
mi_cadena := trim(mi_cadena || '</tr>');
mi_cadena := trim(mi_cadena || '<tr bgcolor="000080">');
mi_cadena := trim(mi_cadena || inicioColTitulo || 'Columna No. 1' || finColTitulo);
mi_cadena := trim(mi_cadena || inicioColTitulo || 'Columna No. 1' || finColTitulo);
mi_cadena := trim(mi_cadena || inicioColTitulo || 'Columna No. 1' || finColTitulo);
mi_cadena := trim(mi_cadena || inicioColTitulo || 'Columna No. 1' || finColTitulo);
mi_cadena := trim(mi_cadena || inicioColTitulo || 'Columna No. 1' || finColTitulo);
mi_cadena := trim(mi_cadena || inicioColTitulo || 'Columna No. 1' || finColTitulo);
mi_cadena := trim(mi_cadena || inicioColTitulo || 'Columna No. 1' || finColTitulo);
mi_cadena := trim(mi_cadena || inicioColTitulo || 'Columna No. 1' || finColTitulo);
mi_cadena := trim(mi_cadena || inicioColTitulo || 'Columna No. 1' || finColTitulo);
mi_cadena := trim(mi_cadena || inicioColTitulo || 'Columna No. 1' || finColTitulo);
mi_cadena := trim(mi_cadena ||'</tr>');
OPEN correo_cursor
FOR SELECT GCT.CA_CORREO_ELECTRONICO
FROM GEN_CONTACTOS GCT
WHERE GCT.ID_IDENTIFICACION = id_nit
AND GCT.DO_CARGO_FUNCIONAL = 'RL';
LOOP FETCH correo_cursor
INTO emailCliente;
EXIT WHEN correo_cursor%NOTFOUND;
IF(correosCliente IS NULL) THEN
correosCliente := emailCliente;
ELSE
correosCliente := correosCliente || ';' || emailCliente;
END IF;
END LOOP;
CLOSE correo_cursor;
if (correosCliente IS NOT NULL) THEN
conn:= utl_smtp.open_connection( EmailServer, Port );
utl_smtp.helo( conn, EmailServer );
utl_smtp.mail( conn, '[email protected]');
FOR otrosCorreos IN(SELECT AUS.CA_DIRECCION_CORREO empl
FROM ADM_USUARIOS AUS, GEN_FICHA_TECNICA GFTD
WHERE GFTD.ID_IDENTIFICACION_FUN = AUS.ID_IDENTIFICACION
AND GFTD.ID_CONSECUTIVO_FICHA = 22
AND SYSDATE BETWEEN GFTD.FE_INICIAL AND GFTD.FE_FINAL)
LOOP
utl_smtp.rcpt(conn,otrosCorreos.empl);
IF(correosDir IS NULL) THEN
correosDir := otrosCorreos.empl;
ELSE
correosDir := correosDir || ';' || otrosCorreos.empl;
END IF;
END LOOP;
correos := correosDir;
mesg:= 'Date: '||TO_CHAR( SYSDATE, 'dd Mon yy hh24:mi:ss' )|| crlf ||
'From: '||'[email protected]'|| crlf ||
'Subject: Vencimiento Documentos' || crlf ||
'To: '||correos|| crlf ||
'' || crlf ||mesg_body||'';
utl_smtp.OPEN_DATA(conn);
utl_smtp.WRITE_DATA(conn,'MIME-Version: 1.0' ||crlf||'Content-type: text/html' ||crlf||mesg);
UTL_SMTP.WRITE_DATA(conn,mi_cadena);
FOR datos IN(SELECT NU_DO,
ID_CLIENTE,
NO_CLIENTE,
NO_PEDIDO,
NO_FAC,
MODALIDAD,
ACEPTACION_DIM,
FE_DIM,
FE_LEVANTE_INICIAL,
FE_VENCIMIENTO,
ID_DOCUMENTO_DO,
ID_DOCUMENTO_DEC
FROM V_CONTROL_22 V
WHERE V.ID_CLIENTE = id_nit )
LOOP
mi_cadena := trim('<tr bgcolor="#e9f3fc">');
mi_cadena := trim(mi_cadena || inicioCol || datos.NU_DO || finCol);
mi_cadena := trim(mi_cadena || inicioCol || datos.ID_CLIENTE || finCol);
mi_cadena := trim(mi_cadena || inicioCol || datos.NO_CLIENTE || finCol);
mi_cadena := trim(mi_cadena || inicioCol || datos.NO_PEDIDO || finCol);
mi_cadena := trim(mi_cadena || inicioCol || datos.NO_FAC || finCol);
mi_cadena := trim(mi_cadena || inicioCol || datos.MODALIDAD || finCol);
mi_cadena := trim(mi_cadena || inicioCol || datos.ACEPTACION_DIM || finCol);
mi_cadena := trim(mi_cadena || inicioCol || datos.FE_DIM || finCol);
mi_cadena := trim(mi_cadena || inicioCol || datos.FE_LEVANTE_INICIAL || finCol);
mi_cadena := trim(mi_cadena || inicioCol || datos.FE_VENCIMIENTO || finCol);
mi_cadena := trim(mi_cadena || '</tr>');
UTL_SMTP.WRITE_DATA(conn,mi_cadena);
END LOOP;
mi_cadena := trim('</table></td></tr></table></center>');
UTL_SMTP.WRITE_DATA(conn,mi_cadena);
mi_cadena := mi_cadena || trim( '<div style="font-family:verdana; text-align:justify;">');
mi_cadena := mi_cadena || trim( '<div>');
mi_cadena := mi_cadena || trim( '... Lorem ipsum dolor sit amet, consectetur adipisicing elit. Incidunt nesciunt doloremque velit laboriosam laborum, earum labore odit reprehenderit temporibus hic totam quam, ad officia voluptates mollitia. At, officia minus expedita? ');
mi_cadena := mi_cadena || trim( '<ol>');
mi_cadena := mi_cadena || trim( '<li>');
mi_cadena := mi_cadena || trim( ' Lorem ipsum dolor sit amet, consectetur adipisicing elit. Incidunt nesciunt doloremque velit laboriosam laborum, earum labore odit reprehenderit temporibus hic totam quam, ad officia voluptates mollitia. At, officia minus expedita? ');
mi_cadena := mi_cadena || trim( '</li>');
mi_cadena := mi_cadena || trim( '<li>');
mi_cadena := mi_cadena || trim( ' Lorem ipsum dolor sit amet, consectetur adipisicing elit. Incidunt nesciunt doloremque velit laboriosam laborum, earum labore odit reprehenderit temporibus hic totam quam, ad officia voluptates mollitia. At, officia minus expedita? ');
mi_cadena := mi_cadena || trim( '</li>');
mi_cadena := mi_cadena || trim( '<li>');
mi_cadena := mi_cadena || trim( ' Lorem ipsum dolor sit amet, consectetur adipisicing elit. Incidunt nesciunt doloremque velit laboriosam laborum, earum labore odit reprehenderit temporibus hic totam quam, ad officia voluptates mollitia. At, officia minus expedita? . ');
mi_cadena := mi_cadena || trim( '</li>');
mi_cadena := mi_cadena || trim( '</ol>');
mi_cadena := mi_cadena || trim( ' Lorem ipsum dolor sit amet, consectetur adipisicing elit. Incidunt nesciunt doloremque velit laboriosam laborum, earum labore odit reprehenderit temporibus hic totam quam, ad officia voluptates mollitia. At, officia minus expedita? ');
mi_cadena := mi_cadena || trim( '<ol type="a">');
mi_cadena := mi_cadena || trim( '<li>');
mi_cadena := mi_cadena || trim( ' Lorem ipsum dolor sit amet, consectetur adipisicing elit. Incidunt nesciunt doloremque velit laboriosam laborum, earum labore odit reprehenderit temporibus hic totam quam, ad officia voluptates mollitia. At, officia minus expedita? ');
mi_cadena := mi_cadena || trim( '</li>');
mi_cadena := mi_cadena || trim( '<li>');
mi_cadena := mi_cadena || trim( ' Lorem ipsum dolor sit amet, consectetur adipisicing elit. Incidunt nesciunt doloremque velit laboriosam laborum, earum labore odit reprehenderit temporibus hic totam quam, ad officia voluptates mollitia. At, officia minus expedita? ');
mi_cadena := mi_cadena || trim( '</li>');
mi_cadena := mi_cadena || trim( '<li>');
mi_cadena := mi_cadena || trim( ' Lorem ipsum dolor sit amet, consectetur adipisicing elit. Incidunt nesciunt doloremque velit laboriosam laborum, earum labore odit reprehenderit temporibus hic totam quam, ad officia voluptates mollitia. At, officia minus expedita? ');
mi_cadena := mi_cadena || trim( '</li>');
mi_cadena := mi_cadena || trim( '<li>');
mi_cadena := mi_cadena || trim( ' Lorem ipsum dolor sit amet, consectetur adipisicing elit. Incidunt nesciunt doloremque velit laboriosam laborum, earum labore odit reprehenderit temporibus hic totam quam, ad officia voluptates mollitia. At, officia minus expedita? ');
mi_cadena := mi_cadena || trim( '</li>');
mi_cadena := mi_cadena || trim( '<li>');
mi_cadena := mi_cadena || trim( ' Lorem ipsum dolor sit amet, consectetur adipisicing elit. Incidunt nesciunt doloremque velit laboriosam laborum, earum labore odit reprehenderit temporibus hic totam quam, ad officia voluptates mollitia. At, officia minus expedita? ');
mi_cadena := mi_cadena || trim( '</li>');
mi_cadena := mi_cadena || trim( '</ol>');
mi_cadena := mi_cadena || trim( '<p><strong>loren loren 1</strong> Lorem ipsum dolor sit amet, consectetur adipisicing elit. Incidunt nesciunt doloremque velit laboriosam laborum, earum labore odit reprehenderit temporibus hic totam quam, ad officia voluptates mollitia. At, officia minus expedita? . </p>');
mi_cadena := mi_cadena || trim( '<p><strong>loren loren 1</strong> Lorem ipsum dolor sit amet, consectetur adipisicing elit. Incidunt nesciunt doloremque velit laboriosam laborum, earum labore odit reprehenderit temporibus hic totam quam, ad officia voluptates mollitia. At, officia minus expedita? ...');
mi_cadena := mi_cadena || trim( '</p>');
mi_cadena := mi_cadena || trim( '</div>');
mi_cadena := mi_cadena || trim( '</div></body></html>');
UTL_SMTP.WRITE_DATA(conn,mi_cadena);
utl_smtp.CLOSE_DATA(conn);
utl_smtp.quit(conn);
correosDir:= NULL;
correosCliente := NULL;
mi_cadena := NULL;
END IF;
END LOOP;
CLOSE nit_cursor;
END pr_Consulta;