测试过多次，终于成功：oracle内发送email

Steven_1981

CREATE OR REPLACE PROCEDURE hyf_EMAIL
(as_sender in varchar2,
as_recp in varchar2,
as_subject in varchar2,
as_msg_body in varchar2)
IS
ls_mailhost varchar2(30) := '218.249.222.X';
lc_mail_conn utl_smtp.connection;
ls_subject varchar2(100);
--ls_db_name varchar2(20);
ls_msg_body varchar2(20000);

--r utl_smtp.replies;
username varchar2(256) := 'hh';
password varchar2(256) := 'hh';
BEGIN
lc_mail_conn := utl_smtp.open_connection(ls_mailhost, 25);
utl_smtp.ehlo(lc_mail_conn, 'mail.ccav.net');
utl_smtp.command (lc_mail_conn, 'AUTH LOGIN');
utl_smtp.command(lc_mail_conn, utl_encode.base64_encode(utl_raw.cast_to_raw(username)));
utl_smtp.command(lc_mail_conn, utl_encode.base64_encode(utl_raw.cast_to_raw(password)));
ls_subject := 'Subject: [' || upper(sys_context('userenv', 'db_name')) || '] - ' || as_subject;
ls_msg_body := as_msg_body;
utl_smtp.helo(lc_mail_conn, ls_mailhost);
utl_smtp.mail(lc_mail_conn, as_sender);
utl_smtp.rcpt(lc_mail_conn, as_recp);
utl_smtp.open_data(lc_mail_conn);
ls_msg_body := 'From: ' || as_sender || chr(13) || chr(10) || 'To: ' || as_recp || chr(13) || chr(10) || ls_subject || chr(13) || chr(10) || chr(13) || chr(10) || ls_msg_body;
utl_smtp.write_raw_data(lc_mail_conn, utl_raw.cast_to_raw(ls_msg_body));
utl_smtp.close_data(lc_mail_conn);
utl_smtp.quit(lc_mail_conn);
EXCEPTION
WHEN UTL_SMTP.INVALID_OPERATION THEN
dbms_output.put_line('invalid operation');
WHEN UTL_SMTP.TRANSIENT_ERROR THEN
dbms_output.put_line('transient error');
WHEN UTL_SMTP.PERMANENT_ERROR THEN
dbms_output.put_line('permanent error');
WHEN OTHERS THEN
dbms_output.put_line('others');
end hyf_EMAIL;


SQL> exec hyf_email('heyunfei@ccav.net','admin@ccav.net','hello','this is test email');

PL/SQL procedure successfully completed

邮件就是收不到,,大哥们我哪儿错了?

Steven_1981

以上服务器地址和密码是对的! 我用OUTLOOK都可以收发信件

vwangxin

为什么提示找不到网页

xiaoyezi2004

大家的mail server都用的什么？

xiaoyezi2004

用jc20031010的做法，我的前面都正确，
但是在执行
begin
MailTest;
end;
时出现下列问题：
ORA-29278: SMTP 临时性错误: 421 Service not available
ORA-06512: 在 "SYS.UTL_SMTP", line 21
ORA-06512: 在 "SYS.UTL_SMTP", line 97
ORA-06512: 在 "SYS.UTL_SMTP", line 139
ORA-06512: 在 "SEC_SYSTEM.DEMO_MAIL", line 240
ORA-06512: 在 "SEC_SYSTEM.DEMO_MAIL", line 118
ORA-06512: 在 "SEC_SYSTEM.DEMO_MAIL", line 104
ORA-06512: 在 "SEC_SYSTEM.MAILTEST", line 3
ORA-06512: 在 line 2

请问是怎么回事？我的是windows xp  +oracle10.2

gaodianzi

请问一下要实现以上发EMAIL oracle安装需要安装哪些组件，UTL_SMTP 是什么？我刚学oracle不懂这个，还请能多指教！谢谢！！！！