通过Oracle发送Email的实现方法

数据库 Oracle
本篇是通过Oracle10g发送Email实例,该Procedure支持中文邮件、HTML代码、多收件人。 希望本文对大家有所帮助。

在Procedure中p_receiver为收件人地址,多收件人以“,”(英文逗号)分割,
p_sub为邮件标题,p_txt为邮件内容(支持HTML)。代码如下:

  1. createorreplaceprocedurebsd_sendemail(p_receivervarchar2,p_subvarchar2,p_txtvarchar2)  
  2. is 
  3. p_uservarchar2(30):='';  
  4. p_passvarchar2(30):='';  
  5. p_sendorvarchar2(20):='Gnie';  
  6. p_servervarchar2(20):='Mail_Server_IP';  
  7. p_portnumber:=25;  
  8. p_need_smtpnumber:=0;  
  9. p_subjectvarchar2(4000);  
  10. l_crlfvarchar2(2):=utl_tcp.crlf;  
  11. l_sendoraddressvarchar2(4000);  
  12. l_splitevarchar2(10):='++';  
  13. boundaryconstantvarchar2(256):='-----BYSUK';  
  14. first_boundaryconstantvarchar2(256):='--'||boundary||l_crlf;  
  15. last_boundaryconstantvarchar2(256):='--'||boundary||'--'||l_crlf;  
  16. multipart_mime_typeconstantvarchar2(256):='multipart/mixed;boundary="'||boundary||'"';  
  17.  
  18. typeaddress_lististableofvarchar2(100)indexbybinary_integer;  
  19. my_address_listaddress_list;  
  20. ---------------------------------------分割邮件地址----------------------------------------------  
  21. procedurep_splite_str(p_strvarchar2,p_splite_flagintdefault1)is 
  22. l_addrvarchar2(254):='';  
  23. l_lenint;  
  24. l_strvarchar2(4000);  
  25. jint:=0;--表示邮件地址或者附件的个数  
  26. begin 
  27. /*处理接收邮件地址列表,包括去空格、将;转换为,等*/  
  28. l_str:=trim(rtrim(replace(replace(p_str,';',','),'',''),','));  
  29. l_len:=length(l_str);  
  30. foriin1..l_lenloop  
  31. ifsubstr(l_str,i,1)<>','then 
  32. l_addr:=l_addr||substr(l_str,i,1);  
  33. else 
  34. j:=j+1;  
  35. ifp_splite_flag=1then--表示处理邮件地址  
  36. --前后需要加上'<>',否则很多邮箱将不能发送邮件  
  37. l_addr:='<'||l_addr||'>';  
  38. --调用邮件发送过程  
  39. my_address_list(j):=l_addr;  
  40. endif;  
  41. l_addr:='';  
  42. endif;  
  43. ifi=l_lenthen  
  44. j:=j+1;  
  45. ifp_splite_flag=1then  
  46. --调用邮件发送过程  
  47. l_addr:='<'||l_addr||'>';  
  48. my_address_list(j):=l_addr;  
  49. endif;  
  50. endif;  
  51. endloop;  
  52. end;  
  53. ------------------------------------------------写邮件头和邮件内容------------------------------------------  
  54. procedurewrite_data(p_conninoutnocopyutl_smtp.connection,  
  55. p_nameinvarchar2,  
  56. p_valueinvarchar2,  
  57. p_splitevarchar2default':',  
  58. p_crlfvarchar2defaultl_crlf)is 
  59. begin 
  60. /*utl_raw.cast_to_raw对解决中文乱码问题很重要*/  
  61. utl_smtp.write_raw_data(p_conn,utl_raw.cast_to_raw(convert(p_name||p_splite||p_value||p_crlf,'ZHS16CGB231280')));  
  62. end;  
  63. ----------------------------------------写mime邮件尾部-----------------------------------------------------  
  64. procedureend_boundary(conninoutnocopyutl_smtp.connection,lastinbooleandefaultfalse)is 
  65. begin 
  66. utl_smtp.write_data(conn,utl_tcp.crlf);  
  67. if(last)then 
  68. utl_smtp.write_data(conn,last_boundary);  
  69. endif;  
  70. end;  
  71. ---------------------------------------------真正发送邮件的过程--------------------------------------------  
  72. procedurep_email(p_sendoraddress2varchar2,--发送地址  
  73. p_receiveraddress2varchar2)--接受地址  
  74. is 
  75. l_connutl_smtp.connection;--定义连接  
  76. begin 
  77. /*初始化邮件服务器信息,连接邮件服务器*/  
  78. l_conn:=utl_smtp.open_connection(p_server,p_port);  
  79. utl_smtp.helo(l_conn,p_server);  
  80. /*smtp服务器登录校验*/  
  81. ifp_need_smtp=1then  
  82. utl_smtp.command(l_conn,'AUTHLOGIN','');  
  83. utl_smtp.command(l_conn,utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw(p_user))));  
  84. utl_smtp.command(l_conn,utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw(p_pass))));  
  85. endif;  
  86.  
  87. /*设置发送地址和接收地址*/  
  88. utl_smtp.mail(l_conn,p_sendoraddress2);  
  89. utl_smtp.rcpt(l_conn,p_receiveraddress2);  
  90.  
  91. /*设置邮件头*/  
  92. utl_smtp.open_data(l_conn);  
  93. /*设置日期*/  
  94. --write_data(l_conn,'Date',to_char(sysdate-1/3,'ddMonyyhh24:mi:ss'));  
  95. /*设置发送人*/  
  96. write_data(l_conn,'From',p_sendor);  
  97. /*设置接收人*/  
  98. write_data(l_conn,'To',p_receiver);  
  99. /*设置邮件主题*/  
  100. selectreplace('=?GB2312?B?'||utl_raw.cast_to_varchar2(utl_encode.base64_encode(rawtohex(p_sub)))||'?=',utl_tcp.crlf,'')intop_subjectfromdual;  
  101. write_data(l_conn,'Subject',p_subject);  
  102.  
  103. write_data(l_conn,'Content-Type',multipart_mime_type);  
  104. utl_smtp.write_data(l_conn,utl_tcp.crlf);  
  105. utl_smtp.write_data(l_conn,first_boundary);  
  106. write_data(l_conn,'Content-Type','text/html;charset=gb2312');  
  107. --单独空一行,否则,正文内容不显示  
  108. utl_smtp.write_data(l_conn,utl_tcp.crlf);  
  109. /*设置邮件正文  
  110. 把分隔符还原成chr(10)。这主要是为了shell中调用该过程,如果有多行,则先把多行的内容合并成一行,并用l_splite分隔  
  111. 然后用l_crlf替换chr(10)。这一步是必须的,否则将不能发送邮件正文有多行的邮件  
  112. */  
  113. write_data(l_conn,'',replace(replace(p_txt,l_splite,chr(10)),chr(10),l_crlf),'','');  
  114. end_boundary(l_conn);  
  115.  
  116. /*关闭数据写入*/  
  117. utl_smtp.close_data(l_conn);  
  118. /*关闭连接*/  
  119. utl_smtp.quit(l_conn);  
  120.  
  121. end;  
  122. ---------------------------------------------主过程-----------------------------------------------------  
  123. begin 
  124. l_sendoraddress:='<'||p_sendor||'>';  
  125. p_splite_str(p_receiver);--处理邮件地址  
  126. forkin1..my_address_list.countloop  
  127. p_email(l_sendoraddress,my_address_list(k));  
  128. endloop;  
  129. /*处理邮件地址,根据逗号分割邮件*/  
  130. end

在PL/SQL中测试一下它的性能如何:

PL/SQL中测试一下它的性能

到Outlook中看看Oracle发送Email邮件到了没有:

看看Oracle发送Email邮件到了没有

哈哈!及时收到,通过它可以在底层发送相关数据信息,希望对大家有用!

另,不知道11g有没有直接用Oracle发送Email的函数了~

【编辑推荐】

  1. Oracle数据库中的OOP概念
  2. 前瞻性在Oracle数据库维护中的作用
  3. 使用资源管理器优化Oracle性能
  4. Oracle检索数据一致性与事务恢复
  5. 超大型Oracle数据库应用系统的设计方法
责任编辑:彭凡 来源: cnblogs
相关推荐

2009-08-21 09:44:44

C#发送Email邮件

2011-03-29 14:44:26

Zabbixemail

2011-04-01 16:52:29

zabbixemail

2010-10-28 13:44:59

2010-10-29 13:34:09

Oracle日志

2010-11-19 13:42:38

2009-12-09 15:23:36

PHP mail()函

2023-10-13 10:45:18

HTTP数据

2010-04-14 09:41:10

Oracle数据备份

2010-10-29 14:20:54

Oracle移动控制文

2010-11-19 13:14:21

Oracle删除归档日

2010-04-19 09:06:24

Oracle的方法

2010-10-08 16:20:35

MySQL语句

2009-12-21 17:48:30

WCF方法重载

2010-11-16 11:55:31

Oracle命令行

2010-11-15 14:07:16

Oracle取固定记录

2010-10-29 16:12:51

Oracle存储过程

2010-10-27 16:49:23

Oracle删除重复记

2009-06-09 13:21:32

Oracle Data实现

2014-09-02 10:43:45

RedisRPC
点赞
收藏

51CTO技术栈公众号