PL/SQL下SQL結果集以html形式發送郵件

       在運維的過程中，有時候需要定時將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