备案控制台
探索云世界
开发者社区 数据库 文章 正文

PL/SQL 下邮件发送程序

2017-11-13 1050
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介：

  对DBA而言，尽管在os级别下发送邮件是轻而易举的事情，然而很多时候我们也需要在PL/SQL中来发送邮件，比如监控job的执行状况等。本文根据网友(源作者未考证)的代码将其改装并封装到了package，感谢这位网友的无私奉献。文章首先给出演示调用该包发送邮件的情形后面给出了完整的代码。经测试Oracle 10g，Oracle 11g下均可用。关于os下发送邮件可参考：不可或缺的 sendEmail

 

1、调用SENDMAIL_PKG来发送邮件

[sql]  view plain  copy
 
 print?在CODE上查看代码片派生到我的代码片
  1. gx_admin@SYBO2SZ> set serveroutput on;  
  2. gx_admin@SYBO2SZ> DECLARE   
  3.   2    P_RECEIVER VARCHAR2(32767);  
  4.   3    P_SUB VARCHAR2(32767);  
  5.   4    P_TXT VARCHAR2(32767);  
  6.   5    ERR_NUM NUMBER;  
  7.   6    ERR_MSG VARCHAR2(32767);  
  8.   7    
  9.   8  BEGIN   
  10.   9    P_RECEIVER := 'robinson.chen@12306.com';  
  11.  10    P_SUB := 'Test mail';  
  12.  11    P_TXT := 'This is a test mail.';  
  13.  12    ERR_NUM := NULL;  
  14.  13    ERR_MSG := NULL;  
  15.  14    
  16.  15    SENDMAIL_PKG.SENDMAIL ( P_RECEIVER, P_SUB, P_TXT, ERR_NUM, ERR_MSG );  
  17.  16    
  18.  17    DBMS_OUTPUT.Put_Line('ERR_NUM = ' || TO_CHAR(ERR_NUM));  
  19.  18    DBMS_OUTPUT.Put_Line('ERR_MSG = ' || ERR_MSG);  
  20.  19    
  21.  20    DBMS_OUTPUT.Put_Line('');  
  22.  21    
  23.  22    COMMIT;   
  24.  23  END;  
  25.  24  /  
  26. ERR_NUM = 0  
  27. ERR_MSG =  
  28.   
  29. PL/SQL procedure successfully completed.  


2、邮件发送结果

     

3、原代码

[sql]  view plain  copy
 
 print?在CODE上查看代码片派生到我的代码片
    1. --specification section  
    2. CREATE OR REPLACE PACKAGE "SENDMAIL_PKG"  
    3. IS  
    4.    PROCEDURE sendmail (p_receiver       VARCHAR2,  
    5.                        p_sub            VARCHAR2,  
    6.                        p_txt            VARCHAR2,  
    7.                        err_num      OUT NUMBER,  
    8.                        err_msg      OUT VARCHAR2);  
    9. END;  
    10. /  
    11.   
    12. --body section  
    13. CREATE OR REPLACE PACKAGE BODY "SENDMAIL_PKG"  
    14. IS  
    15.    PROCEDURE sendmail (p_receiver       VARCHAR2,  
    16.                        p_sub            VARCHAR2,  
    17.                        p_txt            VARCHAR2,  
    18.                        err_num      OUT NUMBER,  
    19.                        err_msg      OUT VARCHAR2)  
    20.    IS  
    21.       /*   p_receiver   =>  receiver  
    22.              p_sub              =>  mail subject  
    23.              p_txt                => mail content  
    24.       */  
    25.       p_user                         VARCHAR2 (30) := NULL;  
    26.       p_pass                         VARCHAR2 (30) := NULL;  
    27.       p_sendor                       VARCHAR2 (40) := 'DBA@gotrade.com';  
    28.       p_server                       VARCHAR2 (20)  
    29.                            --             := system_pkg.get_sys_para_value ('TC_SMTP_IP'); --'192.168.7.65';  
    30.                                         :='192.168.7.65';  
    31.       p_port                         NUMBER := 25;  
    32.       p_need_smtp                    NUMBER := 0;  
    33.       p_subject                      VARCHAR2 (4000);  
    34.       l_crlf                         VARCHAR2 (2) := UTL_TCP.crlf;  
    35.       l_sendoraddress                VARCHAR2 (4000);  
    36.       l_splite                       VARCHAR2 (10) := '++';  
    37.       boundary              CONSTANT VARCHAR2 (256) := '-----BYSUK';  
    38.       first_boundary        CONSTANT VARCHAR2 (256) := '--' || boundary || l_crlf;  
    39.       last_boundary         CONSTANT VARCHAR2 (256)  
    40.                                         := '--' || boundary || '--' || l_crlf ;  
    41.       multipart_mime_type   CONSTANT VARCHAR2 (256)  
    42.          := 'multipart/mixed; boundary="' || boundary || '"' ;  
    43.   
    44.       TYPE address_list IS TABLE OF VARCHAR2 (100)  
    45.                               INDEX BY BINARY_INTEGER;  
    46.   
    47.       my_address_list                address_list;  
    48.   
    49.       ---------------------------------------split mail address----------------------------------------------  
    50.       PROCEDURE p_splite_str (p_str VARCHAR2, p_splite_flag INT DEFAULT 1)  
    51.       IS  
    52.          l_addr   VARCHAR2 (254) := '';  
    53.          l_len    INT;  
    54.          l_str    VARCHAR2 (4000);  
    55.          j        INT := 0;  
    56.       BEGIN  
    57.          /*Handle recieve mail address, such like blank, semicolon*/  
    58.          l_str :=  
    59.             TRIM (RTRIM (REPLACE (REPLACE (p_str, ';', ','), ' ', ''), ','));  
    60.          l_len := LENGTH (l_str);  
    61.   
    62.          FOR i IN 1 .. l_len  
    63.          LOOP  
    64.             IF SUBSTR (l_str, i, 1) <> ','  
    65.             THEN  
    66.                l_addr := l_addr || SUBSTR (l_str, i, 1);  
    67.             ELSE  
    68.                j := j + 1;  
    69.   
    70.                IF p_splite_flag = 1  
    71.                THEN  
    72.                   --Add  symbol  '<>'  for each mail address. else could not send to many reciever  
    73.                   l_addr := '<' || l_addr || '>';  
    74.   
    75.                   my_address_list (j) := l_addr;  
    76.                END IF;  
    77.   
    78.                l_addr := '';  
    79.             END IF;  
    80.   
    81.             IF i = l_len  
    82.             THEN  
    83.                j := j + 1;  
    84.   
    85.                IF p_splite_flag = 1  
    86.                THEN  
    87.                   l_addr := '<' || l_addr || '>';  
    88.                   my_address_list (j) := l_addr;  
    89.                END IF;  
    90.             END IF;  
    91.          END LOOP;  
    92.       END;  
    93.   
    94.       -----------------------------------write mail header and mail content----------------------------------  
    95.       PROCEDURE write_data (p_conn     IN OUT NOCOPY UTL_SMTP.connection,  
    96.                             p_name     IN            VARCHAR2,  
    97.                             p_value    IN            VARCHAR2,  
    98.                             p_splite                 VARCHAR2 DEFAULT ':',  
    99.                             p_crlf                   VARCHAR2 DEFAULT l_crlf)  
    100.       IS  
    101.       BEGIN  
    102.          /* utl_raw.cast_to_raw  to handle chinese code*/  
    103.          UTL_SMTP.write_raw_data (  
    104.             p_conn,  
    105.             UTL_RAW.cast_to_raw (  
    106.                CONVERT (p_name || p_splite || p_value || p_crlf,  
    107.                         'ZHS16CGB231280')));  
    108.       END;  
    109.   
    110.       ----------------------------------------write mime mail tail-----------------------------------------------------  
    111.       PROCEDURE end_boundary (conn   IN OUT NOCOPY UTL_SMTP.connection,  
    112.                               LAST   IN            BOOLEAN DEFAULT FALSE)  
    113.       IS  
    114.       BEGIN  
    115.          UTL_SMTP.write_data (conn, UTL_TCP.crlf);  
    116.   
    117.          IF (LAST)  
    118.          THEN  
    119.             UTL_SMTP.write_data (conn, last_boundary);  
    120.          END IF;  
    121.       END;  
    122.   
    123.       ---------------------------------------------send mail procedure--------------------------------------------  
    124.       PROCEDURE p_email (p_sendoraddress2      VARCHAR2,      --sender address  
    125.                          p_receiveraddress2    VARCHAR2)    --reciever address  
    126.       IS  
    127.          l_conn   UTL_SMTP.connection;                   --create a connection  
    128.       BEGIN  
    129.          /*Initial mail server*/  
    130.          l_conn := UTL_SMTP.open_connection (p_server, p_port);  
    131.          UTL_SMTP.helo (l_conn, p_server);  
    132.   
    133.          /* smtp authentication*/  
    134.          IF p_need_smtp = 1  
    135.          THEN  
    136.             UTL_SMTP.command (l_conn, 'AUTH LOGIN', '');  
    137.             UTL_SMTP.command (  
    138.                l_conn,  
    139.                UTL_RAW.cast_to_varchar2 (  
    140.                   UTL_ENCODE.base64_encode (UTL_RAW.cast_to_raw (p_user))));  
    141.             UTL_SMTP.command (  
    142.                l_conn,  
    143.                UTL_RAW.cast_to_varchar2 (  
    144.                   UTL_ENCODE.base64_encode (UTL_RAW.cast_to_raw (p_pass))));  
    145.          END IF;  
    146.   
    147.          /*configure sender and reciever mail address*/  
    148.          UTL_SMTP.mail (l_conn, p_sendoraddress2);  
    149.          UTL_SMTP.rcpt (l_conn, p_receiveraddress2);  
    150.          /*configure mail header*/  
    151.          UTL_SMTP.open_data (l_conn);  
    152.          /*configure date*/  
    153.          --write_data(l_conn, 'Date', to_char(sysdate-1/3, 'dd Mon yy hh24:mi:ss'));  
    154.          /*configure sender*/  
    155.          write_data (l_conn, 'From', p_sendor);  
    156.          /*configure reciever*/  
    157.          write_data (l_conn, 'To', p_receiver);  
    158.   
    159.          /*add mail subject*/  
    160.          SELECT REPLACE (  
    161.                    '=?GB2312?B?'  
    162.                    || UTL_RAW.cast_to_varchar2 (  
    163.                          UTL_ENCODE.base64_encode (RAWTOHEX (p_sub)))  
    164.                    || '?=',  
    165.                    UTL_TCP.crlf,  
    166.                    '')  
    167.            INTO p_subject  
    168.            FROM DUAL;  
    169.   
    170.          write_data (l_conn, 'Subject', p_subject);  
    171.          write_data (l_conn, 'Content-Type', multipart_mime_type);  
    172.          UTL_SMTP.write_data (l_conn, UTL_TCP.crlf);  
    173.          UTL_SMTP.write_data (l_conn, first_boundary);  
    174.          write_data (l_conn, 'Content-Type', 'text/html');  
    175.   
    176.          UTL_SMTP.write_data (l_conn, UTL_TCP.crlf);  
    177.   
    178.          write_data (  
    179.             l_conn,  
    180.             '',  
    181.             REPLACE (REPLACE (p_txt, l_splite, CHR (10)), CHR (10), l_crlf),  
    182.             '',  
    183.             '');  
    184.          end_boundary (l_conn);  
    185.          /*close write data*/  
    186.          UTL_SMTP.close_data (l_conn);  
    187.          /*close connection*/  
    188.          UTL_SMTP.quit (l_conn);  
    189.       END;  
    190.    ---------------------------------------------main procedure -----------------------------------------------------  
    191.    BEGIN  
    192.       err_num := 0;  
    193.       l_sendoraddress := '<' || p_sendor || '>';  
    194.       p_splite_str (p_receiver);                         --handle mail address  
    195.   
    196.       FOR k IN 1 .. my_address_list.COUNT  
    197.       LOOP  
    198.          p_email (l_sendoraddress, my_address_list (k));  
    199.       END LOOP;  
    200.    END;  
    201. END;  
    202. /  
    203. 转：http://blog.csdn.net/leshami/article/details/18616901
文章可以转载，必须以链接形式标明出处。



本文转自 张冲andy 博客园博客，原文链接：http://www.cnblogs.com/andy6/p/5877484.html    ，如需转载请自行联系原作者
文章标签：
SQL
Perl
关键词：
SQL程序
SQL PL
技术小美
目录
相关文章
1941623231718325
|
5天前
|
SQL 存储 Oracle
Oracle的PL/SQL定义变量和常量：数据的稳定与灵动
【4月更文挑战第19天】在Oracle PL/SQL中，变量和常量扮演着数据存储的关键角色。变量是可变的“魔术盒”，用于存储程序运行时的动态数据，通过`DECLARE`定义，可在循环和条件判断中体现其灵活性。常量则是不可变的“固定牌”，一旦设定值便保持不变，用`CONSTANT`声明，提供程序稳定性和易维护性。通过 `%TYPE`、`NOT NULL`等特性，可以更高效地管理和控制变量与常量，提升代码质量。善用两者，能优化PL/SQL程序的结构和性能。
1941623231718325
14 1
穆雄雄.
|
30天前
|
SQL Perl
PL/SQL经典练习
PL/SQL经典练习
穆雄雄.
13 0
穆雄雄.
|
30天前
|
SQL Perl
PL/SQL编程基本概念
PL/SQL编程基本概念
穆雄雄.
13 0
zhishijike
|
1月前
|
SQL Perl
PL/SQL Developer 注册机+汉化包+用户指南
PL/SQL Developer 注册机+汉化包+用户指南
zhishijike
16 0
1941623231718325
|
5天前
|
SQL Oracle 关系型数据库
Oracle的PL/SQL游标属性：数据的“导航仪”与“仪表盘”
【4月更文挑战第19天】Oracle PL/SQL游标属性如同车辆的导航仪和仪表盘，提供丰富信息和控制。 `%FOUND`和`%NOTFOUND`指示数据读取状态，`%ROWCOUNT`记录处理行数，`%ISOPEN`显示游标状态。还有`%BULK_ROWCOUNT`和`%BULK_EXCEPTIONS`增强处理灵活性。通过实例展示了如何在数据处理中利用这些属性监控和控制流程，提高效率和准确性。掌握游标属性是提升数据处理能力的关键。
1941623231718325
27 9
1941623231718325
|
5天前
|
SQL Oracle 安全
Oracle的PL/SQL循环语句：数据的“旋转木马”与“无限之旅”
【4月更文挑战第19天】Oracle PL/SQL中的循环语句（LOOP、EXIT WHEN、FOR、WHILE）是处理数据的关键工具，用于批量操作、报表生成和复杂业务逻辑。LOOP提供无限循环，可通过EXIT WHEN设定退出条件；FOR循环适用于固定次数迭代，WHILE循环基于条件判断执行。有效使用循环能提高效率，但需注意避免无限循环和优化大数据处理性能。掌握循环语句，将使数据处理更加高效和便捷。
1941623231718325
10 2
1941623231718325
|
5天前
|
SQL Oracle 关系型数据库
Oracle的PL/SQL条件控制：数据的“红绿灯”与“分岔路”
【4月更文挑战第19天】在Oracle PL/SQL中，IF语句与CASE语句扮演着数据流程控制的关键角色。IF语句如红绿灯，依据条件决定程序执行路径；ELSE和ELSIF提供多分支逻辑。CASE语句则是分岔路，按表达式值选择执行路径。这些条件控制语句在数据验证、错误处理和业务逻辑中不可或缺，通过巧妙运用能实现高效程序逻辑，保障数据正确流转，支持企业业务发展。理解并熟练掌握这些语句的使用是成为合格数据管理员的重要一环。
1941623231718325
11 0
1941623231718325
|
5天前
|
SQL Oracle 关系型数据库
Oracle的PL/SQL表达式：数据的魔法公式
【4月更文挑战第19天】探索Oracle PL/SQL表达式，体验数据的魔法公式。表达式结合常量、变量、运算符和函数，用于数据运算与转换。算术运算符处理数值计算，比较运算符执行数据比较，内置函数如TO_CHAR、ROUND和SUBSTR提供多样化操作。条件表达式如CASE和NULLIF实现灵活逻辑判断。广泛应用于SQL查询和PL/SQL程序，助你驾驭数据，揭示其背后的规律与秘密，成为数据魔法师。
1941623231718325
13 2
东方睿赢
|
6天前
|
SQL 安全 Go
如何在 Python 中进行 Web 应用程序的安全性管理，例如防止 SQL 注入？
在Python Web开发中，确保应用安全至关重要，主要防范SQL注入、XSS和CSRF攻击。措施包括：使用参数化查询或ORM防止SQL注入；过滤与转义用户输入抵御XSS；添加CSRF令牌抵挡CSRF；启用HTTPS保障数据传输安全；实现强身份验证和授权系统；智能处理错误信息；定期更新及审计以修复漏洞；严格输入验证；并培训开发者提升安全意识。持续关注和改进是保证安全的关键。
东方睿赢
14 0
众所周知
|
1月前
|
SQL 安全 测试技术
如何在 Python 中进行 Web 应用程序的安全性管理，例如防止 SQL 注入？
如何在 Python 中进行 Web 应用程序的安全性管理，例如防止 SQL 注入？
众所周知
15 0

热门文章

最新文章

  • 1
    一文搞懂SQL优化——如何高效添加数据
  • 2
    Seata常见问题之服务端 error日志没有输出,客户端执行sql报错如何解决
  • 3
    【软件设计师备考 专题 】数据库语言（SQL）
  • 4
    【SQL server】玩转SQL server数据库：第三章 关系数据库标准语言SQL（二）数据查询
  • 5
    【SQL server】玩转SQL server数据库：第二章 关系数据库
  • 6
    SQL常见面试题总结2
  • 7
    NL2SQL进阶系列(5)：论文解读业界前沿方案（DIN-SQL、C3-SQL、DAIL-SQL）、新一代数据集BIRD-SQL解读
  • 8
    NL2SQL实践系列(2)：2024最新模型实战效果(Chat2DB-GLM、书生·浦语2、InternLM2-SQL等)以及工业级案例教学
  • 9
    数据库管理与电脑监控软件：SQL代码优化与实践
  • 10
    SQL，Group By 真扎心，原来是这样
  • 1
    sql语句创建数据库
    19
  • 2
    sql 数据库优化
    34
  • 3
    sql导入数据库命令
    12
  • 4
    一文解析 ODPS SQL 任务优化方法原理
    24
  • 5
    Oracle的PL/SQL游标属性：数据的“导航仪”与“仪表盘”
    27
  • 6
    sql 性能优化基于explain调优（二）
    12
  • 7
    Oracle的PL/SQL循环语句：数据的“旋转木马”与“无限之旅”
    10
  • 8
    Oracle的PL/SQL条件控制：数据的“红绿灯”与“分岔路”
    11
  • 9
    Oracle的PL/SQL表达式：数据的魔法公式
    13
  • 10
    Oracle的PL/SQL定义变量和常量：数据的稳定与灵动
    14

    • 相关课程

    更多
  • 如何在 PolarDB-X 中优化慢 SQL
  • SQL完全自学手册
  • SQL Server on Linux入门教程
  • SQL入门与实践
  • 数据库及SQL/MySQL基础
  • SQL进阶及查询

    • 相关电子书

    更多
  • SQL Server在电子商务中的应用与实践
  • GeoMesa on Spark SQL
  • 原生SQL on Hadoop引擎- Apache HAWQ 2.x最新技术解密malili

    • 相关实验场景

    更多
  • PolarDB for AI：在数据库中通过SQL实现AI能力
  • 玩转MaxCompute SQL! 30分钟搞定数据分析挖掘
  • 使用SQL语句实现数据表管理
  • 使用SQL语句实现数据插入、修改和删除操作
  • 使用SQL语句实现数据查询操作
  • 使用SQL语句管理索引
    • 下一篇
    部署LAMP环境（Alibaba Cloud Linux 3）