Need to read Email from Lotusnotes and Outlook using Oracle

Question

Dear All,
My database version Oracle 10.2
I need to read Email from Lotusnotes and Outlook using Oracle.
I have tried with below link
http://sourceforge.net/projects/plsqlmailclient/The problem is i am getting some java error.
Can anyone suggest me to proceed further.
Cheers,
San

Answer 1

I am using the another function to read an email from pop3 server
create or replace
FUNCTION pop3 (
   username   VARCHAR2,
   PASSWORD   VARCHAR2,
   msgnum     NUMBER
   RETURN tstrings PIPELINED
IS
   --POP3_SERVER             constant varchar2(19) := '127.0.0.1';
   pop3_server   CONSTANT VARCHAR2 (100)     := 'xxxxxx';
   pop3_port     CONSTANT NUMBER             := 110;
   --POP3_TIMEOUT            constant number := 10;
   pop3_ok       CONSTANT VARCHAR2 (10)      := '+OK';
   e_pop3_error           EXCEPTION;
   --E_READ_TIMEOUT  exception;
   --pragma exception_init( E_READ_TIMEOUT, -29276 );
   socket                 UTL_TCP.connection;
   line                   VARCHAR2 (30000);
   BYTES                  INTEGER;
   -- send a POP3 command
   -- (we expect each command to respond with a +OK)
   FUNCTION writetopop (command VARCHAR2)
      RETURN VARCHAR2
   IS
      len    INTEGER;
      resp   VARCHAR2 (30000);
   BEGIN
      len := UTL_TCP.write_line (socket, command);
      UTL_TCP.FLUSH (socket);
      -- using a hack to check the popd response
      len := UTL_TCP.read_line (socket, resp);
      IF SUBSTR (resp, 1, 3) != pop3_ok
     THEN
       RAISE e_pop3_error;
      END IF;
      RETURN (resp);
   END;
BEGIN
--UTL_TCP.CLOSE_CONNECTION (SOCKET);
   PIPE ROW ('pop3:' || pop3_server || ' port:' || pop3_port);
   -- Just to make sure there are no previously opened connections
   UTL_TCP.close_all_connections;
   -- open a socket connection to the POP3 server
   socket :=
      UTL_TCP.open_connection (remote_host      => pop3_server,
                               remote_port      => pop3_port,
                               --tx_timeout => POP3_TIMEOUT,
                               CHARSET          => 'US7ASCII'
   -- read the server banner/response from the pop3 daemon
   PIPE ROW (UTL_TCP.get_line (socket));
   -- authenticate with the POP3 server using the USER and PASS commands
   PIPE ROW ('USER ' || username);
   PIPE ROW (writetopop ('USER ' || username));
   PIPE ROW ('PASS ' || PASSWORD);
   PIPE ROW (writetopop ('PASS ' || PASSWORD));
   -- retrieve the specific message
   PIPE ROW ('RETR ' || msgnum);
   PIPE ROW (writetopop ('RETR ' || msgnum));
   --PIPE ROW( 'LIST '||msgNum ); PIPE ROW( WriteToPop('LIST '||msgNum) );
   PIPE ROW ('*** START OF INTERNET MESSAGE BODY ***');
   LOOP
   dbms_output.put_line('entering');
      BYTES := UTL_TCP.available (socket);
     IF BYTES > 0
      THEN
         BYTES := UTL_TCP.read_line (socket, line);
         line := REPLACE (line, CHR (13) || CHR (10), '');
         -- WILL HAVE TO USE PLSQL FUNCTIONS (HAVE BOOKMARKED) TO GET THE MAIL
         -- IN THE PREFERRED FORMAT. CAN USE "REPLACE()"
         IF LENGTH (line) = 1 AND line = '.'
         THEN
            PIPE ROW ('*** END OF INTERNET MESSAGE BODY ***');
         ELSE
            PIPE ROW (line);
         end if;
     END IF;
      EXIT when length (LINE) = 1 and LINE = '.';
      -- PIPE ROW (line);
   END LOOP;
   --PIPE ROW( '*** END OF INTERNET MESSAGE BODY ***' );
   -- close connection
   PIPE ROW ('QUIT');
   PIPE ROW (writetopop ('QUIT'));
   UTL_TCP.CLOSE_CONNECTION (SOCKET);
EXCEPTION
   WHEN e_pop3_error
   THEN
      PIPE ROW ('There are no mails !');
END;I am getting the below output .
21     pop3:sbssld1 port:110
75     "+OK Lotus Notes POP3 server version Release 8.0.1 ready on SBSSLD1/SBPSS.
47     USER [email protected]
69     "+OK [email protected], your papers please.
13     PASS password
63     "+OK [email protected] has 1 message.
6     RETR 1
17     "+OK 1546 octets
38     *** START OF INTERNET MESSAGE BODY ***
9     Subject:
48     X-KeepSent: A231D6D0:8485FE4B-65257AB1:0022E60F;
23      type=4; name=$KeepSent
46     To: [email protected]
53     X-Mailer: Lotus Notes Release 8.0.1 February 07, 2008
95     Message-ID: <[email protected]mbnpparibasfs.in>
48     From: [email protected]
36     Date: Fri, 9 Nov 2012 11:51:14 +0530
90     X-MIMETrack: Serialize by POP3 Server on SBSSLD1/SBPSS(Release 8.0.1|February 07, 2008) at
23      11/09/2012 11:51:21 AM
17     MIME-Version: 1.0
37     Content-type: multipart/alternative;
68     "     Boundary="0__=EABBF022DFB16ED68f9e8a93df938690918cEABBF022DFB16ED6""
27     Content-Disposition: inline
(null)     (null)
58     --0__=EABBF022DFB16ED68f9e8a93df938690918cEABBF022DFB16ED6
39     Content-type: text/plain; charset=UTF-8
33     Content-transfer-encoding: base64
(null)     (null)
(null)     (null)
76     DQoNCg0KUmVnYXJkcywNClNoYW5tdWdhbSBOYXRhcmFqYW4uDQpNb2IgOiA5NjI5MjUyNDI1DQpP
76     ZmYgOiAwNDQgMjI1MDQ3MDAgRXh0biA0Nzc5DQoNCiB+SWYgdGhlIGZhY3RzIGRvbuKAmXQgZml0
68     IHRoZSB0aGVvcnksIGNoYW5nZSB0aGUgZmFjdHMu4oCdIC0gQWxiZXJ0IEVpbnN0ZWlu
(null)     (null)
58     --0__=EABBF022DFB16ED68f9e8a93df938690918cEABBF022DFB16ED6
38     Content-type: text/html; charset=UTF-8
27     Content-Disposition: inline
33     Content-transfer-encoding: base64
(null)     (null)
76     PGh0bWw+PGJvZHk+DQo8cD5SZWdhcmRzLDxicj4NClNoYW5tdWdhbSBOYXRhcmFqYW4uPGJyPg0K
76     TW9iIDogOTYyOTI1MjQyNTxicj4NCk9mZiA6IDA0NCAyMjUwNDcwMCBFeHRuIDQ3Nzk8YnI+DQo8
76     YnI+DQogfklmIHRoZSBmYWN0cyBkb27igJl0IGZpdCB0aGUgdGhlb3J5LCBjaGFuZ2UgdGhlIGZh
60     Y3RzLuKAnSAtIEFsYmVydCBFaW5zdGVpbjxicj4NCjwvYm9keT48L2h0bWw+
(null)     (null)
60     --0__=EABBF022DFB16ED68f9e8a93df938690918cEABBF022DFB16ED6--
(null)     (null)
36     *** END OF INTERNET MESSAGE BODY ***
4     QUIT
42     "+OK Lotus Notes POP3 server signing off.
"Now pls suggest me how can i store the sender mail id, receiver mail id, subject and body of the mail in a table.
So that i can display the saved data in the above table as a mail in my separate application.
Thanks in advance.
Cheers,
San