CREATE OR REPLACE PROCEDURE  send_mail (p_recipient    VARCHAR2,   --Recipient
p_subject      VARCHAR2,    -- mail title
p_message      VARCHAR2     -- meail content
v_mailhost   VARCHAR2(30) := 'smtp.mail.com';    --smtp mail server address
v_user  VARCHAR2(100) := 'name@mail.com';  --email account
v_pass       VARCHAR2 (20) := '123456';                      -- email account password
v_sender     VARCHAR2 (100) := 'name@mail.com'; --general, same as  ps_user
v_conn       UTL_SMTP.connection;
v_msg        VARCHAR2 (4000);                                 --emial content
l_to varchar2(4000);
n binary_integer;
l_tmp varchar2(4000);
BEGIN
--make connection to smtp
v_conn := UTL_SMTP.open_connection (v_mailhost, 25);
UTL_SMTP.ehlo (v_conn, v_mailhost);               --say hello to server
UTL_SMTP.command (v_conn, 'AUTH LOGIN');                     -- smtp server auth
UTL_SMTP.command (
v_conn,
UTL_RAW.cast_to_varchar2 (
UTL_ENCODE.base64_encode (UTL_RAW.cast_to_raw (v_user))));
UTL_SMTP.command (
v_conn,
UTL_RAW.cast_to_varchar2 (
UTL_ENCODE.base64_encode (UTL_RAW.cast_to_raw (v_pass))));
UTL_SMTP.mail (v_conn, v_sender);
--Recipient list e.g. a@anbob.com,b@anbob.com
l_to := p_recipient || ',';
loop
exit when l_to is null;
n := instr( l_to, ',' );
l_tmp := substr( l_to, 1, n-1 );
l_to := substr( l_to, n+1 );
UTL_SMTP.rcpt (v_conn, l_tmp);
end loop;
v_msg :=
'Date:'
|| TO_CHAR (SYSDATE, 'dd mon yy hh24:mi:ss')
|| UTL_TCP.CRLF
|| 'From: '
|| v_sender
|| '<'
|| v_sender
|| '>'
|| UTL_TCP.CRLF
|| 'To: '
|| p_recipient
|| '<'
|| p_recipient
|| '>'
|| UTL_TCP.CRLF
|| 'Subject: '
|| p_subject
|| UTL_TCP.CRLF
|| 'Content-Type: text/html'
|| UTL_TCP.CRLF
|| p_message;
-- start the mai body
UTL_SMTP.open_data (v_conn);
UTL_SMTP.write_raw_data (v_conn, UTL_RAW.cast_to_raw (v_msg));
UTL_SMTP.close_data (v_conn);
UTL_SMTP.quit (v_conn);
exception
when utl_smtp.transient_error or utl_smtp.permanent_error then
utl_smtp.quit(v_conn);
raise;
when others then
raise;
END send_mail;

exec send_mail('admin@anbob.com,dba@anbob.com','warning:test','<h2>ok</h2>');
Related Posts:
No related posts found!

--转自