oracle新建账户不发邮件,ORACLE 中发送电子邮件的问题(在线等哦,急)

CREATE OR REPLACE PROCEDURE send_mail (

p_recipient IN   VARCHAR2,

p_message   IN   VARCHAR2,

p_subject   IN   VARCHAR2 default 'Oracle Perf Report '||to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'),

p_sender    IN   VARCHAR2 default 'tz_wlj@petrochina.com.cn')

IS

v_mailhost varchar2(30) := 'mail.xjyt.petrochina';  -- SMTP服务器地址

mail_conn utl_smtp.connection;

msg varchar2(4000);

p_user  varchar2(30) := 'tz_wlj';       -- 登录SMTP服务器的用户名

p_pass  varchar2(30) := 'tz_wlj';       -- 登录SMTP服务器的密码

BEGIN

/* 创建要发送的邮件内容 注意报头信息和邮件正文之间要空一行 */

msg := 'Date:' ||to_char(sysdate,'dd mon yy hh24:mi:ss') || utl_tcp.CRLF ||

'From: ' || p_sender || '' ||utl_tcp.CRLF ||

'To: '|| p_recipient || '' ||utl_tcp.CRLF||

'Subject