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_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));

                           '  Your acoount is created as '

                        || pid

                        || ' and password is '

                        || ppw

   UTL_SMTP.write_data

               (l_mail_conn,

                   '  XXXX '

                || CHR (13)

               );

                (l_mail_conn,

                    'XXX '

                 || CHR (13)

                );

                        'http://IP地址 to log in.' || CHR (13)

         (l_mail_conn,

             '  XXXX'

          || CHR (13)

         );

   UTL_SMTP.write_data (l_mail_conn, 'what you can do.' || CHR (13));

                        '  XXX' || CHR (13)

   UTL_SMTP.write_data (l_mail_conn, '  Sincerely' || CHR (13));

   UTL_SMTP.write_data (l_mail_conn, ' ' || CHR (13));

                        'From XXXX ' || CHR (13)

   UTL_SMTP.close_data (l_mail_conn);