[Oracle]郵件測試

搭配以下程式

• BLOB_TO_CLOB

• CLOB_TO_BLOB

• SEND_MAIL

DECLARE
  P_SUBJECT  VARCHAR2(200) := '[Oracle]測試報表'; --信件標題
  P_RCPT     VARCHAR2(200) := 'yolin_chen@XXXX.com.tw'; --,分隔郵件
  P_CC       VARCHAR2(200) := '';
  P_MSG      VARCHAR2(4000) := '';
  P_MSG_CLOB CLOB;
  P_FILENAME VARCHAR2(50) := '測試檔案';
  P_HTML     VARCHAR2(2) := 'Y';

  V_CRLF VARCHAR2(2) := CHR(13) || CHR(10);

  CURSOR CUR IS
    SELECT * FROM FND_USER WHERE 1=1;

BEGIN
  FOR C1 IN CUR LOOP
    P_MSG_CLOB := P_MSG_CLOB || TO_CHAR(C1.USER_ID) || ',' ||
                  TO_CHAR(C1.USER_NAME)
                 --|| ','
                 --|| TO_CHAR(X.CREATION_DATE, 'YYYY-MM-DD HH24:MI:SS')
                  || V_CRLF;
  END LOOP;

  --這邊已將UTF-8改為UTF-8 BOM，Windows系統開啟才不會亂碼
  SELECT ACE_UTL_TOOLS.BLOB_TO_CLOB(ACE_UTL_TOOLS.CLOB_TO_BLOB(P_MSG_CLOB))
    INTO P_MSG_CLOB
    FROM DUAL;

  P_MSG := '';
  P_MSG :=  --這邊可定義CSS
   P_MSG ||
           ' ';
  P_MSG :=  --這邊可定義郵件內文
   P_MSG || '


' || '
此信由系統發出請勿回覆, 如有問題請洽IT
' ||
           '
PROCEDURE: ACEOMR004
';
  P_MSG :=  --這邊可定義表格
   P_MSG || '' || 
           ' ' || 
           '  ' ||
           '  ' || 
           ' ' || ' ' || 
           '  ' ||
           '  ' || 
           ' ' || '
欄位一
欄位二
你好
HELLO
';
  P_MSG := P_MSG || ' ';

  ACE_UTL_TOOLS.SEND_MAIL(P_SUBJECT,
                          P_RCPT,
                          P_CC,
                          P_MSG,
                          P_MSG_CLOB, --附件內容
                          P_FILENAME, --附件名稱
                          P_HTML);

END;