UTL_SMTP发送邮件,防中文乱码处理！

DECLARE
  V_CONN                UTL_SMTP.CONNECTION;
  L_REC_ARR             ARRAY;
  V_DB_NLS_CHARACTERSET VARCHAR2(40);
  CURSOR L_TEMP IS
    SELECT COL1, COL2, COL3, COL4, COL5, COL6, COL7 FROM TABLE_NAME;
  ;

  L_REC_LIST    VARCHAR2(32767);
  BODY_HTML_S   VARCHAR2(32767);
  BODY_HTML_E   VARCHAR2(20);
  BODY_HTML_C   VARCHAR2(32767);
  L_MEG_CONTENT VARCHAR2(32767);
BEGIN
  --获取服务器字符集
  SELECT VALUE
    INTO V_DB_NLS_CHARACTERSET
    FROM NLS_DATABASE_PARAMETERS
   WHERE PARAMETER = 'NLS_CHARACTERSET';

  --获取邮件接收人列表，格式如(xxx1@126.com,xxx2@126.com,xxx3@126.com...)
  SELECT ADL.TO_RECIPIENTS
    INTO L_REC_LIST
    FROM ALR_DISTRIBUTION_LISTS ADL
   WHERE ADL.NAME = 'ALERT_REC_LIST';

  --表头HTML代码
  BODY_HTML_S := '<table width="100%" border="1"  cellspacing="1" cellpadding="0" bgcolor="#000000" style="font-size:12px; font-famil