Re: Seding mail forms using outlook
From: Vladimir M. Zakharychev <bob_at_dpsp-yes.com>
Date: Mon, 13 Jan 2003 16:24:30 +0300
Message-ID: <avuemb$kmd$1_at_babylon.agtel.net>
Date: Mon, 13 Jan 2003 16:24:30 +0300
Message-ID: <avuemb$kmd$1_at_babylon.agtel.net>
-
[Quoted]
- a link to commercial product follows, my apologies to all those taking
- this as an offence.
http://www.dpsp-yes.com/dpsp/prod/!go?ln=p_mail
-- Vladimir Zakharychev (bob_at_dpsp-yes.com) http://www.dpsp-yes.com Dynamic PSP(tm) - the first true RAD toolkit for Oracle-based internet applications. All opinions are mine and do not necessarily go in line with those of my employer. "rameshk" <member22202_at_dbforums.com> wrote in message news:2370860.1042180828_at_dbforums.com...Received on Mon Jan 13 2003 - 14:24:30 CET
>
> Hi ,
> 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