Oracle Zip and Send Mail

Question

Hi,
I was just wondering if there is a pl/sql code that would do the following:
1. Zip a file (originally generated from DB query written to Unix OS using UTL_FILE package).
2. Place a password on the file.
3. Send the file as an attachment in mail.
Thanks in advance.

Answer 1

For compression, you can use UTL_COMPRESS package.
[oracle@db11ghost ~]$ cat compress_data.txt
aaaaaaaaaaaaaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbbbbbbbbbbb
cccccccccccccccccccccccccccc
[oracle@db11ghost ~]$
Below is example how to load file to table as compressed blob. Later you can save this blob to file (pls, search google there are many examples how to do it) and send mail as attach.
SQL> create directory MYDIR as '/home/oracle/';
Directory created.
declare
  ablob blob;
  abfile bfile := bfilename('MYDIR', 'compress_data.txt');
  amount integer;
  asize integer;
  a_compressed_blob blob;
  q integer := 1; ---- The level of compression from 1-9
  cursor blob_cur is select * from myt1;
begin
  insert into myt1 values (1, empty_blob());
  select y into ablob from myt1 where x = 1;
  dbms_lob.fileopen(abfile);
  asize := dbms_lob.getlength(abfile);
  dbms_output.put_line('Size of input file: ' || asize);
  -- load the file (txt file) into the blob column and look at the size
  dbms_lob.loadfromfile(ablob, abfile, asize);
  asize := dbms_lob.getlength(ablob);
  dbms_output.put_line('Size of blob after loading fromfile: ' || asize);
  -- compress the blob
  a_compressed_blob := utl_compress.lz_compress(ablob, q);
  -- insert the compressed blob into the table in another row
  insert into myt1 values (2, a_compressed_blob);
  -- compare the sizes of the blob contents that are in the table now
  dbms_output.put_line('Sizes are -->');
  for c1_rec in blob_cur
    loop
    asize := dbms_lob.getlength(c1_rec.y);
    dbms_output.put_line(asize);
  end loop;
end;
Size of input file: 87
Size of blob after loading fromfile: 87
Sizes are -->
87
32
PL/SQL procedure successfully completed.For sending you can use UTL_MAIL (http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/u_mail.htm#i1001258)