利用Oracle數據庫發送郵件的實例代碼

來源:本網整理

附件沒有抓到吧.確認一下附件的位置和是否真的有取到吧~www.13333515.buzz防采集請勿采集本網。

s">

利用Oracle數據庫發送郵件的實例代碼

作者:samwolf911 字體:[增加 減小] 類型:轉載 時間:2016-09-03 我要評論 本文給大家利用oracle數據庫發送郵件的實例,代碼簡單易懂,試用性非常高,對此文感興趣的朋友一起學習吧 ">

--發送郵件的主過程如下所述:

例如,如果你生成了一份PDF文檔,并把它保存在你的數據庫里,你可以會想要把它作為電子郵件的附件發送出去,common模式就是用來完成這個任務的。將要用到的代碼來自于基本send模式和send_blob模式。以下

Procedure send_mail_ (p_From Varchar2, --郵件發送人p_Fromuser Varchar2, --發件人昵稱p_Touser Varchar2, --接受人昵稱p_To Varchar2, --郵件接收人p_Cc Varchar2, --郵件抄送人p_Subject Varchar2, --郵件標題p_Message Varchar2, --郵件內容p_User Varchar2, --郵件驗證用戶p_Mailhost VARCHAR2, --郵件的服務地址p_Psd Varchar2 --郵件驗證密碼) ISv_Conn Utl_Smtp.Connection; --到郵件服務器的連接v_Msg Varchar2(32700); --郵件內容Psrc Varchar2(4000);Psrc1 Varchar2(4000);v_Touser1 VARCHAR2(4000);v_Touser VARCHAR2(500);v_To Varchar2(500);i Number := 1;j Number := 1;m Number := 1;n Number := 1;str_error VARCHAR2(20000);BEGINv_Touser1 := '';v_Conn := Utl_Smtp.Open_Connection(p_Mailhost, 25);Utl_Smtp.Ehlo(v_Conn, p_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(p_User))));Utl_Smtp.Command(v_Conn, Utl_Raw.Cast_To_Varchar2(Utl_Encode.Base64_Encode(Utl_Raw.Cast_To_Raw(p_Psd ))));Utl_Smtp.Mail (v_Conn, '<' || p_From || '>'); --設置發件人-- 設置收件人----------------Psrc := Rtrim(Ltrim(p_To , ';'), ';') || ';';Psrc1 := Rtrim(Ltrim(p_Touser, ';'), ';') || ';';IF Nvl(Instr(Psrc, ';', j), 0)>0 THENLOOPi := Nvl(Instr(Psrc , ';', j), 0);m := Nvl(Instr(Psrc1, ';', n), 0);If i > 0 THENv_To := Trim(Substr(Psrc , j, i - j));v_Touser := nvl(Trim(Substr(Psrc1, n, m - n)),'1');Utl_Smtp.Rcpt(v_Conn, v_To); --設置收件人IF v_Touser = '1' THENv_Touser := trim(SUBSTR(v_To,1,Instr(v_To,'@')-1));END IF;IF j = 1 THENv_Touser1 := v_Touser1 || v_Touser || '<' || v_To || '>';ELSEv_Touser1 := v_Touser1 || ';'|| v_Touser || '<' || v_To || '>';END IF;j := i + 1;n := m + 1;END IF;Exit When i = 0;END LOOP;ELSEUtl_Smtp.Rcpt(v_Conn, p_To); --設置收件人v_Touser1 := v_Touser1 || p_Touser || '<' || p_To || '>';END IF;-- 設置抄送人----------------i := 1;j := 1;IF nvl(p_Cc,'aa')<>'aa' THENPsrc := Rtrim(Ltrim(p_Cc, ';'), ';')|| ';';IF Nvl(Instr(Psrc, ';', j), 0)>0 THENLOOPi := Nvl(Instr(Psrc, ';', j), 0);If i > 0 THENv_To := Trim(Substr(Psrc, j, i - j));j := i + 1;Utl_Smtp.Rcpt(v_Conn, v_To); --設置抄送人END IF;Exit When i = 0;END LOOP;ELSEIF nvl(p_Cc,'1') <> '1' THENUtl_Smtp.Rcpt(v_Conn, p_Cc); --設置抄送人END IF;END IF;END IF;-- 創建要發送的郵件內容注意報頭信息和郵件正文之間要空一行v_Msg := 'Date: ' || To_Char(Sysdate, 'dd mon yy hh24:mi:ss') || Utl_Tcp.Crlf ||'From: ' || p_Fromuser || '<' || p_From || '>' || Utl_Tcp.Crlf ||'To: ' || v_Touser1 || Utl_Tcp.Crlf ||'Cc: ' || p_Cc || 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(Convert('Content-Type:text/html;charset=utf-8' ||v_Msg, 'ZHS16GBK'))); --這樣寫標題和內容都能用中文Utl_Smtp.Close_Data(v_Conn); --關閉流Utl_Smtp.Quit(v_Conn); --關閉連接ExceptionWhen Others THENstr_error := Dbms_Utility.Format_Error_Stack || Dbms_Utility.Format_Call_Stack;Dbms_Output.Put_Line(str_error);END;

1、可以參考DVBBS的代碼,建議你找其早期代碼去看。2、一般需要win2003自帶的一個組件或安裝Jmail組件。3、如果你沒有能力對DVBBS的代碼進行分析,那我只能說你功力還不足,嘻嘻。

以上所述是小編給大家帶來的利用Oracle數據庫發送郵件的實例代碼,希望對大家有所幫助,如果大家有任何疑問歡迎給我留言,小編會及時回復大家的,在此也非常感謝大家對突襲網網站的支持!

邏輯備份:是指利用Oracle 提供的導出工具(如Expdp,Export)將數據庫中的數據抽取出來存放到一個二進制文件中。(2)根據數據庫備份時是否關閉數據庫服務器,物理備份分為: 冷備份又稱停機備份,是指在

分兩步做,1.oracle 當表中數據發生變化insert或者update這個需要觸發器的,但是觸發器的作用也無非是數據庫層面的操作,這樣最好觸發添加一條記錄到郵件通知表,這個表加個狀態state=02.用程序輪訓定時掃描這個郵件通知表,周期可以設置為30秒掃描一次,掃描到的記錄,進行郵件發送以及這個表記錄的狀態修改為state=1內容來自www.13333515.buzz請勿采集。

免責聲明 - 關于我們 - 聯系我們 - 廣告聯系 - 友情鏈接 - 幫助中心 - 頻道導航
Copyright © 2017 www.13333515.buzz All Rights Reserved
3排列五开奖结果