| /*=========================================================
Description:
发送邮件
Input:
output: html 格式的邮件信息，以及调试的 发送了的地址
FUNCTION Name:
send_email_to_wy
Version:
1.00 2016-05-025
Creator: weiyao(8000123) 测试: OK
===========================================================*/
PROCEDURE send_email_to_wy IS
--ORACLE发邮件
SenderAddress VARCHAR2(150) := '****@***.com'; --发送地址
PassWord VARCHAR2(150) := '******'; --服务器密码
--ReceiverAddress LONG := '****@**.com'; --接受地址
EmailServer VARCHAR2(30) := '192.168.*.*'; --服务器端口
Port NUMBER := 25;
mail_to_address g_chr_tbl; --发送邮件的地址,存在数据表中,多人
conn UTL_SMTP.CONNECTION;
v_start VARCHAR2(150);
v_subject LONG;
v_line LONG;
v_body LONG;
--crlf VARCHAR2(2) := CHR(13) || CHR(10);
BEGIN
get_send_email_address(mail_to_address); --获取发送多个地址
IF mail_to_address.count > 0
THEN
conn := utl_smtp.open_connection(EmailServer, Port);
utl_smtp.ehlo(conn, 'tcl.com');
--utl_smtp.helo(conn, EmailServer); --和上面一句效果相同
UTL_SMTP.COMMAND(conn, 'AUTH LOGIN');
UTL_SMTP.COMMAND(conn,
UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW(SenderAddress))));
UTL_SMTP.COMMAND(conn,
UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW(PassWord))));
utl_smtp.mail(conn, '<' || SenderAddress || '>'); --发件人
--utl_smtp.rcpt(conn, '<' || ReceiverAddress || '>'); --单个收件人
FOR i IN 1 .. mail_to_address.count
LOOP
utl_smtp.rcpt(conn, '<' || mail_to_address(i) || '>'); --多个收件人
END LOOP;
--写内容
utl_smtp.open_data(conn);
utl_smtp.write_data(conn, 'From: itpub@tcl.com' || utl_tcp.crlf); --发件人
--utl_smtp.write_data(conn, 'To:' || ReceiverAddress || utl_tcp.crlf);
FOR i IN 1 .. mail_to_address.count
LOOP
utl_smtp.write_data(conn,
'To:' || mail_to_address(i) || utl_tcp.CRLF); --多个收件人
END LOOP;
---
---以下是发送邮件内容部分，可以单独分离出不同形式，已复用
--
v_subject := 'Subject:' || '预警信息邮件' || utl_tcp.crlf;
utl_smtp.write_raw_data(conn, utl_raw.cast_to_raw(v_subject));
--body部分<HTML形式写>
utl_smtp.write_data(conn,
'Content-Type: text/html; charset=GB2312' ||
utl_tcp.crlf);
v_start := '<html><body>';
v_body := v_start || '您们好,现在时间是: ' ||
to_char(SYSDATE, 'yyyy/MM/DD hh24:mi:ss') || '<br>' ||
'该邮件为预警测试邮件，请不用回复！' || '<br>' || '<table>';
v_line := '<tr><td><table cellpadding="2" cellspacing="0" border="1" align="left">
<tr>
<th>第一列</th>
<th>第二列</th>
<th>第三列</th>
<th>第四列</th>';
/* FOR rec_email_data IN email_data LOOP --循环写入表内容
v_line := v_line || '<tr><td>' || rec_email_data.job || '</td><td>' ||
rec_email_data.schema_user || '</td><td>' ||
rec_email_data.what || '</td><td>' ||rec_email_data.failures || '</td></tr>';
END LOOP;*/
v_body := v_body || v_line || '</table></td></tr>';
v_body := v_body || '</table></body></html>';
dbms_output.put_line(v_body); --给自己看,可以复制到记事本中网页打开查看
utl_smtp.write_data(conn, utl_tcp.crlf); -- body 后面加上 utl_tcp.crlf
utl_smtp.write_raw_data(conn,
utl_raw.cast_to_raw(convert(v_body,
'ZHS16GBK')));
utl_smtp.close_data(conn);
utl_smtp.quit(conn);
END IF;
EXCEPTION
WHEN OTHERS THEN
utl_smtp.quit(conn);
RAISE;
END send_email_to_wy;
| 
4298
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
