[Developer] Oracle sendmail procedure(1)(轉載)
CREATE OR REPLACE PROCEDURE send_mail(
p_recipient VARCHAR2, -- 郵件接收人
p_subject VARCHAR2, -- 郵件標題
p_message VARCHAR2 -- 郵件正文
)
IS
--下面四個變數請根據實際郵件伺服器進行賦值
v_mailhost VARCHAR2(30) := 'smtp.wlcsp.com'; --SMTP伺服器地址
v_user VARCHAR2(30) := 'automail@wlcsp.com'; --登入SMTP伺服器的使用者名稱;只是使用者名稱,不包括163.com部分
v_pass VARCHAR2(20) := '1234qwer.'; --登入SMTP伺服器的密碼
v_sender VARCHAR2(50) := 'automail@wlcsp.com'; --傳送都郵箱,一般與 ps_user 對應
v_conn UTL_SMTP.connection; --到郵件伺服器的連線
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'); -- smtp伺服器登入校驗
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 || '<' || v_sender || '>'
|| UTL_TCP.CRLF || 'To: ' || p_recipient || '<' || p_recipient || '>'
|| UTL_TCP.CRLF || 'Subject: ' || p_subject
|| 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(v_msg)); --這樣寫標題和內容都能用中文
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;
p_recipient VARCHAR2, -- 郵件接收人
p_subject VARCHAR2, -- 郵件標題
p_message VARCHAR2 -- 郵件正文
)
IS
--下面四個變數請根據實際郵件伺服器進行賦值
v_mailhost VARCHAR2(30) := 'smtp.wlcsp.com'; --SMTP伺服器地址
v_user VARCHAR2(30) := 'automail@wlcsp.com'; --登入SMTP伺服器的使用者名稱;只是使用者名稱,不包括163.com部分
v_pass VARCHAR2(20) := '1234qwer.'; --登入SMTP伺服器的密碼
v_sender VARCHAR2(50) := 'automail@wlcsp.com'; --傳送都郵箱,一般與 ps_user 對應
v_conn UTL_SMTP.connection; --到郵件伺服器的連線
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'); -- smtp伺服器登入校驗
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 || '<' || v_sender || '>'
|| UTL_TCP.CRLF || 'To: ' || p_recipient || '<' || p_recipient || '>'
|| UTL_TCP.CRLF || 'Subject: ' || p_subject
|| 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(v_msg)); --這樣寫標題和內容都能用中文
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;
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/24237320/viewspace-2072697/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- [Developer] Oracle send mail procedure(2)DeveloperOracleAI
- 在SQL Developer中Debug一個procedureSQLDeveloper
- [Developer] Procedure傳送html形式表格的mailDeveloperHTMLAI
- Oracle Wrap ProcedureOracle
- REDHAT 7.1 sendmail配置FAQ (轉)RedhatAI
- Sendmail relay規則及配置檔案用法彙總 sendmail配置 (轉)AI
- How to rename an Oracle stored procedureOracle
- oracle 中呼叫 store procedureOracle
- Oracle stored procedure to send emailOracleAI
- sendmail出現"MXlistforhostnamepointsbacktohostname"問(轉)AI
- [Shell] monitor oracle alert.log file and sendmailOracleAI
- Oracle Developer 論壇OracleDeveloper
- Linux下的sendmail簡介(轉)LinuxAI
- Building a Dynamic Oracle ETL ProcedureUIOracle
- 8.Monitor oracle alert.log file and sendmailOracleAI
- sendmail配置AI
- Oracle之procedure的基礎使用Oracle
- 轉載oracle awrOracle
- Oracle Display the process of the procedure ( oracle pipe , dbms_output , prompt )Oracle
- oracle sql developer 2.1如何連線oracleOracleSQLDeveloper
- 用sendmail傳送HTML格式的郵件(轉)AIHTML
- 把JavaMail包裝成簡單的Sendmail (轉)JavaAI
- PL/SQL Developer 連線 OracleSQLDeveloperOracle
- Oracle SQL Developer安裝教程OracleSQLDeveloper
- ORACLE SQL DEVELOPER User Interface ChangeOracleSQLDeveloper
- [轉載]Oracle資料庫字符集問題解析1Oracle資料庫
- [Procedure]Oracle之分頁儲存過程Oracle儲存過程
- 用Oracle傳送郵件procedure (zt)Oracle
- Oracle 基礎 ----procedure(儲存過程)Oracle儲存過程
- sendmail settingAI
- stored procedure 收集session wait 資訊(轉)SessionAI
- 轉載Oracle AWR速查Oracle
- 轉載--oracle DML鎖Oracle
- oracle rowid (轉載)Oracle
- Java Developer's Journal 2003 Readers' Choice Awards提名(1) (轉)JavaDeveloper
- 在Perl中使用sendmail傳送MIME郵件 (轉)AI
- [轉載] 全面學習和應用ORACLE ASM特性(1),(2),(3)OracleASM
- ORACLE SQL Developer 64 bit DownloadOracleSQLDeveloper