热门标签 | HotTags
当前位置:  开发笔记 > 前端 > 正文

oracle10g发送email示例

本文介绍了通过Oracle10g发送Email的实例,该Procedure支持中文邮件、HTML代码、多收件人。,需要的朋友可以参考下

在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);
    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;

    /*设置发送地址和接收地址*/
    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-1/3, 'dd Mon yy hh24:mi:ss'));
    /*设置发送人*/
    write_data(l_conn, 'From', p_sendor);
    /*设置接收人*/
    write_data(l_conn, 'To', p_receiver);
    /*设置邮件主题*/
    select replace('=?GB2312?B?'||utl_raw.cast_to_varchar2(utl_encode.base64_encode(rawtohex(p_sub)))||'?=',utl_tcp.crlf,'')
    into p_subject from dual;
    write_data(l_conn, 'Subject', p_subject);

    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/html;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);

    /*关闭数据写入*/
    utl_smtp.close_data(l_conn);
    /*关闭连接*/
    utl_smtp.quit(l_conn);

  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;
  /*处理邮件地址,根据逗号分割邮件*/
end;





发过邮件后可以到你的邮箱里看看有没有收到


推荐阅读
  • Docker的安全基准
    nsitionalENhttp:www.w3.orgTRxhtml1DTDxhtml1-transitional.dtd ... [详细]
  • 本周信息安全小组主要进行了CTF竞赛相关技能的学习,包括HTML和CSS的基础知识、逆向工程的初步探索以及整数溢出漏洞的学习。此外,还掌握了Linux命令行操作及互联网工作原理的基本概念。 ... [详细]
  • 1:有如下一段程序:packagea.b.c;publicclassTest{privatestaticinti0;publicintgetNext(){return ... [详细]
  • 深入理解Cookie与Session会话管理
    本文详细介绍了如何通过HTTP响应和请求处理浏览器的Cookie信息,以及如何创建、设置和管理Cookie。同时探讨了会话跟踪技术中的Session机制,解释其原理及应用场景。 ... [详细]
  • UNP 第9章:主机名与地址转换
    本章探讨了用于在主机名和数值地址之间进行转换的函数,如gethostbyname和gethostbyaddr。此外,还介绍了getservbyname和getservbyport函数,用于在服务器名和端口号之间进行转换。 ... [详细]
  • 本文介绍了如何在具备多个IP地址的FTP服务器环境中,通过动态地址端口复用和地址转换技术优化网络配置。重点讨论了2Mb/s DDN专线连接、Cisco 2611路由器及内部网络地址规划。 ... [详细]
  • 创建第一个 MUI 移动应用项目
    本文将详细介绍如何使用 HBuilder 创建并运行一个基于 MUI 框架的移动应用项目。我们将逐步引导您完成项目的搭建、代码编写以及真机调试,帮助您快速入门移动应用开发。 ... [详细]
  • 深入理解 SQL 视图、存储过程与事务
    本文详细介绍了SQL中的视图、存储过程和事务的概念及应用。视图为用户提供了一种灵活的数据查询方式,存储过程则封装了复杂的SQL逻辑,而事务确保了数据库操作的完整性和一致性。 ... [详细]
  • 梦幻西游挖图奇遇:70级项链意外触发晶清诀,3000W轻松到手
    在梦幻西游中,挖图是一项备受欢迎的活动,无论是小宝图还是高级藏宝图,都吸引了大量玩家参与。通常情况下,小宝图的数量保证了稳定的收益,但特技装备的出现往往能带来意想不到的惊喜。本文讲述了一位玩家通过挖图获得70级晶清项链的故事,最终实现了3000W的游戏币逆袭。 ... [详细]
  • 本文探讨了 RESTful API 和传统接口之间的关键差异,解释了为什么 RESTful API 在设计和实现上具有独特的优势。 ... [详细]
  • 本文详细介绍了Java编程语言中的核心概念和常见面试问题,包括集合类、数据结构、线程处理、Java虚拟机(JVM)、HTTP协议以及Git操作等方面的内容。通过深入分析每个主题,帮助读者更好地理解Java的关键特性和最佳实践。 ... [详细]
  • 如何配置Unturned服务器及其消息设置
    本文详细介绍了Unturned服务器的配置方法和消息设置技巧,帮助用户了解并优化服务器管理。同时,提供了关于云服务资源操作记录、远程登录设置以及文件传输的相关补充信息。 ... [详细]
  • 网络攻防实战:从HTTP到HTTPS的演变
    本文通过一系列日记记录了从发现漏洞到逐步加强安全措施的过程,探讨了如何应对网络攻击并最终实现全面的安全防护。 ... [详细]
  • MQTT技术周报:硬件连接与协议解析
    本周开发笔记重点介绍了在新项目中使用MQTT协议进行硬件连接的技术细节,涵盖其特性、原理及实现步骤。 ... [详细]
  • 邮件(带附件,模拟文件上传,跨服务器)发送核心代码1.测试邮件发送附件接口***测试邮件发送附件*@parammultipartFile*@return*@RequestMappi ... [详细]
author-avatar
mobiledu2502885243
这个家伙很懒,什么也没留下!
PHP1.CN | 中国最专业的PHP中文社区 | DevBox开发工具箱 | json解析格式化 |PHP资讯 | PHP教程 | 数据库技术 | 服务器技术 | 前端开发技术 | PHP框架 | 开发工具 | 在线工具
Copyright © 1998 - 2020 PHP1.CN. All Rights Reserved | 京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有