Re: Seding mail forms using outlook

From: DA Morgan <damorgan_at_exesolutions.com>
Date: Mon, 13 Jan 2003 09:28:30 -0800
Message-ID: <3E22F73E.D216B35D_at_exesolutions.com>


"Vladimir M. Zakharychev" wrote:

> *** 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...
> >
> > 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

Your replies are always valuable and given the integrity of your comment I take no umbrage.

Daniel Morgan Received on Mon Jan 13 2003 - 18:28:30 CET

Original text of this message