---

一、创建触发器tr_yw_info_beforeinsert

CREATE OR REPLACE TRIGGER tr_yw_info_beforeinsertBEFORE INSERT ON yw_infoFOR EACH ROW
DECLAREv_content VARCHAR2(4000);v_fssj    VARCHAR2(50);v_clsj    VARCHAR2(50);v_date    VARCHAR2(20);v_title   VARCHAR2(1000);v_flxstr  VARCHAR2(50);v_gzlxstr VARCHAR2(50);v_tzfsstr VARCHAR2(50);v_cjrstr  VARCHAR2(50);v_cldwstr VARCHAR2(50);v_wcqkstr VARCHAR2(50);
BEGINSELECT 'YW' || seq_yw_info_info_id.nextval INTO :new.info_id FROM dual;SELECT to_char(:new.fs_time,'yyyy-mm-dd hh24:mi:ss')INTO v_fssjFROM dual;SELECT to_char(:new.cl_time,'yyyy-mm-dd hh24:mi:ss')INTO v_clsjFROM dual;SELECT to_char(SYSDATE,'yyyymmdd-hh24miss')INTO v_dateFROM dual;SELECT (CASE :new.info_type_idWHEN '40070' THEN(SELECT a.a01FROM yw_code aWHERE a.code_type = '1001'AND rownum = 1)WHEN '40071' THEN(SELECT a.a01FROM yw_code aWHERE a.code_type = '1005'AND rownum = 1)END)INTO v_flxstrFROM dual;SELECT (CASE :new.info_type_idWHEN '40070' THEN(SELECT a.code_descFROM yw_code aWHERE a.del_flag = '0'AND a.code_type = '1001'AND a.code_value = :new.gzlx_id)WHEN '40071' THEN(SELECT a.code_descFROM yw_code aWHERE a.del_flag = '0'AND a.code_type = '1005'AND a.code_value = :new.gzlx_id)END)INTO v_gzlxstrFROM dual;SELECT a.code_descINTO v_tzfsstrFROM yw_code aWHERE a.del_flag = '0'AND a.code_type = '1002'AND a.code_value = :new.tzfs;SELECT b.desc_nameINTO v_cjrstrFROM iu_user bWHERE b.user_id = :new.cjr;SELECT a.code_descINTO v_cldwstrFROM yw_code aWHERE a.del_flag = '0'AND a.code_type = '1003'AND a.code_value = :new.cldw;SELECT a.code_descINTO v_wcqkstrFROM yw_code aWHERE a.del_flag = '0'AND a.code_type = '1004'AND a.code_value = :new.wcqk;v_title := '【运维管理平台】-' || v_date || '-' || v_cjrstr || '-新增信息';v_content := '【运维信息】新增，时间:' ||to_char(SYSDATE,'yyyy-mm-dd hh24:mi:ss')|| '<br>'||CHR(13)||CHR(10) || '信息标识：'||:new.info_id|| '<br>'||CHR(13)||CHR(10) || '信息类别：'||v_flxStr|| '<br>'||CHR(13)||CHR(10) || '信息类型：'||v_gzlxStr|| '<br>'||CHR(13)||CHR(10) || '通知方式：'||v_tzfsStr|| '<br>'||CHR(13)||CHR(10) || '创建用户：'||v_cjrStr|| '<br>'||CHR(13)||CHR(10) || '发生时间：'||v_fssj|| '<br>'||CHR(13)||CHR(10) || '报障单位：'||:new.bzdw|| '<br>'||CHR(13)||CHR(10) || '报障人员：'||:new.bzr|| '<br>'||CHR(13)||CHR(10) || '详情描述：'||:new.xqms|| '<br>'||CHR(13)||CHR(10) || '处理时间：'||v_clsj|| '<br>'||CHR(13)||CHR(10) || '处理单位：'||v_cldwStr|| '<br>'||CHR(13)||CHR(10) || '处理人员：'||:new.clr|| '<br>'||CHR(13)||CHR(10) || '处理情况：'||:new.clqk|| '<br>'||CHR(13)||CHR(10) || '完成情况：'||v_wcqkStr|| '<br>'||CHR(13)||CHR(10) || '备注信息：'||:new.bz;--sendmail_yw_new(v_content);send_mail('tttzzzqqq@qq.com',v_title,v_content);send_mail('52487400@qq.com',v_title,v_content);
END;

二、创建触发器tr_yw_info_beforeupdate

CREATE OR REPLACE TRIGGER tr_yw_info_beforeupdateBEFORE UPDATE ON yw_infoFOR EACH ROW
DECLAREv_content VARCHAR2(4000);v_fssj    VARCHAR2(50);v_clsj    VARCHAR2(50);v_date    VARCHAR2(20);v_title   VARCHAR2(1000);v_flxstr  VARCHAR2(50);v_gzlxstr VARCHAR2(50);v_tzfsstr VARCHAR2(50);v_cjrstr  VARCHAR2(50);v_cldwstr VARCHAR2(50);v_wcqkstr VARCHAR2(50);v_flag    VARCHAR2(20); --更新还是删除
BEGINSELECT 'YW' || seq_yw_info_info_id.nextval INTO :new.info_id FROM dual;SELECT to_char(:new.fs_time,'yyyy-mm-dd hh24:mi:ss')INTO v_fssjFROM dual;SELECT to_char(:new.cl_time,'yyyy-mm-dd hh24:mi:ss')INTO v_clsjFROM dual;SELECT to_char(SYSDATE,'yyyymmdd-hh24miss')INTO v_dateFROM dual;SELECT (CASE :new.info_type_idWHEN '40070' THEN(SELECT a.a01FROM yw_code aWHERE a.code_type = '1001'AND rownum = 1)WHEN '40071' THEN(SELECT a.a01FROM yw_code aWHERE a.code_type = '1005'AND rownum = 1)END)INTO v_flxstrFROM dual;SELECT (CASE :new.info_type_idWHEN '40070' THEN(SELECT a.code_descFROM yw_code aWHERE a.del_flag = '0'AND a.code_type = '1001'AND a.code_value = :new.gzlx_id)WHEN '40071' THEN(SELECT a.code_descFROM yw_code aWHERE a.del_flag = '0'AND a.code_type = '1005'AND a.code_value = :new.gzlx_id)END)INTO v_gzlxstrFROM dual;SELECT a.code_descINTO v_tzfsstrFROM yw_code aWHERE a.del_flag = '0'AND a.code_type = '1002'AND a.code_value = :new.tzfs;SELECT b.desc_nameINTO v_cjrstrFROM iu_user bWHERE b.user_id = :new.cjr;SELECT a.code_descINTO v_cldwstrFROM yw_code aWHERE a.del_flag = '0'AND a.code_type = '1003'AND a.code_value = :new.cldw;SELECT a.code_descINTO v_wcqkstrFROM yw_code aWHERE a.del_flag = '0'AND a.code_type = '1004'AND a.code_value = :new.wcqk;--select :new.del_flag into v_delFlag from dual;IF :new.del_flag = '1' THENv_title := '【运维管理平台】-' || v_date || '-' || v_cjrstr || '-删除信息';v_flag  := '删除';ELSEv_title := '【运维管理平台】-' || v_date || '-' || v_cjrstr || '-更新信息';v_flag  := '更新';END IF;v_content := '【运维信息】' || v_flag || '，时间:' ||to_char(SYSDATE,'yyyy-mm-dd hh24:mi:ss')|| '<br>'||CHR(13)||CHR(10) || '信息标识：'||:new.info_id|| '<br>'||CHR(13)||CHR(10) || '信息类别：'||v_flxStr|| '<br>'||CHR(13)||CHR(10) || '信息类型：'||v_gzlxStr|| '<br>'||CHR(13)||CHR(10) || '通知方式：'||v_tzfsStr|| '<br>'||CHR(13)||CHR(10) || '创建用户：'||v_cjrStr|| '<br>'||CHR(13)||CHR(10) || '发生时间：'||v_fssj|| '<br>'||CHR(13)||CHR(10) || '报障单位：'||:new.bzdw|| '<br>'||CHR(13)||CHR(10) || '报障人员：'||:new.bzr|| '<br>'||CHR(13)||CHR(10) || '详情描述：'||:new.xqms|| '<br>'||CHR(13)||CHR(10) || '处理时间：'||v_clsj|| '<br>'||CHR(13)||CHR(10) || '处理单位：'||v_cldwStr|| '<br>'||CHR(13)||CHR(10) || '处理人员：'||:new.clr|| '<br>'||CHR(13)||CHR(10) || '处理情况：'||:new.clqk|| '<br>'||CHR(13)||CHR(10) || '完成情况：'||v_wcqkStr|| '<br>'||CHR(13)||CHR(10) || '备注信息：'||:new.bz;--sendmail_yw_new(v_content);send_mail('tttzzzqqq@qq.com',v_title,v_content);
END;

三、发送邮件存过：send_mail()

CREATE OR REPLACE PROCEDURE send_mail(p_recipient VARCHAR2, -- 邮件接收人p_subject   VARCHAR2, -- 邮件标题p_message   VARCHAR2 -- 邮件正文) IS--下面四个变量请根据实际邮件服务器进行赋值v_mailhost VARCHAR2(30) := 'smtp.163.com'; --SMTP服务器地址v_user     VARCHAR2(30) := 'tttzzzqqq2019@163.com'; --登录SMTP服务器的用户名v_pass     VARCHAR2(20) := 'dttzq84'; --登录SMTP服务器的密码（密码如何得到看下面）v_sender   VARCHAR2(50) := 'tttzzzqqq2019@163.com'; --发送者邮箱，一般与 ps_user 对应v_conn     utl_smtp.connection; --到邮件服务器的连接v_msg      VARCHAR2(4000); --邮件内容
BEGIN-- 未经过SSL加密的为 25 PORTv_conn := utl_smtp.open_connection(v_mailhost,25); --建立TCP连接。 连接smtp.163.com的25号端口utl_smtp.helo(v_conn,v_mailhost); --ehlo() 客户端向服务器发送HELO命令以标识发件人自己的身份，然后客户端发送MAIL命令。-- 服务器端以OK作为响应，表示准备接收。utl_smtp.command(v_conn,'AUTH LOGIN'); -- smtp服务器登录校验-- UTL_RAW.CAST_TO_RAW 解决不同字符集的数据库之间的相互访问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); --设置发件人utl_smtp.rcpt(v_conn,p_recipient); --设置收件人-- 创建要发送的邮件内容 注意报头信息和邮件正文之间要空一行-- CRLF: Carriage Return Line Feed  回车换行v_msg := 'Date:' || to_char(SYSDATE,'yyyy-mm-dd hh24:mi:ss') || utl_tcp.crlf ||'From: ' || '<' || v_sender || '>' || utl_tcp.crlf || 'To: ' || '<' ||p_recipient || '>' || utl_tcp.crlf || 'Subject: ' || p_subject ||utl_tcp.crlf || 'Content-Type:text/html;charset=GBK' ||utl_tcp.crlf || utl_tcp.crlf -- 这前面是报头信息|| p_message; -- 这个是邮件正文-- 创建要发送的邮件内容 注意报头信息和邮件正文之间要空一行/*  v_msg := 'Date:' || TO_CHAR(SYSDATE+1/3, '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 || 'Content-Type:text/html;charset=GBK'|| UTL_TCP.CRLF || UTL_TCP.CRLF -- 这前面是报头信息|| p_message;  -- 这个是邮件正文*/dbms_output.put_line('------BEGIN------SEND_MAIL------');dbms_output.put_line('邮件发送成功!');dbms_output.put_line('报文信息：' || v_msg);dbms_output.put_line('------E N D------SEND_MAIL------' || chr(13) ||chr(10));utl_smtp.open_data(v_conn); --打开流--使用utl_raw.cast_to_raw与utl_mail.write_raw_data写邮件正文时可以用中文( 解决不同字符集的数据库之间的相互访问)utl_smtp.write_raw_data(v_conn,utl_raw.cast_to_raw(convert(v_msg,'ZHS16GBK'))); --这样写标题和内容都能用中文utl_smtp.close_data(v_conn); --关闭流utl_smtp.quit(v_conn); --关闭连接
EXCEPTIONWHEN OTHERS THENdbms_output.put_line('邮件发送失败!');dbms_output.put_line(dbms_utility.format_error_stack);dbms_output.put_line(dbms_utility.format_call_stack);
END send_mail;