在运维的过程中，有时候需要定时将SQL查询的数据结果集以html表格形式发送邮件，因此需要将SQL查询得到的结果集拼接成html代码。对于这种情形通常有二种方式来完成。一是直接使用cron job来定时轮询并借助os级别的邮件程序来完成。其查询结果集可以直接在SQL*Plus下通过设置html标签自动实现html表格形式。一种方式是在Oracle中使用scheduler job来定时轮询。这种方式需要我们手动拼接html代码。本文即是对第二种情形展开描述。

关于PL/SQL下如何发送邮件可参考: PL/SQL 下邮件发送程序

1、代码描述

? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 --下面的代码段主要主要是用于发送数据库A部分数据同步到数据库B是出现的错误信息 --表syn_data_err_log_tbl主要是记录错误日志，也就是说只要表中出现了新的记录或者旧记录且mailed列标志为N，即表示需要发送邮件 --下面逐一描述代码段信息，该代码段可以封装到package.  PROCEDURE email_on_syn_data_err_log (err_num   OUT NUMBER,                                         err_msg   OUT VARCHAR2)    AS       v_msg_txt        VARCHAR2 (32767);       v_sub            VARCHAR2 (100);       v_html_header    VARCHAR (4000);       v_html_content   VARCHAR (32767);       v_count          NUMBER;       v_log_seq        NUMBER (12);       v_loop_count     NUMBER := 0;         CURSOR cur_errlog    --使用cursor来生成表格标题部分       IS            SELECT '<tr >                             <td style="vertical-align:top;padding: 5px;"> '                   || TO_CHAR (sd.log_seq)                   || '</td>                             <td style="vertical-align:top;padding: 5px;"> '                   || sd.process                   || '</td>'                   || '<td  style="vertical-align:top;padding: 5px;"> '                   || sd.rec_id                   || '</td> '                   || '<td style="padding: 5px;"> '                   || REPLACE (REPLACE (sd.err_msg, '<', ';'), '>', ';')                   || '</td>'                   || '<td  style="vertical-align:top;padding: 5px;">'                   || TO_CHAR (sd.log_time, 'yyyy-mm-dd hh24:mi:ss')                   || '</td>                             </tr>',                   sd.log_seq              FROM syn_data_err_log_tbl sd             WHERE sd.mailed = 'N'          ORDER BY sd.log_seq;    BEGIN       err_num := common_pkg.c_suc_genera