当前位置: > 数据库 > Oracle >

ORACLE 自动发邮件代码(2)

时间:2015-07-12 16:27来源:linux.it.net.cn 作者:IT

    --设置附件的转换格式
    IF (TRANSFER_ENC IS NOT NULL)
    THEN
    WRITE_DATA (CONN, 'Content-Transfer-Encoding', TRANSFER_ENC);
    END IF;
    UTL_SMTP.WRITE_DATA (CONN, UTL_TCP.CRLF);
    --begin 贴附件内容
    IF TRANSFER_ENC = 'bit 7'
    THEN
    --如果是文本类型的附件
    BEGIN
    L_FILE_HANDLE := UTL_FILE.FOPEN (DT_NAME, L_FILENAME, 'r'); --打开文件
    --把附件分成多份,这样可以发送超过32K的附件
    LOOP
    UTL_FILE.GET_LINE (L_FILE_HANDLE, L_LINE);
    L_MESG := L_LINE || L_CRLF;
    WRITE_DATA (CONN,
    '',
    L_MESG,
    '',
    '');
    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 = 'base64'
    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, 'AUTH LOGIN', '');
    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, 'Date', TO_CHAR (SYSDATE, 'yyyy-mm-dd hh24:mi:ss'));
    /*设置发送人*/
    WRITE_DATA (L_CONN, 'From', P_SENDOR);
    /*设置接收人*/
    WRITE_DATA (L_CONN, 'To', P_RECEIVER);
    /*设置邮件主题*/
    WRITE_DATA (L_CONN, 'Subject', P_SUB);
    WRITE_DATA (L_CONN, 'Content-Type', MULTIPART_MIME_TYPE);
    UTL_SMTP.WRITE_DATA (L_CONN, UTL_TCP.CRLF);
    UTL_SMTP.WRITE_DATA (L_CONN, FIRST_BOUNDARY);
    WRITE_DATA (L_CONN, 'Content-Type', 'text/plain;charset=gb2312');
    --单独空一行,否则,正文内容不显示
    UTL_SMTP.WRITE_DATA (L_CONN, UTL_TCP.CRLF);
    /* 设置邮件正文
    把分隔符还原成chr(10)。这主要是为了shell中调用该过程,如果有多行,则先把多行的内容合并成一行,并用 l_splite分隔
    然后用 l_crlf替换chr(10)。这一步是必须的,否则将不能发送邮件正文有多行的邮件
    */
    WRITE_DATA (
    L_CONN,
    '',
    REPLACE (REPLACE (P_TXT, L_SPLITE, CHR (10)), CHR (10), L_CRLF),
    '',
    ''
    );
    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 := '<' || P_SENDOR || '>';
    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;

    该程序脚本最主要的功能实现为通过oracle自带的过程包发送邮件来监控ETL的执行情况:
    ORACLE_SID=orcl
    ORACLE_BASE=/opt/oracle
    ORACLE_HOME=/opt/oracle/product/10.2.0
    export ORACLE_SID ORACLE_BASE ORACLE_HOME
    PWD_DIR=/home/oracle/shell
    SQLPLUS=${ORACLE_HOME}/bin/sqlplus
    CONFIG_INI=${PWD_DIR}/ini/config.ini
    while read gameuser
    do
    echo ${gameuser}
    echo ${SQLPLUS}
    cd ${PWD_DIR}
    ${SQLPLUS} ${gameuser} << !
    @etl_monitor.sql;
    /
    exit;
    !
    done<${CONFIG_INI}
    etl_monitor.sql脚本为:
    DECLARE
    p_txt VARCHAR2 (4000);
    p_txt_all VARCHAR2 (4000);
    BEGIN
    FOR r IN (SELECT job_name,
    run_cnt,
    table_name,
    column_name
    FROM etl_monitor_config_tab)
    LOOP
    -- Call the Etl Monitor function
    p_txt :=
    etl_monitor (r.job_name,
    r.run_cnt,
    r.table_name,
    r.column_name);
    p_txt_all := p_txt_all || CHR (13) || p_txt;
    END LOOP;
    -- Call the Send Mail function
    procsendemail (p_txt_all,
    'Etl Moniotr',
    'xxx@163.com ',
    'xxxx@kingsoft.com ',
    'mail.kingsoft.com',
    25,
    1,
    'xxxxxx',
    'xxxxxx',
    '',
    'bit 7');
    p_txt_all := '';
    END;
    create or replace function etl_monitor(job_name    varchar2,
    run_cnt     int,
    table_name  varchar2,
    column_name varchar2)
    RETURN varchar2 IS
    v_monitor_date date; --The monitor of the proc's date
    v_job_name     varchar2(130);
    v_log_id       number;
    v_result1      char(1); --The status of the proc's result1
    v_result2      char(1); --The status of the proc's result2
    v_status_cnt   int;
    v_record_num   int; --The number of the job run
    v_result       varchar2(4000);
    v_sql          varchar2(1000);
    begin
    v_monitor_date := trunc(sysdate);
    v_job_name     := job_name;
    v_result1      := '0';
    v_result2      := '0';
    v_sql          := 'select count(1) from ';
    if run_cnt = 1 then
    select log_id
    into v_log_id
    from user_scheduler_job_run_details
    where job_name = v_job_name
    and trunc(actual_start_date) = v_monitor_date;
    else
    select max(log_id)
    into v_log_id
    from user_scheduler_job_run_details
    where job_name = v_job_name
    and trunc(actual_start_date) = v_monitor_date;
    end if;
    select count(*)
    into v_status_cnt
    from user_scheduler_job_run_details
    where log_id = v_log_id
    and status = 'SUCCEEDED';
    if v_status_cnt = 0 then
    goto error1;
    end if;
    v_result1 := '1';
    v_sql := v_sql || table_name || ' ' || 'where trunc(' || column_name ||

    ') =' || 'trunc(sysdate-1) and rownum=1';
    execute immediate v_sql
    into v_record_num;
    if v_record_num > 0 then
    v_result2 := '1';
    else
    v_status_cnt := 0;
    goto error1;
    end if;
    if v_result1 = '1' and v_result2 = '1' then
    v_result := SYS_CONTEXT('USERENV', 'CURRENT_SCHEMA') || '.' ||
    v_job_name || ' At ' || v_monitor_date || ' IS SUCCEEDED';
    end if;
    <<error1>>
    if v_status_cnt = 0 then
    select OWNER || '.' || JOB_NAME || ' At ' || TRUNC(ACTUAL_START_DATE) ||
    'IS ' ADDITIONAL_INFO
    into v_result
    from user_scheduler_job_run_details
    where log_id = v_log_id;
    end if;
    return v_result;
    exception
    when others then
    return SYS_CONTEXT('USERENV', 'CURRENT_SCHEMA') || '.' || v_job_name || ' At ' || v_monitor_date || ' IS NOT EXECUTE';
    end;

 

    最主要的procsendmail的过程为:
    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
    /*
    作用:用oracle发送邮件
    主要功能:1、支持多收件人。
    2、支持中文
    3、支持抄送人
    4、支持大于32K的附件
    5、支持多行正文
    6、支持多附件
    7、支持文本附件和二进制附件
    8、支持HTML格式
    8、支持
    作者:suk
    参数说明:
    p_txt :邮件正文
    p_sub: 邮件标题
    p_SendorAddress : 发送人邮件地址
    p_ReceiverAddress : 接收地址,可以同时发送到多个地址上,地址之间用","或者";"隔开
    p_EmailServer : 邮件服务器地址,可以是域名或者IP
    p_Port :邮件服务器端口
    p_need_smtp:是否需要smtp认证,0表示不需要,1表示需要
    p_user:smtp验证需要的用户名
    p_pass:smtp验证需要的密码
    p_filename:附件名称,必须包含完整的路径,如"d:\temp\a.txt"。
    可以有多个附件,附件名称只见用逗号或者分号分隔
    p_encode:附件编码转换格式,其中 p_encode='bit 7' 表示文本类型附件
    p_encode='base64' 表示二进制类型附件
    注意:
    1、对于文本类型的附件,不能用base64的方式发送,否则出错
    2、对于多个附件只能用同一种格式发送
    */
    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); (责任编辑:IT)

------分隔线----------------------------