oracle10g发送email示例建站知识
导读:1建站知识本文介绍了通过Oracle10g发送Email的实例,该Procedure支持中文邮件、HTML代码、多收件人。 ,需要的朋友可以参考下百度seo网站优化seo网站优化软件。
在Procedure中p_receiver为收件人地址,多收件人以“,”(英文逗号)分割, p_sub为邮件标题,p_txt为邮件内容(支持HTML)。代码如下:
复制代码 代码如下:
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(20) := 'Gnie'; p_server varchar2(20) := 'Mail_Server_IP'; p_port number := 25; p_need_smtp number := 0; p_subject varchar2(4000); 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 || '"';
type address_list is table of varchar2(100) index by binary_integer; my_address_list address_list; ---------------------------------------分割邮件地址---------------------------------------------- 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); seo网站关键词优化for i in 1 .. l_len loop if substr(l_str, i, 1) <> ',' then l_addr := l_addr || substr(l_str, i, 1); else j := j + 1; if p_splite_flag = 1 then --表示处理邮件地址 --前后需要加上'<>',否则很多邮箱将不能发送邮件 l_addr := '<' || l_addr || '>'; --调用邮件发送过程 my_address_list(j) := l_addr; end if; l_addr := ''; end if; if i = l_len then j := j + 1; if p_splite_flag = 1 then --调用邮件发送过程 l_addr := '<' || l_addr || '>'; my_address_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 ':', 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, 'ZHS16CGB231280'))); 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 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;
声明: 本文由我的SEOUC技术文章主页发布于:2023-05-23 ,文章oracle10g发送email示例建站知识主要讲述示例,标签,oracle10g发送email示例建站知识1网站建设源码以及服务器配置搭建相关技术文章。转载请保留链接: https://www.seouc.com/article/web_5613.html