oracle 实现简单发邮件ALERT功能

eison

之前在网上抄了个类似的
自己稍微加工了下 ,
多添了几个收件人,本人基本用此程序在一些exception 里面,出现一些问题以便及时处理

程序简单高效,发上来哪天自己要再用直接来copy .
实现简单alert .


PS: 只能在内网使用,2.不能发附件 . GENG牛的功能,牛x人 继续 更贴把 继续分享

1. 
   
2. create or replace procedure cux_SEND_MAIL(sender in varchar2 default 'EISON.SUN@XXXX.com',
   
3. recipient1 in varchar2 default 'EISON.SUN@XXXX.com',
   
4. recipient2 in varchar2 default 'a@XXXX.com',
   
5. CC1 in varchar2 default 'EISON.SUN@XXXX.com',
   
6. CC2 in varchar2 default 'AAA@XXXX.com',
   
7. CC3 in varchar2 default 'bbb@XXXX.com',
   
8. subject in varchar2 default 'Eison Test mail',
   
9. message in varchar2 DEFAULT to_char(sysdate,
   
10. 'YYYY/MM/DD HH24:MM:SS')) is
    
11. mailhost varchar2(30) := 'MAIL_server01.xxxx.com';
    
12.                              -----need modify mail server ,you can get the address from  your outlook config.
    
13. c utl_smtp.connection;
    
14. msg varchar2(1000);
    
15. begin
    
16. msg := 'Date: ' || to_char(sysdate, 'YYYY/MM/DD HH24:MM:SS') ||
    
17. UTL_TCP.CRLF || 'From: <' || sender || '>' || UTL_TCP.CRLF ||
    
18. 'Subject: ' || subject || UTL_TCP.CRLF || 'To: <' || recipient1 ||
    
19. '>;<' || recipient2 || '>' || UTL_TCP.CRLF || 'Cc: <' || CC1 ||
    
20. '>;<' || CC2 || '>;<' || CC3 || '>' || '' || UTL_TCP.CRLF ||
    
21. 'Message Content: ' || message || UTL_TCP.CRLF;
    
22. c := utl_smtp.open_connection(mailhost, 25);
    
23. utl_smtp.helo(c, mailhost);
    
24. utl_smtp.mail(c, sender);
    
25. utl_smtp.rcpt(c, recipient1);
    
26. utl_smtp.rcpt(c, recipient2);
    
27. utl_smtp.rcpt(c, CC1);
    
28. utl_smtp.rcpt(c, CC2);
    
29. utl_smtp.rcpt(c, CC3);
    
30. utl_smtp.open_data(c);
    
31. -- utl_smtp.data(c, msg);
    
32. ---UTL_SMTP.WRITE_DATA(c, UTL_TCP.CRLF ||' Pls pay attention the msg,^%^  !'||SYSDATE|| UTL_TCP.CRLF);
    
33. 
    
34. utl_smtp.write_raw_data(c,
    
35. utl_raw.cast_to_raw('Dears' || msg ||
    
36. utl_tcp.crlf));
    
37. utl_smtp.write_raw_data(c,
    
38. utl_raw.cast_to_raw('Dears:' || utl_tcp.crlf ||
    
39. 'Pls pay attnetion to the message! ' ||
    
40. utl_tcp.crlf || utl_tcp.crlf || msg));
    
41. utl_smtp.write_raw_data(c,
    
42. utl_raw.cast_to_raw(UTL_TCP.CRLF ||
    
43. '--------------------End------------------'));
    
44. 
    
45. utl_smtp.close_data(c);
    
46. utl_smtp.quit(c);
    
47. end cux_SEND_MAIL;
    
48. /
    
49. 
    
50. 
    
51. 调用方法： COPY 以上代码，修改 收件地址和 内网mail_server address and  receiver &cc
    
52. 
    
53. 
    
54. 编译执行后。 然后调用即可。 begin cux_SEND_MAIL ;end;
    
55. OR   you can call  the programe as follow, which only show to new birds
    
56. 
    
57. BEGIN
    
58. CUX_SEND_MAIL(SENDER => 'A@XX.COM',
    
59.                             recipient1  => 'B@XX.COM');
    
60. END;
    

复制代码

nijay

这种还是比较简单的。

ZHANGERP

有没有直接回复信息的功能？