CREATE OR REPLACE PROCEDURE mail_files (
   from_name   VARCHAR2,
   to_name     VARCHAR2,
   subject     VARCHAR2,
   MESSAGE     VARCHAR2,
   max_size    NUMBER DEFAULT 99999,
   filename1   VARCHAR2
)
IS
   v_smtp_server          VARCHAR2 (20)       := 'Mail.XYZ.com';
   v_smtp_server_port     NUMBER              := 25;
   v_directory_name       VARCHAR2 (100);
   v_file_name            VARCHAR2 (100);
   v_line                 VARCHAR2 (1000);
   crlf                   VARCHAR2 (2)        := CHR (13) || CHR (10);
   mesg                   VARCHAR2 (32767);
   conn                   UTL_SMTP.connection;

   TYPE varchar2_table IS TABLE OF VARCHAR2 (200)
      INDEX BY BINARY_INTEGER;

   file_array             varchar2_table;
   i                      BINARY_INTEGER;
   v_file_handle          UTL_FILE.file_type;
   v_slash_pos            NUMBER;
   mesg_len               NUMBER;
   mesg_too_long          EXCEPTION;
   invalid_path           EXCEPTION;
   mesg_length_exceeded   BOOLEAN             := FALSE;
BEGIN
   file_array (1) := filename1;
   conn := UTL_SMTP.open_connection (v_smtp_server, v_smtp_server_port);
   UTL_SMTP.helo (conn, v_smtp_server);
   UTL_SMTP.mail (conn, from_name);
   UTL_SMTP.rcpt (conn, to_name);
   UTL_SMTP.open_data (conn);
   mesg :=
         'Date: '
      || TO_CHAR (SYSDATE, 'dd Mon yy hh24:mi:ss')
      || crlf
      || 'From: '
      || from_name
      || crlf
      || 'Subject: '
      || subject
      || crlf
      || 'To: '
      || to_name
      || crlf
      || 'Mime-Version: 1.0'
      || crlf
      || '--DMW.Boundary.605592468'
      || crlf
      || 'Content-Type: text/html; charset=window-1256'
      || crlf
      || 'Content-Transfer-Encoding: 7bit'
      || crlf
      || MESSAGE
      || crlf;
   mesg_len := LENGTH (mesg);

   IF mesg_len > max_size
   THEN
      mesg_length_exceeded := TRUE;
   END IF;

   UTL_SMTP.write_data (conn, mesg);

   IF file_array (1) IS NOT NULL
   THEN
      v_slash_pos := INSTR (file_array (1), '/', -1);

      IF v_slash_pos = 0
      THEN
         v_slash_pos := INSTR (file_array (1), '', -1);
      END IF;

      v_directory_name := SUBSTR (file_array (1), 1, v_slash_pos - 1);
      v_directory_name := 'D_FOLDER';
      v_file_name := SUBSTR (file_array (1), v_slash_pos + 1);
      v_file_name := 'text1.txt';
      v_file_handle := UTL_FILE.fopen (v_directory_name, v_file_name, 'r');
      mesg :=
            crlf
         || '--DMW.Boundary.605592468'
         || crlf
         || 'Content-Type: text/html; charset="window-1256"; name="'
         || v_file_name
         || '"'
         || crlf
         || 'Content-Disposition: attachment; filename="'
         || v_file_name
         || '"'
         || crlf
         || 'Content-Transfer-Encoding: quoted-printable'
         || crlf
         || crlf;
      mesg_len := mesg_len + LENGTH (mesg);
      UTL_SMTP.write_data (conn, mesg);

      LOOP
         BEGIN
            UTL_FILE.get_line (v_file_handle, v_line);
         EXCEPTION
            WHEN NO_DATA_FOUND
            THEN
               EXIT;
         END;

         IF mesg_len + LENGTH (v_line) > max_size
         THEN
            mesg := '*** truncated ***' || crlf;
            UTL_SMTP.write_data (conn, mesg);
            mesg_length_exceeded := TRUE;
            RAISE mesg_too_long;
         END IF;

         mesg := v_line || crlf;
         UTL_SMTP.write_data (conn, mesg);
         mesg_len := mesg_len + LENGTH (mesg);
      END LOOP;

      mesg := crlf;
      UTL_SMTP.write_data (conn, mesg);
      UTL_FILE.fclose (v_file_handle);
   END IF;

   mesg := crlf || '--DMW.Boundary.605592468--' || crlf;
   UTL_SMTP.write_data (conn, mesg);
   UTL_SMTP.close_data (conn);
   UTL_SMTP.quit (conn);
END;
/