Plsql I’| | Utl|u Tcp.CRLF）； Utl_Smtp.WRITE_数据（v_连接_句柄，Utl_Tcp.CRLF）； Utl_Smtp.WRITE_数据（v_连接_句柄，l_消息| Utl_Tcp.CRLF）； Utl_Smtp.WRITE_数据（v_连接_句柄，Utl_Tcp.CRLF）； 如果结束； --mime头。 如果ifile不为空，则 对于1..2循环中的i /*正在从文件准备lob以用于附件*/ /*lob操作相关变量*/ 如果i=1，那么 vfile:=ifile； 其他的 如果ifile2为空，则 出口 其他的 vfile:=ifile2； 如果结束； 如果结束； 声明 v_src_loc BFILE:=Bfilename（'EMAIL_FILES'，Nvl（vfile，'temp'）； l_缓冲区原始（54）； l_金额二进制_整数：=54； l_pos整数：=1； l_blob blob:=空的_blob； l_blob_len整数； v_数量整数； 开始 Dbms_Lob.OPEN（v_src_loc，Dbms_Lob.Lob_READONLY）--读文件 Dbms_Lob.CREATETEMPORARY（l_blob，TRUE）--创建临时lob以存储文件。 v_amount:=Dbms_Lob.GETLENGTH（v_src_loc）--储存的数量。 Dbms_Lob.LOADFROMFILE（l_blob，v_src_loc，v_amount）；--从文件加载到临时lob l_blob_len:=Dbms_Lob.getlength（l_blob）； Utl_Smtp.写入数据（v_连接\u句柄， “MIME版本：1.0”| | Utl|u Tcp.CRLF）； Utl_Smtp.写入数据（v_连接\u句柄， '内容类型：多部分/混合；'| | Utl|u Tcp.CRLF）； Utl_Smtp.写入数据（v_连接\u句柄， “boundary=“”||“EMAIL_FILES.SECBOUND”||“”|| Utl_Tcp.CRLF）； Utl_Smtp.WRITE_数据（v_连接_句柄，Utl_Tcp.CRLF）； 如果i=1，那么 --邮件正文 Utl_Smtp.写入数据（v_连接\u句柄， “--”| |“EMAIL_FILES.SECBOUND”| | Utl_Tcp.CRLF）； Utl_Smtp.写入数据（v_连接\u句柄， “内容类型：text/html；”| | Utl_Tcp.CRLF）； Utl_Smtp.写入数据（v_连接\u句柄， “charset=US-ASCII”| | Utl_Tcp.CRLF）； Utl_Smtp.WRITE_数据（v_连接_句柄，Utl_Tcp.CRLF）； Utl_Smtp.WRITE_数据（v_连接_句柄，l_消息| Utl_Tcp.CRLF）； Utl_Smtp.WRITE_数据（v_连接_句柄，Utl_Tcp.CRLF）； 如果结束； --邮件附件 Utl_Smtp.写入数据（v_连接\u句柄， “--”| |“EMAIL_FILES.SECBOUND”| | Utl_Tcp.CRLF）； Utl_Smtp.写入数据（v_连接\u句柄， '内容类型：应用程序/八位字节流'|| Utl_Tcp.CRLF）； Utl_Smtp.写入数据（v_连接\u句柄， '内容配置：附件；'| | Utl|u Tcp.CRLF）； Utl_Smtp.写入数据（v_连接\u句柄， 'filename=“'| | vfile | |'”| |--我的文件名 Utl_Tcp.CRLF）； Utl_Smtp.写入数据（v_连接\u句柄， “内容传输编码：base64”| | Utl_Tcp.CRLF）； Utl_Smtp.WRITE_数据（v_连接_句柄，Utl_Tcp.CRLF）； /*将blol分块编写*/ 而l_pos

您还可以查看我写的博客帖子的以下链接，例如完整示例：

---

嗨，维尼什，谢谢你的回复。实际上我忘了添加CLOB fetch代码行。。我已经编辑了我原来的帖子。我的问题是如何压缩此CLOB并作为附件发送。。祝你好运。

    DECLARE
       p_from                                            VARCHAR2 (2000);
       p_to2                                              VARCHAR2 (2000) := 'xyz@abc.com';
       p_subject                                         VARCHAR2 (2000);
       p_smtp_host                                       VARCHAR2 (2000);
       p_smtp_port                                       NUMBER := 25;
       l_mail_conn                                       UTL_SMTP.connection;
       l_boundary                                        VARCHAR2 (50) := '----=*#abc1234321cba#*=';
       atch_name                                    VARCHAR2 (50);
       atch_mine   VARCHAR2 (50) := 'application/zip';
       atch_clob   NCLOB;
       l_step          PLS_INTEGER := 12000; -- make sure you set a multiple of 3 not higher than 24573
       dbname VARCHAR2 (50);
       hostname VARCHAR2 (50);

    BEGIN

    SELECT host into p_smtp_host FROM dba_network_acls where acl = '/sys/acls/utl_mail.xml' and rownum = 1;

    if p_smtp_host is not null then

    select host_name into hostname from v$instance;

    select name into dbname from v$database;

    p_from := dbname || '@' || hostname;
    p_subject := 'Test Mail';

       l_mail_conn                                              := UTL_SMTP.open_connection (p_smtp_host, p_smtp_port);
       UTL_SMTP.helo (l_mail_conn, p_smtp_host);
       UTL_SMTP.mail (l_mail_conn, p_from);
       UTL_SMTP.rcpt (l_mail_conn, p_To2);
       UTL_SMTP.open_data (l_mail_conn);
       UTL_SMTP.write_data (l_mail_conn, 'Date: ' || TO_CHAR (SYSDATE, 'DD-MON-YYYY HH24:MI:SS') || UTL_TCP.crlf);
       UTL_SMTP.write_data (l_mail_conn, 'To: ' || p_to2 || UTL_TCP.crlf);
       UTL_SMTP.write_data (l_mail_conn, 'From: ' || p_from || UTL_TCP.crlf);
       UTL_SMTP.write_data (l_mail_conn, 'Subject: ' || p_subject || UTL_TCP.crlf);
       UTL_SMTP.write_data (l_mail_conn, 'Reply-To: ' || p_from || UTL_TCP.crlf);
       UTL_SMTP.write_data (l_mail_conn, 'MIME-Version: 1.0' || UTL_TCP.crlf);
       UTL_SMTP.write_data (l_mail_conn , 'Content-Type: multipart/alternative; boundary="' || l_boundary || '"' || UTL_TCP.crlf || UTL_TCP.crlf );
       UTL_SMTP.write_data (l_mail_conn, '--' || l_boundary || UTL_TCP.crlf);
       UTL_SMTP.write_data (l_mail_conn, 'Content-Type: text/html; charset="iso-8859-1"' || UTL_TCP.crlf || UTL_TCP.crlf);

    atch_clob := '<br><b><font size="2.5">Thanks,</font></b>';

    --  NAME   

    atch_name := 'test.zip';  

    -- ATTACHMENT 

      UTL_SMTP.write_data (l_mail_conn, UTL_TCP.crlf || UTL_TCP.crlf);

       UTL_SMTP.write_data (l_mail_conn, ('--' || l_boundary || UTL_TCP.crlf));
       UTL_SMTP.write_data (l_mail_conn, ('Content-Type: ' || atch_mine || '; name="' || atch_name || '"' || UTL_TCP.crlf));
       UTL_SMTP.write_data (l_mail_conn, ('Content-Disposition: attachment; filename="' || atch_name || '"' || UTL_TCP.crlf || UTL_TCP.crlf));

UTL_SMTP.write_data (l_mail_conn, atch_clob);
       UTL_SMTP.write_data (l_mail_conn, UTL_TCP.crlf || UTL_TCP.crlf);   

       UTL_SMTP.write_data (l_mail_conn, '--' || l_boundary || '--' || UTL_TCP.crlf);
       UTL_SMTP.close_data (l_mail_conn);
       UTL_SMTP.quit (l_mail_conn);      

    else
     dbms_output.put_line('Mailing Privilege not avaialble');
       END IF;
     END;
    / 

PROCEDURE Send_Email(ifrom In varchar2, ito In varchar2, icc In varchar2, ifile In varchar2, ifile2 In varchar2,
isubject In varchar2, imsg In varchar2, isrl_no In number)
 Is

    /*utl_smtp related variables. */
    vfile varchar2(100);
    v_connection_handle  Utl_Smtp.CONNECTION;
    v_from_email_address VARCHAR2(1000) := ifrom;
    v_to_email_address   VARCHAR2(1000) := ito;
    v_smtp_host          VARCHAR2(100) := 'mail.urdomain.com'; --your mail server
    v_subject            VARCHAR2(1000) := isubject;
    l_message            VARCHAR2(2000) := imsg;
  nls_charset    varchar2(255); 
    /* this send_header procedure is written in the documentation */
    PROCEDURE send_header(pi_name In VARCHAR2, pi_header In VARCHAR2) As
    BEGIN
      Utl_Smtp.WRITE_DATA(v_connection_handle,
                          pi_name || ': ' || pi_header || Utl_Tcp.CRLF);
    END;

 BEGIN
       Select Value
       Into   nls_charset
       From   NLS_DATABASE_PARAMETERS
       Where  parameter = 'NLS_CHARACTERSET';

    /*utl_smtp related coding. */
    v_connection_handle := Utl_Smtp.OPEN_CONNECTION(v_smtp_host, 25);
    Utl_Smtp.EHLO(v_connection_handle, v_smtp_host);
    utl_smtp.command(v_connection_handle, 'auth login');
  utl_smtp.command(v_connection_handle,utl_encode.text_encode('yourid@urdomain.com', nls_charset, 1));
  utl_smtp.command(v_connection_handle, utl_encode.text_encode('urpassword', nls_charset, 1));
    Utl_Smtp.Mail(v_connection_handle, v_from_email_address);
    Utl_Smtp.RCPT(v_connection_handle, v_to_email_address);
    IF icc Is Not Null Then
     Utl_Smtp.RCPT(v_connection_handle, icc);
    END IF;
    Utl_Smtp.OPEN_DATA(v_connection_handle);
    send_header('From', ifrom);
     send_header('To', ito);
    IF icc Is Not Null Then
      send_header('Cc', icc);
    END IF;
    send_header('Subject', v_subject);
    IF IFILE Is Null And IFILE2 Is Null Then
         Utl_Smtp.WRITE_DATA(v_connection_handle,
                           'Content-Type: text/html;' || Utl_Tcp.CRLF);
        Utl_Smtp.WRITE_DATA(v_connection_handle,
                            ' charset=US-ASCII' || Utl_Tcp.CRLF);
        Utl_Smtp.WRITE_DATA(v_connection_handle, Utl_Tcp.CRLF);
        Utl_Smtp.WRITE_DATA(v_connection_handle, l_message || Utl_Tcp.CRLF);
        Utl_Smtp.WRITE_DATA(v_connection_handle, Utl_Tcp.CRLF);
    END IF;

    --mime header.
    IF ifile Is Not Null Then
     For i In 1..2 LOOP
      /*preparing the lob from file for attachment. */
          /*lob operation related varriables */
      IF i = 1 Then
        vfile := ifile;
      Else
       IF ifile2 Is Null Then
         EXIT;
       Else
        vfile := ifile2;
       END IF;
      END IF;
          DECLARE
         v_src_loc  BFILE := Bfilename('EMAIL_FILES', Nvl(vfile, 'temp'));
         l_buffer   RAW(54);
         l_amount   BINARY_INTEGER := 54;
         l_pos      INTEGER := 1;
         l_blob     BLOB := Empty_Blob;
         l_blob_len INTEGER;
         v_amount   INTEGER;
         BEGIN
      Dbms_Lob.OPEN(v_src_loc, Dbms_Lob.LOB_READONLY); --read the file
      Dbms_Lob.CREATETEMPORARY(l_blob, TRUE); --create temporary lob to store the file.
      v_amount := Dbms_Lob.GETLENGTH(v_src_loc); --amount to store.
      Dbms_Lob.LOADFROMFILE(l_blob, v_src_loc, v_amount); -- loading from file into temporary lob
      l_blob_len := Dbms_Lob.getlength(l_blob);
      Utl_Smtp.WRITE_DATA(v_connection_handle,
                          'MIME-Version: 1.0' || Utl_Tcp.CRLF);
      Utl_Smtp.WRITE_DATA(v_connection_handle,
                          'Content-Type: multipart/mixed; ' || Utl_Tcp.CRLF);
      Utl_Smtp.WRITE_DATA(v_connection_handle,
                          ' boundary= "' || 'EMAIL_FILES.SECBOUND' || '"' ||
                          Utl_Tcp.CRLF);
      Utl_Smtp.WRITE_DATA(v_connection_handle, Utl_Tcp.CRLF);
      IF i = 1 Then
        -- mail body
        Utl_Smtp.WRITE_DATA(v_connection_handle,
                            '--' || 'EMAIL_FILES.SECBOUND' || Utl_Tcp.CRLF);
        Utl_Smtp.WRITE_DATA(v_connection_handle,
                            'Content-Type: text/html;' || Utl_Tcp.CRLF);
        Utl_Smtp.WRITE_DATA(v_connection_handle,
                            ' charset=US-ASCII' || Utl_Tcp.CRLF);
        Utl_Smtp.WRITE_DATA(v_connection_handle, Utl_Tcp.CRLF);
        Utl_Smtp.WRITE_DATA(v_connection_handle, l_message || Utl_Tcp.CRLF);
        Utl_Smtp.WRITE_DATA(v_connection_handle, Utl_Tcp.CRLF);
      END IF;
      -- mail attachment
      Utl_Smtp.WRITE_DATA(v_connection_handle,
                          '--' || 'EMAIL_FILES.SECBOUND' || Utl_Tcp.CRLF);
      Utl_Smtp.WRITE_DATA(v_connection_handle,
                          'Content-Type: application/octet-stream' ||
                          Utl_Tcp.CRLF);
      Utl_Smtp.WRITE_DATA(v_connection_handle,
                          'Content-Disposition: attachment; ' || Utl_Tcp.CRLF);
      Utl_Smtp.WRITE_DATA(v_connection_handle,
                         ' filename="' || vfile || '"' || --my filename
                          Utl_Tcp.CRLF);
      Utl_Smtp.WRITE_DATA(v_connection_handle,
                          'Content-Transfer-Encoding: base64' || Utl_Tcp.CRLF);
      Utl_Smtp.WRITE_DATA(v_connection_handle, Utl_Tcp.CRLF);
    /* writing the blol in chunks */
      WHILE l_pos < l_blob_len LOOP
        Dbms_Lob.Read(l_blob, l_amount, l_pos, l_buffer);
        Utl_Smtp.write_raw_data(v_connection_handle,
                                Utl_Encode.BASE64_ENCODE(l_buffer));
        Utl_Smtp.WRITE_DATA(v_connection_handle, Utl_Tcp.CRLF);
        l_buffer := Null;
        l_pos    := l_pos + l_amount;
      END LOOP;
      Utl_Smtp.WRITE_DATA(v_connection_handle, Utl_Tcp.CRLF);
      Dbms_Lob.FREETEMPORARY(l_blob);
     Dbms_Lob.FILECLOSE(v_src_loc);
      EXCEPTION
       When Others Then
         Dbms_Lob.FREETEMPORARY(l_blob);
         Dbms_Lob.FILECLOSE(v_src_loc);
        END;
     END LOOP;
      -- close email
      Utl_Smtp.WRITE_DATA(v_connection_handle,
                          '--' || 'EMAIL_FILES.SECBOUND' || '--' || Utl_Tcp.CRLF);
      Utl_Smtp.WRITE_DATA(v_connection_handle,
                          Utl_Tcp.CRLF || '.' || Utl_Tcp.CRLF);
      END IF;
      Utl_Smtp.CLOSE_DATA(v_connection_handle);
      Utl_Smtp.QUIT(v_connection_handle);
  EXCEPTION
    When Others Then
--    utl_smtp.quit(v_connection_handle);
     IF ifile Is Not Null Then
      Utl_Smtp.QUIT(v_connection_handle);

     END IF;
      RAISE;
  END;