Oracle send Email

最新推荐文章于 2021-04-07 16:31:05 发布
最新推荐文章于 2021-04-07 16:31:05 发布
阅读量1.9k 收藏 1
点赞数
分类专栏： 软件开发 文章标签： oracle file exception 邮件服务器 integer list

------------------------------------------------------------------------------------------------------------
--***|****************|*************************************************************************************
--***|                |*************************************************************************************
--***|    参数说明：  |*************************************************************************************
--***|                |*************************************************************************************
--***|****************|*************************************************************************************
------------------------------------------------------------------------------------------------------------
--***|  P_TXT      : 邮件正文                                                            |
-----|-----------------------------------------------------------------------------------|------------------
--***|  P_SUB      : 邮件标题                                                            |
-----|-----------------------------------------------------------------------------------|------------------
--***|  P_SENDOR   :  发送人邮件地址                                                     |
-----|-----------------------------------------------------------------------------------|------------------
--***|  P_RECEIVER : 接收地址，可以同时发送到多个地址上，地址之间用","或者";"隔开        |
-----|-----------------------------------------------------------------------------------|------------------
--***|  P_SERVER   : 邮件服务器地址，可以是域名或者IP                                    |
-----|-----------------------------------------------------------------------------------|------------------
--***|  P_PORT     : 邮件服务器端口                                                      |
-----|-----------------------------------------------------------------------------------|------------------
--***|  P_NEED_SMTP: 是否需要smtp认证，0表示不需要，1表示需要                            |
-----|-----------------------------------------------------------------------------------|------------------
--***|  P_USER     : smtp验证需要的用户名                                                |
-----|-----------------------------------------------------------------------------------|------------------
--***|  P_PASS     : smtp验证需要的密码                                                  |
-----|-----------------------------------------------------------------------------------|------------------
--***|  P_FILENAME : 附件名称，必须包含完整的路径，如"d:tempa.txt"。                     |
--***|               可以有多个附件，附件名称只见用逗号或者分号分隔                      |
-----|-----------------------------------------------------------------------------------|------------------
--***|  P_ENCODE   : 附件编码转换格式，其中 p_encode='bit 7' 表示文本类型附件  |
--***|               p_encode='base64' 表示二进制类型附件                      |
------------------------------------------------------------------------------------------------------------                    
--***|***********|******************************************************************************************
--***|           |******************************************************************************************
--***|   注意：  |******************************************************************************************
--***|           |******************************************************************************************
------------------------------------------------------------------------------------------------------------
--***|                                               |
--***|     1、对于文本类型的附件，不能用base64的方式发送，否则出错                 |
--***|                                                                             |
--***|     2、对于多个附件只能用同一种格式发送                                     |
--***|                                                                             |
--**********************************************************************************************************
------------------------------------------------------------------------------------------------------------

CREATE OR REPLACE PROCEDURE PROCSENDEMAIL(P_TXT       VARCHAR2,
                                          P_SUB       VARCHAR2,
                                          P_SENDOR    VARCHAR2,
                                          P_RECEIVER  VARCHAR2,
                                          P_SERVER    VARCHAR2,
                                          P_PORT      NUMBER DEFAULT 25,
                                          P_NEED_SMTP INT DEFAULT 0,
                                          P_USER      VARCHAR2 DEFAULT NULL,
                                          P_PASS      VARCHAR2 DEFAULT NULL,
                                          P_FILENAME  VARCHAR2 DEFAULT NULL,
                                          P_ENCODE    VARCHAR2 DEFAULT 'bit 7')
  AUTHID CURRENT_USER IS
 
  L_CRLF VARCHAR2(2) := UTL_TCP.CRLF;
  L_SENDORADDRESS VARCHAR2(4000);
  L_SPLITE        VARCHAR2(10) := '++';
  BOUNDARY            CONSTANT VARCHAR2(256) := '-----BYSUK';
  FIRST_BOUNDARY      CONSTANT VARCHAR2(256) := '--' || BOUNDARY || L_CRLF;
  LAST_BOUNDARY       CONSTANT VARCHAR2(256) := '--' || BOUNDARY || '--' ||
                                                L_CRLF;
  MULTIPART_MIME_TYPE CONSTANT VARCHAR2(256) := 'multipart/mixed; boundary="' ||
                                                BOUNDARY || '"';
  --|----------------------------------------|--
  --| 以下部分是发送大二进制附件时用到的变量 |--
  --|----------------------------------------|--
  L_FIL                 BFILE;
  L_FILE_LEN            NUMBER;
  L_MODULO              NUMBER;
  L_PIECES              NUMBER;
  L_FILE_HANDLE         UTL_FILE.FILE_TYPE;
  L_AMT                 BINARY_INTEGER := 672 * 3; --/* ensures proper format;  2016 */
  L_FILEPOS             PLS_INTEGER := 1; --/* pointer for the file */
  L_CHUNKS              NUMBER;
  L_BUF                 RAW(2100);
  L_DATA                RAW(2100);
  L_MAX_LINE_WIDTH      NUMBER := 54;
  L_DIRECTORY_BASE_NAME VARCHAR2(100) := 'DIR_FOR_SEND_MAIL';
  L_LINE                VARCHAR2(1000);
  L_MESG                VARCHAR2(32767);
  --|----------------------------------------|--
  --| 以上部分是发送大二进制附件时用到的变量 |--
  --|----------------------------------------|--
 

  TYPE ADDRESS_LIST IS TABLE OF VARCHAR2(100) INDEX BY BINARY_INTEGER;
  MY_ADDRESS_LIST ADDRESS_LIST;
  TYPE ACCT_LIST IS TABLE OF VARCHAR2(100) INDEX BY BINARY_INTEGER;
  MY_ACCT_LIST ACCT_LIST;


  -------------------------------------返回附件源文件所在目录或者名称--------------------------------------
  FUNCTION GET_FILE(P_FILE VARCHAR2,
                    P_GET  INT) RETURN VARCHAR2 IS
    --|-------------------------|--
   --| p_get=1 表示返回目录    |--
   --| p_get=2 表示返回文件名  |--
   --|-------------------------|--                                
    L_FILE VARCHAR2(1000);      
  BEGIN
    IF INSTR(P_FILE, '') > 0 THEN
      --windows
      IF P_GET = 1 THEN
        L_FILE := SUBSTR(P_FILE, 1, INSTR(P_FILE, '', -1) - 1);
      ELSIF P_GET = 2 THEN
        L_FILE := SUBSTR(P_FILE, - (LENGTH(P_FILE) - INSTR(P_FILE, '', -1)));
      END IF;
    ELSIF INSTR(P_FILE, '/') > 0 THEN
      --linux/unix
      IF P_GET = 1 THEN
        L_FILE := SUBSTR(P_FILE, 1, INSTR(P_FILE, '/', -1) - 1);
      ELSIF P_GET = 2 THEN
        L_FILE := SUBSTR(P_FILE, - (LENGTH(P_FILE) - INSTR(P_FILE, '/', -1)));
      END IF;
    END IF;
    RETURN L_FILE;
  END;
 
  ---------------------------------------------删除directory------------------------------------
  PROCEDURE DROP_DIRECTORY(P_DIRECTORY_NAME VARCHAR2) IS
  BEGIN
    EXECUTE IMMEDIATE 'drop directory ' || P_DIRECTORY_NAME;
  EXCEPTION
    WHEN OTHERS THEN
      NULL;
  END;
 
  --------------------------------------------------创建directory-----------------------------------------
  PROCEDURE CREATE_DIRECTORY(P_DIRECTORY_NAME VARCHAR2,
                             P_DIR            VARCHAR2) IS
  BEGIN
    EXECUTE IMMEDIATE 'create directory ' || P_DIRECTORY_NAME || ' as ''' ||
                      P_DIR || '''';
    EXECUTE IMMEDIATE 'grant read,write on directory ' || P_DIRECTORY_NAME ||
                      ' to public';
    EXCEPTION
    WHEN OTHERS THEN
      RAISE;
  END;
 
  --------------------------------------------分割邮件地址或者附件地址-----------------------------------
  PROCEDURE P_SPLITE_STR(P_STR         VARCHAR2,
                         P_SPLITE_FLAG INT DEFAULT 1) IS
    L_ADDR VARCHAR2(254) := '';
    L_LEN  INT;
    L_STR  VARCHAR2(4000);
    J      INT := 0; --表示邮件地址或者附件的个数
  BEGIN
    --处理接收邮件地址列表，包括去空格、将;转换为,等
    L_STR := TRIM(RTRIM(REPLACE(REPLACE(P_STR, ';', ','), ' ', ''), ','));
    L_LEN := LENGTH(L_STR);
    FOR I IN 1 .. L_LEN LOOP
      IF SUBSTR(L_STR, I, 1) <> &apos;,&apos; THEN
        L_ADDR := L_ADDR || SUBSTR(L_STR, I, 1);
      ELSE
        J := J + 1;
        IF P_SPLITE_FLAG = 1 THEN  --表示处理邮件地址      
          L_ADDR := &apos;<&apos; || L_ADDR || &apos;>&apos;; --前后需要加上&apos;<>&apos;，否则很多邮箱将不能发送邮件
          --调用邮件发送过程
          MY_ADDRESS_LIST(J) := L_ADDR;
        ELSIF P_SPLITE_FLAG = 2 THEN  --表示处理附件名称
          MY_ACCT_LIST(J) := L_ADDR;
        END IF;
        L_ADDR := &apos;&apos;;
      END IF;
      IF I = L_LEN THEN
        J := J + 1;
        IF P_SPLITE_FLAG = 1 THEN
          --调用邮件发送过程
          L_ADDR := &apos;<&apos; || L_ADDR || &apos;>&apos;;
          MY_ADDRESS_LIST(J) := L_ADDR;
        ELSIF P_SPLITE_FLAG = 2 THEN
          MY_ACCT_LIST(J) := L_ADDR;
        END IF;
      END IF;
    END LOOP;
  END;
 
  ------------------------------------------------写邮件头和邮件内容----------------------------------------
  PROCEDURE WRITE_DATA(P_CONN   IN OUT NOCOPY UTL_SMTP.CONNECTION,
                       P_NAME   IN VARCHAR2,
                       P_VALUE  IN VARCHAR2,
                       P_SPLITE VARCHAR2 DEFAULT &apos;:&apos;,
                       P_CRLF   VARCHAR2 DEFAULT L_CRLF) IS
  BEGIN
    --utl_raw.cast_to_raw 对解决中文乱码问题很重要
    UTL_SMTP.WRITE_RAW_DATA(P_CONN, UTL_RAW.CAST_TO_RAW(CONVERT(P_NAME ||
                                                         P_SPLITE ||
                                                         P_VALUE ||
                                                         P_CRLF, &apos;ZHS16GBK&apos;)));
  END;
  ----------------------------------------写MIME邮件尾部---------------------------------------------------

  PROCEDURE END_BOUNDARY( CONN IN OUT NOCOPY UTL_SMTP.CONNECTION,
                         LAST IN BOOLEAN DEFAULT FALSE) IS
  BEGIN
    UTL_SMTP.WRITE_DATA( CONN , UTL_TCP.CRLF);
    IF (LAST) THEN
      UTL_SMTP.WRITE_DATA( CONN , LAST_BOUNDARY);
    END IF;
  END;

  ----------------------------------------------发送附件---------------------------------------------------

  PROCEDURE ATTACHMENT(CONN         IN OUT NOCOPY UTL_SMTP.CONNECTION,
                       MIME_TYPE    IN VARCHAR2 DEFAULT &apos;text/plain&apos;,
                       INLINE       IN BOOLEAN DEFAULT TRUE,
                       FILENAME     IN VARCHAR2 DEFAULT &apos;t.txt&apos;,
                       TRANSFER_ENC IN VARCHAR2 DEFAULT &apos;7 bit&apos;,
                       DT_NAME      IN VARCHAR2 DEFAULT &apos;0&apos;) IS
 
    L_FILENAME VARCHAR2(1000);
  BEGIN
    --写附件头
    UTL_SMTP.WRITE_DATA(CONN, FIRST_BOUNDARY);
    --设置附件格式
    WRITE_DATA(CONN, &apos;Content-Type&apos;, MIME_TYPE);
    --如果文件名称非空，表示有附件
    DROP_DIRECTORY(DT_NAME);
    --创建directory
    CREATE_DIRECTORY(DT_NAME, GET_FILE(FILENAME, 1));
    --得到附件文件名称
    L_FILENAME := GET_FILE(FILENAME, 2);
    IF (INLINE) THEN
      WRITE_DATA(CONN, &apos;Content-Disposition&apos;, &apos;inline; filename="&apos; ||
                  L_FILENAME || &apos;"&apos;);
    ELSE
      WRITE_DATA(CONN, &apos;Content-Disposition&apos;, &apos;attachment; filename="&apos; ||
                  L_FILENAME || &apos;"&apos;);
    END IF;

    --设置附件的转换格式
    IF (TRANSFER_ENC IS NOT NULL) THEN
      WRITE_DATA(CONN, &apos;Content-Transfer-Encoding&apos;, TRANSFER_ENC);
    END IF;
 
    UTL_SMTP.WRITE_DATA(CONN, UTL_TCP.CRLF);
 
    --begin 贴附件内容
    IF TRANSFER_ENC = &apos;bit 7&apos; THEN
      --如果是文本类型的附件
      BEGIN
        L_FILE_HANDLE := UTL_FILE.FOPEN(DT_NAME, L_FILENAME, &apos;r&apos;); --打开文件
        --把附件分成多份，这样可以发送超过32K的附件
        LOOP
          UTL_FILE.GET_LINE(L_FILE_HANDLE, L_LINE);
          L_MESG := L_LINE || L_CRLF;
          WRITE_DATA(CONN, &apos;&apos;, L_MESG, &apos;&apos;, &apos;&apos;);
        END LOOP;
        UTL_FILE.FCLOSE(L_FILE_HANDLE);
        END_BOUNDARY(CONN);
      EXCEPTION
        WHEN OTHERS THEN
          UTL_FILE.FCLOSE(L_FILE_HANDLE);
          END_BOUNDARY(CONN);
          NULL;
      END; --结束文本类型附件的处理
   
    ELSIF TRANSFER_ENC = &apos;base64&apos; THEN
      --如果是二进制类型的附件
      BEGIN
        --把附件分成多份，这样可以发送超过32K的附件
        L_FILEPOS  := 1;  --重置offset，在发送多个附件时，必须重置
        L_FIL      := BFILENAME(DT_NAME, L_FILENAME);
        L_FILE_LEN := DBMS_LOB.GETLENGTH(L_FIL);
        L_MODULO   := MOD(L_FILE_LEN, L_AMT);
        L_PIECES   := TRUNC(L_FILE_LEN / L_AMT);
        IF (L_MODULO <> 0) THEN
          L_PIECES := L_PIECES + 1;
        END IF;
        DBMS_LOB.FILEOPEN(L_FIL, DBMS_LOB.FILE_READONLY);
        DBMS_LOB.READ(L_FIL, L_AMT, L_FILEPOS, L_BUF);
        L_DATA := NULL;
        FOR I IN 1 .. L_PIECES LOOP
          L_FILEPOS  := I * L_AMT + 1;
          L_FILE_LEN := L_FILE_LEN - L_AMT;
          L_DATA     := UTL_RAW.CONCAT(L_DATA, L_BUF);
          L_CHUNKS   := TRUNC(UTL_RAW.LENGTH(L_DATA) / L_MAX_LINE_WIDTH);
          IF (I <> L_PIECES) THEN
            L_CHUNKS := L_CHUNKS - 1;
          END IF;
          UTL_SMTP.WRITE_RAW_DATA(CONN, UTL_ENCODE.BASE64_ENCODE(L_DATA));
          L_DATA := NULL;
          IF (L_FILE_LEN < L_AMT AND L_FILE_LEN > 0) THEN
            L_AMT := L_FILE_LEN;
          END IF;
          DBMS_LOB.READ(L_FIL, L_AMT, L_FILEPOS, L_BUF);
        END LOOP;
        DBMS_LOB.FILECLOSE(L_FIL);
        END_BOUNDARY(CONN);
      EXCEPTION
        WHEN OTHERS THEN
          DBMS_LOB.FILECLOSE(L_FIL);
          END_BOUNDARY(CONN);
          RAISE;
      END; --结束处理二进制附件
   
    END IF; --结束处理附件内容
    DROP_DIRECTORY(DT_NAME);
  END; --结束过程ATTACHMENT

  ---------------------------------------------真正发送邮件的过程-----------------------------------------
  PROCEDURE P_EMAIL(P_SENDORADDRESS2   VARCHAR2, --发送地址
                    P_RECEIVERADDRESS2 VARCHAR2) --接受地址
   IS
    L_CONN UTL_SMTP.CONNECTION; --定义连接
  BEGIN
    --初始化邮件服务器信息，连接邮件服务器--
    L_CONN := UTL_SMTP.OPEN_CONNECTION(P_SERVER, P_PORT);
    UTL_SMTP.HELO(L_CONN, P_SERVER);
    -- smtp服务器登录校验 --
    IF P_NEED_SMTP = 1 THEN
      UTL_SMTP.COMMAND(L_CONN, &apos;AUTH LOGIN&apos;, &apos;&apos;);
      UTL_SMTP.COMMAND(L_CONN, UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW(P_USER))));
      UTL_SMTP.COMMAND(L_CONN, UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW(P_PASS))));
    END IF;
 
    --设置发送地址和接收地址
    UTL_SMTP.MAIL(L_CONN, P_SENDORADDRESS2);
    UTL_SMTP.RCPT(L_CONN, P_RECEIVERADDRESS2);
 
    --设置邮件头
    UTL_SMTP.OPEN_DATA(L_CONN);
 
    WRITE_DATA(L_CONN, &apos;Date&apos;, TO_CHAR(SYSDATE, &apos;yyyy-mm-dd hh24:mi:ss&apos;));
    --设置发送人
    WRITE_DATA(L_CONN, &apos;From&apos;, P_SENDOR);
    --设置接收人
    WRITE_DATA(L_CONN, &apos;To&apos;, P_RECEIVER);
    --设置邮件主题
    WRITE_DATA(L_CONN, &apos;Subject&apos;, P_SUB);
 
    WRITE_DATA(L_CONN, &apos;Content-Type&apos;, MULTIPART_MIME_TYPE);
    UTL_SMTP.WRITE_DATA(L_CONN, UTL_TCP.CRLF);
    UTL_SMTP.WRITE_DATA(L_CONN, FIRST_BOUNDARY);
    WRITE_DATA(L_CONN, &apos;Content-Type&apos;, &apos;text/plain;charset=gb2312&apos;);
    --单独空一行，否则，正文内容不显示
    UTL_SMTP.WRITE_DATA(L_CONN, UTL_TCP.CRLF);
   
    -- 设置邮件正文
    -- 把分隔符还原成chr(10)。这主要是为了shell中调用该过程，如果有多行，则先把多行的内容合并成一行，并用 l_splite分隔
    -- 然后用 l_crlf替换chr(10)。这一步是必须的，否则将不能发送邮件正文有多行的邮件
  
    WRITE_DATA(L_CONN, &apos;&apos;, REPLACE(REPLACE(P_TXT, L_SPLITE, CHR(10)), CHR(10), L_CRLF), &apos;&apos;, &apos;&apos;);
    END_BOUNDARY(L_CONN);
 
    --如果文件名称不为空，则发送附件
    IF (P_FILENAME IS NOT NULL) THEN
      --根据逗号或者分号拆分附件地址
      P_SPLITE_STR(P_FILENAME, 2);
      --循环发送附件(在同一个邮件中)
      FOR K IN 1 .. MY_ACCT_LIST.COUNT LOOP
        ATTACHMENT(CONN => L_CONN, FILENAME => MY_ACCT_LIST(K), TRANSFER_ENC => P_ENCODE, DT_NAME => L_DIRECTORY_BASE_NAME ||
                               TO_CHAR(K));
      END LOOP;
    END IF;
 
    --关闭数据写入
    UTL_SMTP.CLOSE_DATA(L_CONN);
    --关闭连接
    UTL_SMTP.QUIT(L_CONN);
 
    --异常处理
  EXCEPTION
    WHEN OTHERS THEN
      NULL;
      RAISE; 
  END;
 ---------------------------------------------------主过程--------------------------------------------------
BEGIN
  L_SENDORADDRESS := &apos;<&apos; || P_SENDOR || &apos;>&apos;;
  P_SPLITE_STR(P_RECEIVER); --处理邮件地址
  FOR K IN 1 .. MY_ADDRESS_LIST.COUNT LOOP
    P_EMAIL(L_SENDORADDRESS, MY_ADDRESS_LIST(K));
  END LOOP;
  --处理邮件地址，根据逗号分割邮件

EXCEPTION
  WHEN OTHERS THEN
    RAISE;
END;

 

 

hiyu2218
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Oracle发送邮件
tttzzzqqq2018的博客
08-12 1229
【代码】Oracle发送邮件。
oracle邮件发送,Oracle邮件发送
weixin_28829173的博客
04-02 1005
10G之前，如果要从oracle中发送email，必须借助oracle的utl_smtp和utl_tcp功能包，自己包装一个email发送程序，然后使用。自从10G后，这个流程将变得非常简单。因为oracle给我们提供了一个utl_mail包，我们可以直接调用发送email。其实这个包底层也是调用了utl_smtp、utl_tcp的相关api。 不过utl_mail只能用于无安全验证的smtp服务...
Oracle 发送邮件
浪缘的专栏
12-29 9783
调用执行代码 begin         procsendemail('hello',                 '新的邮件1',                 'jhtchina@163.com',                 'jhtchina@163.com',                 'smtp.163.com',
通过Oracle发送Email
weixin_33916256的博客
08-06 253
本篇是通过Oracle10g发送Email实例，该Procedure支持中文邮件、HTML代码、多收件人。 在Procedure中p_receiver为收件人地址，多收件人以“,”（英文逗号）分割， p_sub为邮件标题，p_txt为邮件内容（支持HTML）。代码如下： create or replace procedure bsd_sendemail (p_receiver va...
ORACLE SEND EMAIL
12-27 88
create or replace procedure bsd_sendemail (p_receiver varchar2,p_sub varchar2,p_txt varchar2) is p_user varchar2(30) := ''; p_pass varchar2(30) := ''; p_sendor varchar2(200) := 'master@163...
Oracle send mail 套件utl_smtp
不积跬步无以至千里
12-01 962
Oracle 提供了一个SendMail的套件: utl_smtp. 我们可以利用utl_smtp来在PL/SQL总发送邮件。 utl_smtp相关函数以及用法如下所示。 -- Created on 12/1/2017 by liuleigang declare mailhost VARCHAR2(50) := 'XXX.XXX.com'; mail_conn utl_sm
oracle10g发送email示例
01-19
在Procedure中p_receiver为收件人地址，多收件人以“,”（英文逗号）分割， p_sub为邮件标题，p_txt为邮件内容（支持HTML）。代码如下： ... p_sendor varchar2(20) := ‘Gnie’; p_server varchar2(20) :=
How to send an email from oracle workflow process using an AdHocRole?
hpzxx1988的专栏
08-07 8959
If you have any problems and suggestions you can send email to my email address:zhaochengxiang0@gmail.com.i want you!! (+_+) 1.检测Workflow Notification Mailer配置是否可以发邮件。 step1：Workflow Administrator W
ORACLE 配置邮件服务器操作示例
09-08
CREATE OR REPLACE PROCEDURE send_mail( p_recipient VARCHAR2, -- 邮件接收人 p_subject VARCHAR2, -- 邮件标题 p_message VARCHAR2, -- 邮件正文 p_type NUMBER -- 1 文本 2 HTML ) AS v_mailhost VARCHAR...
用oracle发email
cinashu1164的博客
06-17 757
以前按照别人写的试过用oracle发mail，忘得差不多了，把当时的笔记贴上吧，用的时候再研究。 第一步： CREATE PACKAGECREATE OR REPLACE PACKAGE demo_mail IS--------...
Oracle P/L SQL实现发送Email、浏览网页等网络操作功能
02-14
Oracle P/L SQL实现发送Email、浏览网页等网络操作功能 Oracle P/L SQL实现发送Email、浏览网页等网络操作功能，以下是此过程包的头部，包体经常打包处理plb，感兴趣用户可以下载下来。 --.使用聚合函数实现 多行合并 Drop Type Strcat_type; Drop Function f_StrCat; Drop Package UTL_INet; Variable ls_ObjectName VarChar2(128); Begin Select Sequence_Name Into :ls_ObjectName From User_Sequences Where Sequence_Name = 'SYS_RAND_ID'; DBMS_Output.Put_Line( :ls_ObjectName ); Exception When No_Data_Found Then Execute Immediate 'Create Sequence SYS_RAND_ID minvalue 1 maxValue 99999999999999999 Start With 1 increment by 1 cache 5 cycle order'; End; / --1、创建类型 Create Or Replace Type Strcat_type As Object ( cat_string varchar2(4000), Static Function ODCIAggregateInitialize(cs_ctx In Out strcat_type) Return Number, Member Function ODCIAggregateIterate(self In Out strcat_type,value in varchar2) Return Number, Member Function ODCIAggregateMerge(self In Out strcat_type,ctx2 In Out strcat_type) Return Number, Member Function ODCIAggregateTerminate(self In Out strcat_type,ReturnValue Out varchar2,flags in Number) Return Number ); / --2. 创建类型体 Create Or Replace Type Body Strcat_type Is Static Function ODCIAggregateInitialize( cs_ctx In Out strcat_type )Return Number is Begin cs_ctx := strcat_type( Null ); Return ODCIConst.Success; End; Member Function ODCIAggregateIterate( self In Out strcat_type, value In varchar2 ) Return Number is Begin if self.cat_string is Null or Instr( self.cat_string, value ) = 0 Then self.cat_string := self.cat_string || ','|| value; End if; Return ODCIConst.Success; End; Member Function ODCIAggregateTerminate( self In Out strcat_type, ReturnValue Out varchar2, flags In Number) Return Number is Begin ReturnValue := ltrim(rtrim( self.cat_string,','),',' ); Return ODCIConst.Success; End; Member Function ODCIAggregateMerge( self In Out strcat_type, ctx2 In Out strcat_type) Return Number is Begin if self.cat_string is Null or Instr( self.cat_string, ctx2.cat_string ) = 0 Then self.cat_string := self.cat_string || ',' || ctx2.cat_string; End if; Return ODCIConst.Success; End; End; / --3.创建函数: 使用聚合函数实现 多行合并 Create or Replace Function f_StrCat( as_input Varchar2 ) Return Varchar2 PARALLEL_ENABLE AGGREGATE USING strcat_type; / Grant Execute on f_StrCat To Public; --End of 使用聚合函数实现 多行合并 Create Or Replace Package UTL_INet AS Type VarChar_Type is Table of VarChar2(400) Index By Binary_Integer; Type Number_Type is Table of Number(12,4) Index By Binary_Integer; Type DynamicCursor is ref Cursor; --动态游标 --Purpose : 获得汉字拼音编码 Type ut_PYIndex_191_List is Varray( 191 ) OF Number; Type ut_PYIndex_List is Varray( 10 ) OF ut_PYIndex_191_List; is_OracleDirectory Constant VarChar2(20) := 'ATTACH_DIR'; --内部附件生成目录（Oracle的目录） --Clob叠加比较慢，先用VarChar2叠加到4000个字符后才叠加到Clob字段 --UTL_INet.p_ClobCAT( Procedure p_ClobCAT( ac_HTMLText in Out Clob, as_CatText in Out VarChar2, as_Str in VarChar2 Default Null ); --字符串根据特定分隔符分来 --Select UTL_INet.f_SplitString( 'A,B,C', xx, ',' ) From dual; Function f_SplitString( as_SourStr in out Clob, --输入字符串A,B,C as_Separator in VarChar2 Default '/' --分拆依据的分隔符, )Return VarChar2; --分拆结果A --将Clob内容写入物理文件 --Exec UTL_INet.p_PutClob2File( as_FileName => 'aa.sql', ac_Text => 'test sql' ); Procedure p_PutClob2File( as_SubDir in VarChar2, --目录名 as_FileName in VarChar2, --文件名 ac_Text in Clob, --文件内容 as_Overwrite in VarChar default 'Y', --标志位：Y:覆盖文件内容，N:追加 as_OraVersion in VarChar default 'N' --标志位：Y:写入Oracle版本信息 ); --序号自动递增计算 --e.g.: 输入：HLXU99349021，返回：HLXU99349022 --范例： Select UTL_INet.f_AutoNum( 'HLXU99349021' ), UTL_INet.f_AutoNum( 'ABA', -1 ), UTL_INet.f_AutoNum( 'ABZ' ) from Dual; Function f_AutoNum( as_OldNum in VarChar2, --原字符串 ai_Step in Number Default 1, --步长，默认是递增加1， ai_DigitXXX in Number Default Null --累计序号位数 XXX )Return VarChar2; --字符串加解密，返回一串32位长的字符串 --Select UTL_INet.f_MD5( 'TestPassword' ) From Dual; Function f_MD5( as_SourceStr in Varchar2 --需要加密的字符串 ) Return Varchar2; --将Email地址去头去尾，剩下最简单的Email地址，如"TSI Customer Service" <cs@csdn.com>变成cs@csdn.com Function f_GetNakedEmailAddr( as_DisplayEmail In VarChar2, as_Including in Char Default 'N' --Y: 返回<cs@csdn.com> )Return VarChar2; --测试发送Email的邮箱是否正确 Function f_TestEmailAccount( ac_Connection out Nocopy UTL_SMTP.Connection, as_SMTPHost in VarChar2, --邮件服务器 mail.csdn.com ai_SMTPPort in PLS_Integer Default 25, --邮件服务器端口 as_SMTPAuth in VarChar2 Default 'Y', --发送密码验证 as_Username in VarChar2 Default Null, --邮件用户 as_Password in VarChar2 Default Null, --邮件口令 as_WalletPath in VarChar2 Default Null, as_WalletPwd in VarChar2 Default Null )Return Boolean; ------------------------------------------------ 写邮件头和邮件内容------------------------- Procedure p_WriteRawData( ac_Conn in Out Nocopy UTL_SMTP.Connection, as_Partname in VarChar2, as_Value in VarChar2, as_Splite in VarChar2 Default ':', as_CRLF in VarChar2 Default UTL_TCP.CRLF ); ----------------------------------------------发送附件------------------------------------- Procedure p_MailAttachment( ac_Conn in Out Nocopy UTL_SMTP.Connection, as_Filename in VarChar2, as_Boundary in VarChar2, as_Encode in VarChar2 Default 'base64', as_MimeType in VarChar2 Default 'text/plain', as_ContentID in VarChar2 Default Null, -- ab_Inline in Boolean Default False --True将文本内容直接在邮件内容显示出来，并出现在附件中，False不显示只出现在附件中 ); -----------------自动签名的生成，签名生成显示后还出现此签名文件为附件，尚未解决------------------------------- Procedure p_GetMailSignature( ac_Conn in Out Nocopy UTL_SMTP.Connection, as_Boundary in VarChar2, as_Encode in VarChar2 Default 'base64', as_SignatureLogo in VarChar2 Default Null, as_SignatureText in VarChar2 Default Null ); --发送Email前必须将ewallet.p12拷贝到C:\OracleAttachDir目录 --发送电子邮件 --Exec UTL_INet.p_SendEmail( 'csdn@gmail.com', 'Test 主题Subject', 'Mail body(邮件内容)' ); Procedure p_SendEmail( as_Sender in VarChar2, as_Recipient in VarChar2, as_CC in VarChar2 Default Null, as_BCC in VarChar2 Default Null, as_Subject in VarChar2, ac_Message in Clob, as_AttachLists in VarChar2 Default Null, --多个用逗号，分开 as_SMTPHost in VarChar2, --邮件服务器 ai_SMTPPort in PLS_Integer Default 25, --邮件服务器端口 as_SMTPAuth in VarChar2 Default 'Y', --发送密码验证 as_WalletPath in VarChar2 Default Null, as_WalletPwd in VarChar2 Default Null, as_Username in VarChar2 Default Null, as_Password in VarChar2 Default Null, as_RunResult out VarChar2, --返回信息，OK成功，其他返回错误 as_SignatureLogo in VarChar2 Default Null, as_SignatureText in VarChar2 Default Null, as_Encode in VarChar2 Default 'base64', ai_Priority In Pls_Integer Default Null ); Function f_LoadHTMLFromURL( as_URL in VarChar2, as_CharSet in VarChar2 Default 'UTF-8' )Return Clob; --生成HTML报表表头 --Exec f_HTMLTableHead( 'Tab1', '20:Table Name;20:Records' ); Function f_HTMLTableHead( as_TableID in VarChar2, --表ID as_WidthColumns in VarChar2, --表头内容，用分号;隔开，宽度与标题用冒号:隔开 as_BgColor in VarChar2 Default 'CCCCCC' --标题背景色 )Return VarChar2; --生成HTML报表主体内容 --Exec UTL_INet.f_HTMLTableBody( '' ); Function f_HTMLTableBody( as_BodyText in VarChar2, --主体内容，多个用分号;隔开 as_Align in VarChar2 Default Null --格式（居中，靠左，靠右） )Return VarChar2; --获取汉字拼音字母表 --Select UTL_INet.f_getChineseSpell( '获取汉字拼音' ) from dual; Function f_getChineseSpell( as_CNStr in VarChar2, --中文 as_First in VarChar2 Default Null --空返回完整拼音，其他返回拼音首字母 )Return VarChar2; --二进制转换成十进制函数 --Select UTL_INet.f_Bin2Dec( '10111011' ) From dual; Function f_Bin2Dec( as_Bin in VarChar2 )Return Number; --十进制转换成二进制函数 --Select UTL_INet.f_Dec2Bin( 187 ) From dual; Function f_Dec2Bin( an_Dec in Number )Return VarChar2; --十进制转换成三十二进制函数 --Select UTL_INet.f_Dec2Hex( 187 ) From dual; Function f_Dec2Hex( an_Dec in Number )Return VarChar2; --三十二进制转换成十进制函数 --Select UTL_INet.f_Hex2Dec( '5R' ) From dual; Function f_Hex2Dec( as_Hex in VarChar2 )Return Number; --生成12位随机数 --Select UTL_INet.f_Rand() From dual; Function f_Rand( as_PreFix in VarChar2 Default '00', --未满个数字符补充串 an_Nums in Number Default 12 )Return VarChar2; --繁体字转化成简体字(传入的汉字，若有繁体自动转化为简体) Function f_ft2jt( as_Text in VarChar2 --传入的汉字 )Return VarChar2; --简体字转化成繁体字(传入的汉字，若有简体自动转化为繁体) Function f_jt2ft( as_Text in VarChar2 --传入的汉字 )Return VarChar2; -- -------------------------------------------------------------------------- -- Description : SOAP related Functions for consuming web services. Type t_Request is Record ( Method VarChar2(256), Namespace VarChar2(256), Body VarChar2(32767), EnvelopeTag VarChar2(30) ); Type t_Response is Record ( Doc XMLType, EnvelopeTag VarChar2(30) ); Function f_NewRequest( as_Method in VarChar2, as_Namespace in VarChar2, as_EnvelopeTag in VarChar2 Default 'SOAP-ENV' )Return t_Request; Procedure p_AddParameter( as_Request in out Nocopy t_Request, as_Name in VarChar2, as_Type in VarChar2, as_Value in VarChar2 ); Function f_Invoke( as_Request in out Nocopy t_Request, as_URL in VarChar2, as_Action in VarChar2 )Return t_Response; Function f_GetReturnValue( as_Response in out Nocopy t_Response, as_Name in VarChar2, as_Namespace in VarChar2 )Return VarChar2; --列出当前目录下所有文件清单，可以指定扩展名，是否包含子目录，返回的文件名用|分割开来 Function f_ListDirectory( as_SubDir in VarChar2, as_Ext in VarChar2 Default Null, as_IncludingSubDir in Char Default 'N' )Return Clob; --将数值翻译成中文大写、英文大写 --Select f_Digit2Char( 24822.80, 'EN_Amount' ) From dual; Function f_Digit2Char( an_Amount in Number, --要被翻译的数值 as_Option in VarChar2 --翻译选择项 )Return VarChar2; --发送短信 Function f_SendSMS( as_MobilePhone in VarChar2, --手机号码 as_SMSText in VarChar2, --短信内容 as_SMSURL in VarChar2, as_SMSUserID in VarChar2, as_SMSPasswd in VarChar2 )Return VarChar2; --删除某个指定文件 Procedure p_RemoveFile( as_SubDir in VarChar2, --路径 as_FileName in VarChar2 --多个用逗号，分开 ); --从文件中读内容 Function f_GetTextFromFile( as_SubDir in VarChar2, --目录名 as_FileName in VarChar2, --文件名 as_NewLine in VarChar2 Default UTL_TCP.CRLF --换行符 )Return Clob; END UTL_INet; /
oracle send mail
congnen9588的博客
04-27 140
oracle send mailcreate or replace PROCEDURE p_send_mail(sender IN VARCHAR2,recipient IN VARCHAR2,ccrecipient IN VA...
10g MAIL
congku8444的博客
06-11 201
Oracle 10G中轻松发送email (zt) http://www.dbfan.cn/category/oracle-tips/page/4/ 2009年6月2日 没有评论 10G之前,如果要从or...
oracle send mail,如何在Oracle中发送Email
weixin_33581873的博客
04-07 388
CREATE OR REPLACE PACKAGE demo_mail IS----------------------- Customizable Section ------------------------- Customize the SMTP host, port and your domain name below.smtp_host VARCHAR2(256) := 'smtp.e...
Oracle PLSQL通过SMTP发送E-MAIL邮件代码
苏南生的CSDN博客
04-08 9355
登录到SMTP服务器发送邮件CREATE OR REPLACE PROCEDURE send_mail(p_recipient VARCHAR2, -- 邮件接收人 p_subject VARCHAR2, -- 邮件标题 p_message
oracle—email邮件发送
x的专栏
08-12 1000
一.会存在ACL的控制列表权限问题 Oracle允许使用几个PL/SQL API（UTL_TCP, UTL_SMTP, UTL_MAIL, UTL_HTTP和 UTL_INADDR）访问外部网络服务。需要进行权限授权才可以，比如需要通过oracle发送邮件。 前提：具有dba权限的用户才能进行授权,否则会出现“未声明字符DBMS_NETWORK_ACL_ADMIN” a.给用户授权dba  
Linux中cx_oracle和sendEmail安装及操作
Wielun
11-20 835
一、cx_oracle安装及操作 操作系统：Red Hat Enterprise Linux Server release 7.2 (Maipo) python版本：python2.7 oracle版本：11g 1、简介与下载 oracle客户端是Oracle instant client, 除了安装basic package外, 还需要安装sdk包, 否则cx_oracle无法编译，其主要...
oracle send mail,数据库包send_mail发邮件的配置含ACL和privilege
weixin_33610842的博客
04-07 754
1.先创建一个SEND_EMAIL存储过程create or replace PROCEDURE SEND_EMAIL (p_From IN VARCHAR2 :='mdssysmail@mic.com.tw',p_To IN VARCHAR2,p_Subject IN VARCHAR2,p_Body IN VARCHAR2,p_Cc IN VARCHAR2 := NULL,p_Bcc I...
oracle邮件发送,如何在Oracle中发送Email
weixin_42539973的博客
04-02 1276
CREATE OR REPLACE PACKAGE demo_mail IS----------------------- Customizable Section ------------------------- Customize the SMTP host, port and your domain name below.smtp_host VARCHAR2(256) := 'smtp.e...
oracle 自动发送邮件
最新发布
05-27
Oracle数据库可以使用UTL_SMTP包发送电子邮件。UTL_SMTP是Oracle提供的一个包，可以通过SMTP协议发送电子邮件。下面是一个简单的例子，展示如何使用UTL_SMTP包在Oracle数据库中自动发送电子邮件。 假设你已经有了一个包含要发送电子邮件的收件人地址、主题和正文的表。以下是使用UTL_SMTP包发送电子邮件的步骤： 1. 首先，你需要在Oracle数据库中启用UTL_SMTP包。你可以使用以下命令启用UTL_SMTP包： ```sql EXECUTE UTL_MAIL.ENABLE; ``` 2. 接下来，你需要编写一个存储过程，该存储过程从包含电子邮件数据的表中选择数据，并使用UTL_SMTP包发送电子邮件。以下是一个例子： ```sql CREATE OR REPLACE PROCEDURE send_email AS -- 声明变量 v_mailhost VARCHAR2(255) := 'your_mail_host'; v_port NUMBER := 25; v_sender VARCHAR2(255) := 'sender_email'; v_username VARCHAR2(255) := 'sender_username'; v_password VARCHAR2(255) := 'sender_password'; v_recipient VARCHAR2(255); v_subject VARCHAR2(255); v_message VARCHAR2(4000); v_conn UTL_SMTP.CONNECTION; BEGIN -- 连接SMTP服务器 v_conn := UTL_SMTP.OPEN_CONNECTION(v_mailhost, v_port); UTL_SMTP.HELO(v_conn, v_mailhost); UTL_SMTP.AUTH(v_conn, v_username, v_password); -- 循环遍历邮件表中的每一行数据 FOR r_email IN (SELECT recipient, subject, message FROM email_table) LOOP -- 设置收件人地址、主题和正文 v_recipient := r_email.recipient; v_subject := r_email.subject; v_message := r_email.message; -- 发送电子邮件 UTL_SMTP.MAIL(v_conn, v_sender); UTL_SMTP.RCPT(v_conn, v_recipient); UTL_SMTP.DATA(v_conn, 'Subject: ' || v_subject || UTL_TCP.CRLF || 'To: ' || v_recipient || UTL_TCP.CRLF || 'From: ' || v_sender || UTL_TCP.CRLF || UTL_TCP.CRLF || v_message); END LOOP; -- 关闭连接 UTL_SMTP.QUIT(v_conn); EXCEPTION -- 处理异常 WHEN OTHERS THEN UTL_SMTP.CLOSE_CONNECTION(v_conn); RAISE; END; ``` 在上面的存储过程中，你需要将 `v_mailhost`、`v_port`、`v_sender`、`v_username` 和 `v_password` 替换为你自己的邮件服务器和发件人信息。该存储过程从 `email_table` 表中选择数据，并将每个电子邮件发送给相应的收件人。 3. 最后，你可以使用以下命令调用存储过程并发送电子邮件： ```sql EXECUTE send_email; ``` 这将会发送 `email_table` 表中的所有电子邮件。你可以在表中添加或删除数据，以控制要发送的电子邮件。 需要注意的是，为了使用UTL_SMTP包，你需要有相应的权限。另外，如果你的邮件服务器需要SSL或TLS连接，你需要使用UTL_SMTP包的SSL或TLS版本。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值