Seding mail forms using outlook

From: rameshk <member22202_at_dbforums.com>
Date: Fri, 10 Jan 2003 06:40:28 +0000
Message-ID: <2370860.1042180828_at_dbforums.com>

Hi ,
[Quoted] [Quoted] My application has to send simple mail using forms, i had written code for that. Below is code for sending mail. Its working fine if i am using client-server mode, but in 3-tier mode mail not sent instead application became busy indefinitely. Because in application server where forms installed, outlook express not installed.
Is it possible to look up the outlook application sitting at the client machine from where the brower accessing the application. Need this help urgently. Pls.

Declare

sender          varchar2(75);
        recipient       varchar2(75);
        mail_body       varchar2(200);
        emp_name        varchar2(100);
        subject         varchar2(100);
        objOutlook OLE2.OBJ_TYPE;

  objMail OLE2.OBJ_TYPE;
  objArg OLE2.LIST_TYPE;
Begin
subject := 'Leave application pending.. !';

        mail_body := emp_name||' has applied for leave. Waiting for your
        approval !';

        objOutlook := OLE2.CREATE_OBJ('Outlook.Application');

  objarg := OLE2.CREATE_ARGLIST;
  OLE2.ADD_ARG(objarg,0);
  objMail := OLE2.INVOKE_OBJ(objOutlook,'CreateItem',objarg);   OLE2.DESTROY_ARGLIST(objarg);

• OLE2.SET_PROPERTY(objmail,'From',sender); OLE2.SET_PROPERTY(objmail,'To',recipient); OLE2.SET_PROPERTY(objmail,'Subject',SUBJECT); OLE2.SET_PROPERTY(objmail,'Body',mail_body);

  OLE2.INVOKE(objmail,'Send');
  OLE2.INVOKE(objmail,'Display');
  OLE2.RELEASE_OBJ(objmail);
  OLE2.RELEASE_OBJ(objOutlook);

End;

Ramesh

--
Ramesh


Posted via http://dbforums.com

Received on Fri Jan 10 2003 - 07:40:28 CET