使用utl_smtp从Oracle中发送电子邮件

　　create or replace PACKAGE sendmail IS 
　　procedure send (p_sender varchar2, 
　　p_recipient varchar2, 
　　p_subject varchar2, 
　　p_body varchar2 default null); 
　　end sendmail;

create or replace PACKAGE BODY sendmail IS 
　　procedure common (p_sender varchar2, 
　　p_recipient varchar2, 
　　p_subject varchar2, 
　　c out utl_smtp.connection) is 
　　v_recipient varchar2(1000); 
　　begin 
　　--make connection to smtp 
　　c := utl_smtp.open_connection('smtp.example.com'); 
　　--identify the domain of the sender 
　　utl_smtp.helo(c, 'example.com'); 
　　--start a mail, specify the sender 
　　utl_smtp.mail(c, p_sender); 
　　--identify recipient 
　　utl_smtp.rcpt(c, v_recipient); 
　　--start the mail body 
　　utl_smtp.open_data(c); 
　　utl_smtp.write_data(c, 'From: ' || p_sender || utl_tcp.crlf); 
　　utl_smtp.write_data(c, 'To: ' || p_recipient || utl_tcp.crlf); 
　　utl_smtp.write_data(c, 'Subject: ' || p_subject || utl_tcp.crlf); 
　　exception 
　　when utl_smtp.transient_error or utl_smtp.permanent_error then 
　　utl_smtp.quit(c); 
　　raise; 
　　when others then 
　　raise; 
　　end common; 
　　procedure send (p_sender varchar2, 
　　p_recipient varchar2, 
　　p_subject varchar2, 
　　p_body varchar2 default null) is 
　　c utl_smtp.connection; 
　　begin 
　　common(p_sender, p_recipient, p_subject, c); 
　　utl_smtp.write_data(c, 'Content-Type: text/html' || utl_tcp.crlf); 
　　utl_smtp.write_data(c, utl_tcp.crlf || p_body); 
　　utl_smtp.close_data(c); 
　　utl_smtp.quit(c); 
　　exception 
　　when utl_smtp.transient_error or utl_smtp.permanent_error then 
　　utl_smtp.quit(c); 
　　raise; 
　　when others then 
　　raise; 
　　end send; 
　　end sendmail;

begin 
sendmail.send ('sender@example.com', 
'recipient@example.com', 
'Subject: Hello', 
'How about your trip?'); 
end;