发表于: 2005.03.19 18:05
分类: Oracle
出处: http://ragingfire.itpub.net/post/4961/22791
---------------------------------------------------------------
p_recipient IN VARCHAR2,
p_message IN VARCHAR2,
p_subject IN VARCHAR2 default '',
p_sender IN VARCHAR2 default 'shenjie@akey.net.cn')
IS
crlf varchar2(2) := chr(13) || chr(10);
v_mailhost varchar2(30) := '219.133.31.89';
mail_conn utl_smtp.connection;
msg varchar2(4000) := 'Date:' ||
to_char(sysdate,'dd mon yy hh24:mi:ss') || crlf ||
'From: ' || p_sender || '<'||p_sender||'>' ||crlf ||
'Subject: '||p_subject || crlf||
'To: '|| p_recipient || '<' || p_recipient || '>' ||crlf||
p_message;
begin
mail_conn := utl_smtp.open_connection(v_mailhost,25);
utl_smtp.helo(mail_conn,v_mailhost);
utl_smtp.mail(mail_conn,p_sender);
utl_smtp.rcpt(mail_conn,p_recipient);
utl_smtp.data(mail_conn,msg);
utl_smtp.quit(mail_conn);
exception
when others then
dbms_output.put_line(dbms_utility.format_error_stack);
dbms_output.put_line(dbms_utility.format_call_stack);
end;
/
exec send_email('shenjie@itownet.cn','happy week end');
Execute demo_mail.mail('shenjie@akey.net.cn','shenjie@akey.net.cn','ishenjie','shenjie');











