1、创建存储过程
直接复制以下代码,修改邮件服务的参数执行即可,注意若修改存储过程的名称send_mail_srm,记住在末尾也要修改。
CREATE OR REPLACE PROCEDURE send_mail_srm(
p_recipient VARCHAR2, -- 邮件接收人
p_subject VARCHAR2, -- 邮件标题
p_message VARCHAR2 -- 邮件正文
)
IS
--下面四个变量请根据实际邮件服务器进行赋值
v_mailhost VARCHAR2(30) := '10.128.1.234'; --SMTP服务器地址
v_user VARCHAR2(30) := 'srmnotice@xhcnotice.com'; --登录SMTP服务器的用户名
v_pass VARCHAR2(20) := 'srmnotice828'; --登录SMTP服务器的密码
v_sender VARCHAR2(50) := 'srmnotice@xhcnotice.com'; --发送者邮箱,一般与 ps_user 对应
v_conn UTL_SMTP. connection ; --到邮件服务器的连接
-- v_msg varchar2(4000); --邮件内容
BEGIN
v_conn := UTL_SMTP.open_connection(v_mailhost, 25);
UTL_SMTP.ehlo(v_conn, v_mailhost); --是用 ehlo() 而不是 helo() 函数
--否则会报:ORA-29279: SMTP 永久性错误: 503 5.5.2 Send hello first.
UTL_SMTP.command(v_conn, 'AUTH LOGIN' ); -- smtp服务器登录校验
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); --设置发件人
UTL_SMTP.rcpt(v_conn,