以下的文章主要是以實例演示的方式來講解如何正確的執(zhí)行Oracle發(fā)送郵件，以下的文章就就是對其實際的操作步驟的講解，如果你對其相關(guān)的實際操作有興趣的話，你就可以對以下的文章點擊觀看了。

LINUX AS3+Oracle 9.2||10.20.

從Oracle發(fā)送郵件:

示例如下：

具體的測試環(huán)境:LINUX AS3 , Oracle 9.0.2.4

SQL> select * from v$version;  
BANNER  
Oracle9i Enterprise Edition Release 9.2.0.4.0 - Production  
PL/SQL Release 9.2.0.4.0 - Production  
CORE 9.2.0.3.0 Production  
TNS for Linux: Version 9.2.0.4.0 - Production  
NLSRTL Version 9.2.0.4.0 - Production  
SQL> select * from v$version;  
Oracle Database 10g Enterprise Edition Release 10.2.0.1.0 - Prod  
PL/SQL Release 10.2.0.1.0 - Production  
CORE 10.2.0.1.0 Production  
TNS for Linux: Version 10.2.0.1.0 - Production  
NLSRTL Version 10.2.0.1.0 - Production  

MAIL服務(wù)器為WIN2003,WINMAIL

1.保證ORACLE服務(wù)器到MAIL服務(wù)器網(wǎng)絡(luò)暢通,25端口打開

2.創(chuàng)建Oracle發(fā)送郵件的procedure如下:

CREATE OR REPLACE PROCEDURE SEND_MAIL 

(as_sender in varchar2, --郵件發(fā)送者

as_recp in varchar2, --郵件接收者

as_subject in varchar2, --郵件標(biāo)題

as_msg_body in varchar2) --郵件內(nèi)容

IS  
ls_mailhost varchar2(30) := 'mail server'; -- address or IP  
lc_mail_conn utl_smtp.connection;  
ls_subject varchar2(100);  
ls_msg_body varchar2(20000);  
ls_username varchar2(256) := 'usercode';  
ls_password varchar2(256) := 'password';  
BEGIN  
lc_mail_conn := utl_smtp.open_connection(ls_mailhost, 25);  
utl_smtp.helo(lc_mail_conn, ls_mailhost);  
utl_smtp.command(lc_mail_conn, 'AUTH LOGIN');  
utl_smtp.command(lc_mail_conn, demo_base64.encode(utl_raw.cast_to_raw(ls_username)));  
utl_smtp.command(lc_mail_conn, demo_base64.encode(utl_raw.cast_to_raw(ls_password)));  
ls_subject := 'Subject: [' || upper(sys_context('userenv', 'db_name')) || '] - ' || as_subject;  
ls_msg_body := as_msg_body;  

utl_smtp.mail(lc_mail_conn, '<'||as_sender||'>'); --這里的'<' 一定要寫,不然會出現(xiàn)permanent error

utl_smtp.rcpt(lc_mail_conn, '<'||as_recp||'>');--這里的'<' 一定要寫,不然會出現(xiàn)permanent error

utl_smtp.open_data(lc_mail_conn);  
ls_msg_body := 'From: ' || as_sender || chr(13) || chr(10) || 'To: ' || as_recp || chr(13) || chr(10) || ls_subject ||  
chr(13) || chr(10) || chr(13) || chr(10) || ls_msg_body;  

utl_smtp.write_raw_data(lc_mail_conn, utl_raw.cast_to_raw(ls_msg_body)); --這樣寫subject可以支持中文但body內(nèi)容不支持中文;

-- utl_smtp.write_data(lc_mail_conn, ls_msg_body); --這樣寫subject不支持中文

utl_smtp.close_data(lc_mail_conn);  
utl_smtp.quit(lc_mail_conn);  
EXCEPTION  
WHEN UTL_SMTP.INVALID_OPERATION THEN  
dbms_output.put_line('invalid operation');  
WHEN UTL_SMTP.TRANSIENT_ERROR THEN  
dbms_output.put_line('transient error');  
WHEN UTL_SMTP.PERMANENT_ERROR THEN  
dbms_output.put_line('permanent error');  
WHEN OTHERS THEN  
dbms_output.put_line('others');  
end send_mail;  
 

3.執(zhí)行Oracle發(fā)送郵件:

exec send_mail('heyu@163.net','admin@163.net','我我','this is a oracle test mail'); 

注意事項:上面的過程如果在編譯中出現(xiàn)demo_base64.encode must be declared,請大家創(chuàng)建下面的包和包體;

CREATE OR REPLACE PACKAGE demo_base64 IS  
-- Base64-encode a piece of binary data.  
--  
-- Note that this encode function does not split the encoded text into  
-- multiple lines with no more than 76 bytes each as required by  
-- the MIME standard.  

以上的相關(guān)內(nèi)容就是對Oracle發(fā)送郵件的介紹，望你能有所收獲。

【編輯推薦】

1. Oracle數(shù)據(jù)庫中null的具體使用方案
2. 用Oracle SQL語句來實現(xiàn)進制間的相互轉(zhuǎn)換
3. Oracle數(shù)據(jù)庫與FoxPro數(shù)據(jù)如何轉(zhuǎn)換
4. Oracle存儲過程中如何準(zhǔn)確的實現(xiàn)分頁
5. Oracle安全策略的實際用法