Oracle 10G 使用UTL_SMTP发送中文电子邮件[Z]

CREATE OR REPLACE PROCEDURE SCOTT.HTML_EMAIL(
        P_TO                    IN   VARCHAR2, --收件人地址
        P_SUBJECT               IN   VARCHAR2,    --邮件主题
        P_HTML                  IN   VARCHAR2   DEFAULT   NULL--邮件内容支持HTML代码
        )
IS
        L_BOUNDARY           VARCHAR2(255)   DEFAULT   'a1b2c3d4e3f2g1';
        L_CONNECTION         UTL_SMTP.CONNECTION;
        L_BODY_HTML          CLOB   :=   EMPTY_CLOB;     --THIS   LOB   WILL   BE   THE   EMAIL   MESSAGE
        L_OFFSET             NUMBER;
        L_AMMOUNT            NUMBER;
        L_TEMP               VARCHAR2(32767)   DEFAULT   NULL;

        L_ACCOUNT               VARCHAR2(100);
        L_PASSWORD          VARCHAR2(100);

        P_FROM                  VARCHAR2(200);
        P_TEXT                  VARCHAR2(200);
        P_SMTP_HOSTNAME         VARCHAR2(200);
        P_SMTP_PORTNUM         VARCHAR2(200);
BEGIN 

        P_FROM:='test@163.com'; --发件人地址
        P_SMTP_HOSTNAME:='smtp.163.com'; --smtp服务器
        P_SMTP_PORTNUM:='25';                    --smtp服务器端口号
        L_ACCOUNT:='test@163.com';--登录服务器用账号
        L_PASSWORD:='123456';                    --登录服务器密码

         P_TEXT:='there is no text';

        L_CONNECTION   :=   UTL_SMTP.OPEN_CONNECTION(P_SMTP_HOSTNAME,25);
        UTL_SMTP.ehLO(L_CONNECTION,P_SMTP_HOSTNAME); --问候服务器，注意此用用了EHLO，没有使用HELO

        --输入用户名密码
        utl_smtp.command(l_connection,   'AUTH   LOGIN ');
        utl_smtp.command(l_connection, utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw(L_ACCOUNT))));
        utl_smtp.command(l_connection,utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw(L_PASSWORD)))); 

        UTL_SMTP.MAIL(L_CONNECTION, '<' || P_FROM|| '>'); --发件人信息
        UTL_SMTP.RCPT(L_CONNECTION, '<' || P_TO|| '>'); --收件人地址
        --记得在地址两边加<>，否则可能会报错

        L_TEMP   :=   L_TEMP   ||   'MIME-Version:   1.0 '   ||     CHR(13)   ||   CHR(10);
        L_TEMP   :=   L_TEMP   ||   'To:   '   ||   P_TO   ||   CHR(13)   ||   CHR(10);
        L_TEMP   :=   L_TEMP   ||   'From:   '   ||   P_FROM   ||   CHR(13)   ||   CHR(10);
        L_TEMP   :=   L_TEMP   ||   'Subject:   '   ||   P_SUBJECT   ||   CHR(13)   ||   CHR(10);
        L_TEMP   :=   L_TEMP   ||   'Reply-To:   '   ||   P_FROM   ||     CHR(13)   ||   CHR(10);
        L_TEMP   :=   L_TEMP   ||   'Content-Type:   multipart/alternative;   boundary= '|| CHR(34)||L_BOUNDARY||CHR(34)||CHR(13)||CHR(10); 

        ----------------------------------------------------
        --   WRITE   THE   HEADERS --写入头信息
        DBMS_LOB.CREATETEMPORARY(L_BODY_HTML,FALSE,10);
        DBMS_LOB.WRITE(L_BODY_HTML,LENGTH(L_TEMP),1,L_TEMP); 

--        ----------------------------------------------------
--        --   WRITE   THE   TEXT   BOUNDARY
--        L_OFFSET:=DBMS_LOB.GETLENGTH(L_BODY_HTML) +1;
--        L_TEMP:= CHR(13)||CHR(10)||'-- '||L_BOUNDARY||CHR(13)||CHR(10);
--        L_TEMP:= L_TEMP||'Content-Type:text/plain;charset=us-ascii'||CHR(13)||CHR(10)||CHR(13)||CHR(10);
--        DBMS_LOB.WRITE(L_BODY_HTML,LENGTH(L_TEMP),L_OFFSET,L_TEMP); 

--        ----------------------------------------------------
--        --   WRITE   THE   PLAIN   TEXT   PORTION   OF   THE   EMAIL
--        L_OFFSET   :=   DBMS_LOB.GETLENGTH(L_BODY_HTML)   +   1;
--        DBMS_LOB.WRITE(L_BODY_HTML,LENGTH(P_TEXT),L_OFFSET,P_TEXT); 

        ----------------------------------------------------
        --   WRITE   THE   HTML   BOUNDARY
        L_TEMP := CHR(13)||CHR(10)||CHR(13)||CHR(10)|| '--' ||L_BOUNDARY|| CHR(13)||CHR(10);
        L_TEMP := L_TEMP||'Content-Type:text/html; '|| CHR(13)||CHR(10)||CHR(13)||CHR(10);
        L_OFFSET   :=   DBMS_LOB.GETLENGTH(L_BODY_HTML)   +   1;
        DBMS_LOB.WRITE(L_BODY_HTML,LENGTH(L_TEMP),L_OFFSET,L_TEMP); 

        ----------------------------------------------------
        --   WRITE   THE   HTML   PORTION   OF   THE   MESSAGE
        L_OFFSET   :=   DBMS_LOB.GETLENGTH(L_BODY_HTML)   +   1;
        DBMS_LOB.WRITE(L_BODY_HTML,LENGTH(P_HTML),L_OFFSET,P_HTML); 

        ----------------------------------------------------
        --   WRITE   THE   test vale
--        L_TEMP :='我是中国人';
--        L_OFFSET   :=   DBMS_LOB.GETLENGTH(L_BODY_HTML)   +   1;
--        DBMS_LOB.WRITE(L_BODY_HTML,LENGTH(L_TEMP),L_OFFSET,L_TEMP); 

        ----------------------------------------------------
        --   WRITE   THE   FINAL   HTML   BOUNDARY
--        L_TEMP  :=CHR(13)||CHR(10) ||CHR(13)||CHR(10) || '-- '|| L_BOUNDARY|| '-- '||CHR(13);
--        L_OFFSET :=DBMS_LOB.GETLENGTH(L_BODY_HTML) + 1;
--        DBMS_LOB.WRITE(L_BODY_HTML,LENGTH(L_TEMP),L_OFFSET,L_TEMP); 

        ----------------------------------------------------
        --   SEND   THE   EMAIL   IN   1900   BYTE   CHUNKS   TO   UTL_SMTP
        L_OFFSET:=   1;
        L_AMMOUNT:=   1900;
        UTL_SMTP.OPEN_DATA(L_CONNECTION);
        WHILE   L_OFFSET   <   DBMS_LOB.GETLENGTH(L_BODY_HTML)   LOOP
                UTL_SMTP.WRITE_RAW_DATA(L_CONNECTION,UTL_RAW.cast_to_raw(DBMS_LOB.SUBSTR(L_BODY_HTML,L_AMMOUNT,L_OFFSET)));
                L_OFFSET:= L_OFFSET+L_AMMOUNT ;
                L_AMMOUNT:= LEAST(1900,DBMS_LOB.GETLENGTH(L_BODY_HTML)- L_AMMOUNT);
        END   LOOP; 

      --  UTL_SMTP.write_raw_data(L_CONNECTION, UTL_RAW.cast_to_raw('我是中国人'));
        UTL_SMTP.CLOSE_DATA(L_CONNECTION);
        UTL_SMTP.QUIT(L_CONNECTION);
       -- dbms_output.put_line(DBMS_LOB.SUBSTR(L_BODY_HTML,DBMS_LOB.GETLENGTH(L_BODY_HTML),1));
        DBMS_LOB.FREETEMPORARY(L_BODY_HTML);
        dbms_output.put_line(to_char(sysdate,'yyyy-mm-dd hh24:mi:ss')||'发送邮件成功！！！');
exception
  when others then
  dbms_output.put_line(dbms_utility.format_error_stack);
  dbms_output.put_line(dbms_utility.format_call_stack);
  dbms_output.put_line(sqlerrm);
END;
/

http://blog.csdn.net/blaider/article/details/5672729