Oracle中發郵件代碼

CREATE OR REPLACE PROCEDURE send_mail (
   pemail   IN   VARCHAR2,
   ppw      IN   VARCHAR2,
   pid      IN   VARCHAR2
)
IS
   l_mailhost    VARCHAR2 (64)       := 'IP';
   l_from        VARCHAR2 (64)       := '账号@邮件域名';
   l_subject     VARCHAR2 (64)       := '标题';
   l_to          VARCHAR2 (64)       := pemail;
   l_mail_conn   UTL_SMTP.connection;
BEGIN
   --l_mail_conn := UTL_SMTP.open_connection(l_mailhost, 25);
   --UTL_SMTP.helo(l_mail_conn, l_mailhost);

   -- open SMTP connection
   l_mail_conn := UTL_SMTP.open_connection(l_mailhost, 端口);
   UTL_SMTP.ehlo (l_mail_conn, l_mailhost);
   UTL_SMTP.command (l_mail_conn, 'xxxx');
   UTL_SMTP.command
      (l_mail_conn,
       UTL_RAW.cast_to_varchar2
                      (UTL_ENCODE.base64_encode (UTL_RAW.cast_to_raw ('XXX')
                                                )
                      )
      );
   UTL_SMTP.command
      (l_mail_conn,
       UTL_RAW.cast_to_varchar2
                      (UTL_ENCODE.base64_encode (UTL_RAW.cast_to_raw ('xXXX')
                                                )
                      )
      );
      
   UTL_SMTP.mail (l_mail_conn, l_from);
   UTL_SMTP.rcpt (l_mail_conn, l_to);
   UTL_SMTP.open_data (l_mail_conn);
   UTL_SMTP.write_data (l_mail_conn,
                           'Date: '
                        || TO_CHAR (SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
                        || CHR (13)
                       );
   UTL_SMTP.write_data (l_mail_conn, 'From: ' || l_from || CHR (13));
   UTL_SMTP.write_data (l_mail_conn, 'Subject: ' || l_subject || CHR (13));
   UTL_SMTP.write_data (l_mail_conn, 'To: ' || l_to || CHR (13));
   UTL_SMTP.write_data (l_mail_conn, '' || CHR (13));
   UTL_SMTP.write_data (l_mail_conn, 'Dear Sir' || CHR (13));
   UTL_SMTP.write_data (l_mail_conn, '' || CHR (13));
   UTL_SMTP.write_data (l_mail_conn,
                           '  Your acoount is created as '
                        || pid
                        || ' and password is '
                        || ppw
                        || CHR (13)
                       );
   UTL_SMTP.write_data
               (l_mail_conn,
                   '  XXXX '
                || CHR (13)
               );
   UTL_SMTP.write_data
                (l_mail_conn,
                    'XXX '
                 || CHR (13)
                );
   UTL_SMTP.write_data (l_mail_conn,
                        'http://IP地址 to log in.' || CHR (13)
                       );
   UTL_SMTP.write_data
         (l_mail_conn,
             '  XXXX'
          || CHR (13)
         );
   UTL_SMTP.write_data (l_mail_conn, 'what you can do.' || CHR (13));
   UTL_SMTP.write_data (l_mail_conn,
                        '  XXX' || CHR (13)
                       );
   UTL_SMTP.write_data (l_mail_conn, '' || CHR (13));
   UTL_SMTP.write_data (l_mail_conn, '  Sincerely' || CHR (13));
   UTL_SMTP.write_data (l_mail_conn, ' ' || CHR (13));
   UTL_SMTP.write_data (l_mail_conn,
                        'From XXXX ' || CHR (13)
                       );
   UTL_SMTP.close_data (l_mail_conn);
   UTL_SMTP.quit (l_mail_conn);
END;