ORACLE SMTP 发送邮件

ORACLE  简易版  发送邮件  识别HTML，中文

​
CREATE OR REPLACE PROCEDURE "SEND_MAIL" (
msg_to VARCHAR2,
msg_subject VARCHAR2,
msg_text VARCHAR2,
pCoCode     varchar2 default null,
msg_cc varchar2 default null,
msg_bcc varchar2 default null)

IS
c utl_smtp.connection;
rc INTEGER;
err_msg VARCHAR2(400);
msg_from VARCHAR2(50) := '[email protected]';
mailhost VARCHAR2(30) ; 
msg VARCHAR2(100);
DEFAULT_SMTP_HOST VARCHAR2(30) :='12.123.12.123';
porthost     VARCHAR2(10) := '25'; -- SMTP on port 25
iCount       Number;

BEGIN

c := utl_smtp.open_connection(mailhost,porthost); 
utl_smtp.ehlo(c, mailhost);
utl_smtp.mail(c, msg_from);
utl_smtp.rcpt(c, msg_to);
If msg_cc is not null then
    utl_smtp.rcpt(c, msg_cc);
End If;
If msg_bcc is not null then
    utl_smtp.rcpt(c, msg_bcc);
End If;
UTL_SMTP.open_data (c);


UTL_SMTP.write_data(c, 'From' || ': ' || msg_from || UTL_TCP.crlf);
UTL_SMTP.write_da