Skip to main content
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
etiquetas editadas
Enlace
sstan
  • 16.9k
  • 2
  • 24
  • 48
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Correcciones de gramática, formato de código, eliminación de texto innecesario
Origen Enlace
Alvaro Montoro
  • 49.8k
  • 28
  • 109
  • 190

Solicito de su ayuda debido a que seSe me estaestá presentado un error al momento de crear un correo automaticoautomático por la dbbase de datos, estoy creando el body y me sale este mensaje de error, me pueden ayudar por favor:

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

  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>';

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

BEGIN¿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;

Solicito de su ayuda debido a que se me esta presentado un error al momento de crear un correo automatico por la db, estoy creando el body y me sale este error, me pueden ayudar por favor

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

  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;

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;
se eliminaron 15 caracteres en el cuerpo
Origen Enlace
jasilva
  • 5.1k
  • 6
  • 32
  • 46

solicitoSolicito de su ayuda debido a que se me esta presentado esta presentado un error al momento de crear un correo automatico por la db, estoy creando el body y me sale este error, me pueden ayudar por favor

 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;

END pr_Consulta;

solicito de su ayuda debido a que se me esta presentado esta presentado un error al momento de crear un correo automatico por la db, estoy creando el body y me sale este error, me pueden ayudar por favor

 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;

Solicito de su ayuda debido a que se me esta presentado un error al momento de crear un correo automatico por la db, estoy creando el body y me sale este error, me pueden ayudar por favor

 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;
se añadieron 13331 caracteres en el cuerpo
Origen Enlace
Gdaimon
  • 760
  • 1
  • 14
  • 35
Loading
Origen Enlace
Gdaimon
  • 760
  • 1
  • 14
  • 35
Loading