Sending e-mail with UTL_SMTP along with TEXT attachment

Dear Readers

You may have requirements to maybe e-mail a text file which you generate using some process via a concurrent program.

In such case below code can help you out. You just need to pass the below

1. Email ID to who mail is to be sent
2. Subject of mail
3. Body of mail
4. Attachment flag (whether or not an attachment is there, pass N to get simple mail and no attachment, pass Y to send the attachment also)
5. Attachment directory : the directory where the text file resides
6. File Name: Name of text file

PROCEDURE send_email_notif

(

   p_email_id     IN    VARCHAR2,

   p_subject      IN    VARCHAR2,

   p_body         IN    VARCHAR2,

   p_attachment   IN    VARCHAR2,

   p_attach_dir   IN    VARCHAR2,

   p_attach_file  IN    VARCHAR2

)

IS

   lv_from           VARCHAR2(80) := 'someone@somedomain.com';

   lv_recipient      VARCHAR2(80) := p_email_id;

   lv_subject        VARCHAR2(80) := p_subject;

   lv_mail_host      VARCHAR2(30) := 'localhost';

   lv_mail_conn      utl_smtp.Connection;

   crlf              VARCHAR2(2)  := chr(13)||chr(10);

   lv_line           VARCHAR2(2000);

   lv_file           Utl_File.file_type;

BEGIN

   lv_mail_conn := utl_smtp.Open_Connection(lv_mail_host, 25);

   utl_smtp.Helo(lv_mail_conn, lv_mail_host);

   utl_smtp.Mail(lv_mail_conn, lv_from);

   utl_smtp.Rcpt(lv_mail_conn, lv_recipient);

   IF p_attachment = 'N'

   THEN

      utl_smtp.Data(lv_mail_conn,

         'Date: '   || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||

         'From: '   || lv_from || crlf ||

         'Subject: '|| lv_subject || crlf ||

         'To: '     || lv_recipient || crlf ||

         crlf || p_body || crlf

      );

   ELSE

      Utl_Smtp.open_data(lv_mail_conn);

      Utl_Smtp.write_data(lv_mail_conn,   'Date: '   || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||

                                          'From: '   || lv_from || crlf ||

                                          'Subject: '|| lv_subject || crlf ||

                                          'To: '     || lv_recipient || crlf ||

                                             'MIME-Version: 1.0'|| crlf ||    -- Use MIME mail standard

                                          'Content-Type: multipart/mixed;'|| crlf ||

                                          ' boundary="-----SECBOUND"'|| crlf ||

                                          crlf ||

                                          '-------SECBOUND'|| crlf ||

                                          'Content-Type: text/plain;'|| crlf ||

                                          'Content-Transfer_Encoding: 7bit'|| crlf ||

                                          crlf || p_body || crlf ||

                                          crlf ||

                                          '-------SECBOUND'|| crlf ||

                                          'Content-Type: text/plain;'|| crlf ||

                                          ' name="' || p_attach_file || '"'|| crlf ||

                                          'Content-Transfer_Encoding: 8bit'|| crlf ||

                                          'Content-Disposition: attachment;'|| crlf ||

                                          ' filename="' || p_attach_file || '"'|| crlf ||

                                          crlf);

      lv_file := Utl_File.fopen(p_attach_dir, p_attach_file, 'R');

      LOOP

         BEGIN

            Utl_File.get_line(lv_file, lv_line);

         EXCEPTION

            WHEN OTHERS THEN

               EXIT;

         END;

         Utl_Smtp.write_data(lv_mail_conn, lv_line || crlf);

      END LOOP;

      Utl_Smtp.write_data(lv_mail_conn, crlf || '-------SECBOUND--');

      Utl_File.fclose(lv_file);

      Utl_Smtp.close_data(lv_mail_conn);

   END IF;

   utl_smtp.Quit(lv_mail_conn);

END send_email_notif;

Hope this helps

Cheers
A