-4

我需要通过 oracle 数据库 pl/sql 发送电子邮件,存储过程必须包括身份验证(用户名/密码)

4

1 回答 1

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;
于 2014-10-20T16:36:52.360 回答