發(fā)送郵件的存儲(chǔ)過(guò)程?

CREATE?OR?REPLACE?PROCEDURE?Up_send_mail(subject?in?varchar2(500),mail_content?in?varchar2(2000),re_out?out?number(2)) AS /********************************* 編寫(xiě)：枯葉 作用：發(fā)送郵件 日期：2013-03-13 返回碼：0?=?發(fā)送成功1?=?發(fā)送失敗 *********************************/smtp_conn??utl_smtp.connection;--定義發(fā)郵件用戶名user_name??varchar2(50)?:=?utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw('mailname@163.com')));--定義發(fā)郵件的密碼user_paswd?varchar2(50)?:=?utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw('mailpass')));--定義郵件表頭lv_mail_header?varchar2(200):='From:mailname@163.com'||utl_tcp.CRLF||'To:tomail@qq.com'||utl_tcp.CRLF||'Subject:'||subject||utl_tcp.CRLF;--定義郵件正文??????????????????????????????lv_mail_content?varchar2(2000):=utl_tcp.CRLF||mail_content?;???????????????????????????? beginre_out?:=0;smtp_conn?:=?utl_smtp.open_connection('smtp.163.com',25);utl_smtp.helo(smtp_conn,'smtp.163.com');utl_smtp.command(smtp_conn,'AUTH?LOGIN');utl_smtp.command(smtp_conn,user_name);utl_smtp.command(smtp_conn,user_paswd);utl_smtp.mail(smtp_conn,'<mailname@163.com>');utl_smtp.rcpt(smtp_conn,'<tomail@qq.com>');utl_smtp.open_data(smtp_conn);utl_smtp.write_data(smtp_conn,lv_mail_header);utl_smtp.write_raw_data(smtp_conn,utl_raw.cast_to_raw(lv_mail_content));utl_smtp.close_data(smtp_conn);utl_smtp.quit(smtp_conn); exceptionwhen?others?then?re_out?:=?1;utl_smtp.quit(smtp_conn);RETURN;end;

注：

mailname@163.com?改成發(fā)送郵箱的地址 mailpass?????????改成發(fā)送郵箱的密碼 tomail@qq.com????改成接收郵箱的地址

調(diào)用存儲(chǔ)過(guò)程

DECLAREsubject_in?varchar(500)?:=?'Oracle?Tablespace?mail';mail_content_in?varchar(2000):='這是一個(gè)測(cè)試郵件，不知道是做什么用的！';re_out_out?number(2); BEGINUp_send_mail(subject_in,mail_content_in,re_out_out?);IF?re_out_out=0THEN?DBMS_OUTPUT.put_line('發(fā)送成功');ELSEDBMS_OUTPUT.put_line('發(fā)送失敗');?END?IF; END;

轉(zhuǎn)載于:https://blog.51cto.com/mydbs/1746197

新人創(chuàng)作打卡挑戰(zhàn)賽發(fā)博客就能抽獎(jiǎng)！定制產(chǎn)品紅包拿不停！

總結(jié)

以上是生活随笔為你收集整理的Oracle发送邮件存储过程的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。