主頁(yè) > 知識(shí)庫(kù) > ORACLE 配置郵件服務(wù)器操作示例

ORACLE 配置郵件服務(wù)器操作示例

熱門(mén)標(biāo)簽:地圖標(biāo)注坐標(biāo)圖標(biāo) 手機(jī)地圖標(biāo)注門(mén)店 汽車(chē)4s店百度地圖標(biāo)注店 網(wǎng)貸外呼系統(tǒng)合法嗎 杭州網(wǎng)絡(luò)外呼系統(tǒng)運(yùn)營(yíng)商 電銷(xiāo)套路機(jī)器人 安陽(yáng)企業(yè)電銷(xiāo)機(jī)器人供應(yīng)商 地圖標(biāo)注效果的制作 鶴壁電話機(jī)器人價(jià)格

本文實(shí)例講述了ORACLE 配置郵件服務(wù)器操作。分享給大家供大家參考,具體如下:

在Oracle sql developer中執(zhí)行 必須有Begin END

1 創(chuàng)建 ACL

BEGIN
  dbms_network_acl_admin.create_acl(acl     => 'email.xml',
                   DESCRIPTION => 'Enables network permissions for the e-mail server',
                   principal  => 'C##ESD_MONITOR', --表示賦予哪個(gè)用戶(hù) 必須大寫(xiě)
                   is_grant  => TRUE,
                   PRIVILEGE  => 'resolve',
                   start_date => NULL,
                   end_date  => NULL);
END;

2 賦予權(quán)限

begin
dbms_network_acl_admin.add_privilege(acl    => 'email.xml', --同上x(chóng)ml名稱(chēng)
                     principal => 'C##ESD_MONITOR', --表示賦予哪個(gè)用戶(hù) 必須大寫(xiě)
                     is_grant  => TRUE,
                     privilege => 'connect', --權(quán)限名
                     start_date => null,
                     end_date  => null);
end;

3 設(shè)置端口

begin
 dbms_network_acl_admin.assign_acl (    -- 該段命令意思是允許訪問(wèn)acl名為utl_sendmail.xml下授權(quán)的用戶(hù),使用oracle網(wǎng)絡(luò)訪問(wèn)包,所允許訪問(wèn)的目的主機(jī),及其端口范圍。
  acl    => 'email.xml',
  host    => '*'-- ,       -- ip地址或者域名,填寫(xiě)http://localhost:9000/hello與http://localhost:9000/是會(huì)報(bào)host無(wú)效的
                      -- 且建議使用ip地址或者使用域名,若用localhost,當(dāng)oracle不是安裝在本機(jī)上的情況下,會(huì)出現(xiàn)問(wèn)題
  -- lower_port => 9000,           -- 允許訪問(wèn)的起始端口號(hào)
  -- upper_port => Null           -- 允許訪問(wèn)的截止端口號(hào)
 );
 end;

4 查詢(xún)權(quán)限設(shè)置情況

SELECT acl,
    principal,
    privilege,
    is_grant,
    TO_CHAR(start_date, 'DD-MON-YYYY') AS start_date,
    TO_CHAR(end_date, 'DD-MON-YYYY') AS end_date
 FROM dba_network_acl_privileges;

5 創(chuàng)建郵件發(fā)送存儲(chǔ)過(guò)程

create or replace procedure send_mail(p_recipient VARCHAR2, -- 郵件接收人
           p_subject  VARCHAR2, -- 郵件標(biāo)題
           p_message  VARCHAR2, -- 郵件正文
           p_type   number -- 1文本 2html
           ) as
  --下面四個(gè)變量請(qǐng)根據(jù)實(shí)際郵件服務(wù)器進(jìn)行賦值
  v_mailhost VARCHAR2(30) := 'smtp.qq.com'; --SMTP服務(wù)器地址
  v_user   VARCHAR2(30) := '111@qq.com'; --登錄SMTP服務(wù)器的用戶(hù)名
  v_pass   VARCHAR2(20) := '111'; --登錄SMTP服務(wù)器的密碼 授權(quán)碼
  v_sender  VARCHAR2(50) := '111@qq.com'; --發(fā)送者郵箱,一般與 ps_user 對(duì)應(yīng)
  v_conn UTL_SMTP.connection; --到郵件服務(wù)器的連接
  v_msg varchar2(4000); --郵件內(nèi)容
 BEGIN
  v_conn := UTL_SMTP.open_connection(v_mailhost, 25);
  UTL_SMTP.ehlo(v_conn, v_mailhost); --是用 ehlo() 而不是 helo() 函數(shù)
  --否則會(huì)報(bào):ORA-29279: SMTP 永久性錯(cuò)誤: 503 5.5.2 Send hello first.
  UTL_SMTP.command(v_conn, 'AUTH LOGIN'); -- smtp服務(wù)器登錄校驗(yàn)
  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 || '>'); --設(shè)置發(fā)件人 注:網(wǎng)上很多資料直接寫(xiě)v_sender,這樣寫(xiě)會(huì)報(bào)ORA-29279: SMTP 500 error
  UTL_SMTP.rcpt(v_conn, '' || p_recipient || '>'); --設(shè)置收件人
  UTL_SMTP.open_data(v_conn); --打開(kāi)流
  if p_type = 1 then
   -- 創(chuàng)建要發(fā)送的郵件內(nèi)容 注意報(bào)頭信息和郵件正文之間要空一行
   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 ||
        UTL_TCP.CRLF -- 這前面是報(bào)頭信息
        || p_message; -- 這個(gè)是郵件正文
   UTL_SMTP.write_raw_data(v_conn, UTL_RAW.cast_to_raw(v_msg)); --這樣寫(xiě)標(biāo)題和內(nèi)容都能用中文
  elsif p_type = 2 then
   UTL_SMTP.write_data(v_conn,
             'From:' || '' || v_sender || '>' || utl_tcp.CRLF);
   UTL_SMTP.write_data(v_conn,
             'To:' || '' || p_recipient || '>' ||
             utl_tcp.crlf);
   UTL_SMTP.write_raw_data(v_conn,
               UTL_RAW.cast_to_raw(convert('Subject:' ||
                             p_subject ||
                             utl_tcp.CRLF,
                             'ZHS16GBK')));
   UTL_SMTP.write_raw_data(v_conn,
               UTL_RAW.cast_to_raw(convert('Content-Type:text/html;charset=GBK' ||
                             utl_tcp.CRLF,
                             'ZHS16GBK')));
   UTL_SMTP.write_data(v_conn, utl_tcp.CRLF);
   UTL_SMTP.write_raw_data(v_conn,
               UTL_RAW.cast_to_raw(convert(p_message,
                             'ZHS16GBK'))); --這樣寫(xiě)標(biāo)題和內(nèi)容都能用中文
  end if;
  UTL_SMTP.close_data(v_conn); --關(guān)閉流
  UTL_SMTP.quit(v_conn); --關(guān)閉連接
 EXCEPTION
  WHEN OTHERS THEN
   DBMS_OUTPUT.put_line(DBMS_UTILITY.format_error_stack);
   DBMS_OUTPUT.put_line(DBMS_UTILITY.format_call_stack);
 END;

更多關(guān)于Oracle相關(guān)內(nèi)容感興趣的讀者可查看本站專(zhuān)題:《Oracle常用函數(shù)匯總》、《Oracle日期與時(shí)間操作技巧總結(jié)》及《php+Oracle數(shù)據(jù)庫(kù)程序設(shè)計(jì)技巧總結(jié)》

希望本文所述對(duì)大家Oracle數(shù)據(jù)庫(kù)程序設(shè)計(jì)有所幫助。

您可能感興趣的文章:
  • 利用Oracle數(shù)據(jù)庫(kù)發(fā)送郵件的實(shí)例代碼
  • Oracle 存儲(chǔ)過(guò)程發(fā)送郵件實(shí)例學(xué)習(xí)
  • oracle 發(fā)送郵件 實(shí)現(xiàn)方法
  • pl/sql連接遠(yuǎn)程oracle服務(wù)器的配置教程
  • oracle數(shù)據(jù)庫(kù)tns配置方法詳解
  • Oracle 11g 客戶(hù)端的安裝和配置的圖文教程
  • Oracle客戶(hù)端的安裝與遠(yuǎn)程連接配置方法分享
  • Oracle Database 10g數(shù)據(jù)庫(kù)安裝及配置教程
  • Oracle 配置連接遠(yuǎn)程數(shù)據(jù)庫(kù)的教程
  • Oracle 10g安裝配置方法圖文教程

標(biāo)簽:河源 柳州 焦作 酒泉 泰安 南陽(yáng) 銀川 梧州

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ORACLE 配置郵件服務(wù)器操作示例》,本文關(guān)鍵詞  ORACLE,配置,郵件,服務(wù)器,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《ORACLE 配置郵件服務(wù)器操作示例》相關(guān)的同類(lèi)信息!
  • 本頁(yè)收集關(guān)于ORACLE 配置郵件服務(wù)器操作示例的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章