从存储过程发送邮件

Question

我需要通过oracle数据库发送电子邮件pl/sql，存储过程必须包括认证（用户名/密码）

Answer 1

写邮件的存储过程。

CREATE OR REPLACE PROCEDURE send_mail 
     ( sender  IN VARCHAR2, 
      recipient IN VARCHAR2, 
      subject IN VARCHAR2, 
      message IN VARCHAR2) 
     IS 
      mailhost  VARCHAR2(30) := 
'YOUR.SMTP.SERVER'; 
      mail_conn utl_smtp.connection; 

     crlf VARCHAR2(2):= CHR(13) 
|| CHR(10); 
     mesg VARCHAR2(1000); 

     BEGIN 

      mail_conn := utl_smtp.open_connection 
(mailhost, 25); 
       mesg:= 'Date: ' || TO_CHAR(SYSDATE, 
'dd Mon yy 
hh24:mi:ss') || crlf || 
      'From: <'||sender||'>' || crlf || 
      'Subject: '||subject || crlf || 
      'To: '||recipient || crlf || 
      '' || crlf || message; 
      utl_smtp.helo(mail_conn, mailhost); 
      utl_smtp.mail(mail_conn, sender); 
      utl_smtp.rcpt(mail_conn, recipient); 
      utl_smtp.data(mail_conn, mesg); 
      utl_smtp.quit(mail_conn); 

     END; 

并调用存储过程如下：

begin 

send_mail('sender e-mail','dest e-mail','here 
goes subject','here goes 
message'); 

end;