Oracle PLSQL通過SMTP發送E-MAIL郵件代碼

標籤：article   plsql   ase   tput   login   post   command   system   建立   

登入到SMTPserver發送郵件,支援HTML

CREATE OR REPLACE PROCEDURE send_mail(       p_recipient VARCHAR2, -- 郵件接收人       p_subject   VARCHAR2, -- 郵件標題       p_message   VARCHAR2  -- 郵件內文 ) IS      --以下四個變數請依據實際郵件server進行賦值      v_mailhost VARCHAR2(30) := ‘smtp.163.com‘; --SMTPserver地址      v_user     VARCHAR2(30) := ‘[email protected]‘; --登入SMTPserver的username      v_pass     VARCHAR2(20) := ‘System123‘; --登入SMTPserver的password      v_sender   VARCHAR2(50) := ‘[email protected]‘; --寄件者郵箱。一般與 ps_user 相應      v_conn  UTL_SMTP. connection ; --到郵件server的串連      v_msg varchar2(4000);  --郵件內容 BEGIN      v_conn := UTL_SMTP.open_connection(v_mailhost, 25);      UTL_SMTP.ehlo(v_conn, v_mailhost); --是用 ehlo() 而不是 helo() 函數      --否則會報：ORA-29279: SMTP 永久性錯誤: 503 5.5.2 Send hello first.      UTL_SMTP.command(v_conn, ‘AUTH LOGIN‘ );   -- smtpserver登入校正      UTL_SMTP.command(v_conn,UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(UTL_RAW.cast_to_raw(v_user))));      UTL_SMTP.command(v_conn,UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(UTL_RAW.cast_to_raw(v_pass))));      UTL_SMTP.mail(v_conn, v_sender);     --設定寄件者      UTL_SMTP.rcpt(v_conn, p_recipient);  --設定收件者      -- 建立要發送的郵件內容 注意前序資訊和郵件內文之間要空一行      v_msg := ‘Date:‘ || TO_CHAR(SYSDATE, ‘dd mon yy hh24:mi:ss‘ )          || UTL_TCP.CRLF || ‘From: ‘ || ‘<‘ || v_sender || ‘>‘          || UTL_TCP.CRLF || ‘To: ‘ || ‘<‘ || p_recipient || ‘>‘          || UTL_TCP.CRLF || ‘Subject: ‘ || p_subject          || UTL_TCP.CRLF || ‘Content-Type:text/html;charset=GBK‘          || UTL_TCP.CRLF || UTL_TCP.CRLF  -- 這前面是前序資訊          || p_message;    -- 這個是郵件內文      UTL_SMTP.open_data(v_conn); --開啟流      UTL_SMTP.write_raw_data(v_conn, UTL_RAW.cast_to_raw(convert(v_msg,‘ZHS16GBK‘))); --這樣寫標題和內容都能用中文      UTL_SMTP.close_data(v_conn); --關閉流      UTL_SMTP.quit(v_conn); --關閉串連 EXCEPTION      WHEN OTHERS THEN          DBMS_OUTPUT.put_line(DBMS_UTILITY.format_error_stack);          DBMS_OUTPUT.put_line(DBMS_UTILITY.format_call_stack); END send_mail;

Oracle PLSQL通過SMTP發送E-MAIL郵件代碼