Re: how send mail from Forms?

Daniel A. Morgan <dmorgan_at_exesolutions.com> wrote in message news:3A7E2364.4F4E45DA_at_exesolutions.com...
> > I know that forms hasn't sending mail function.
 

> > How send mail from Forms?
>
> If you have Oracle 8i look at the UTL_SMTP built in package.

or use OLE:

begin
 declare
 objOutlook OLE2.OBJ_TYPE;
 objMail OLE2.OBJ_TYPE;
 objArg OLE2.LIST_TYPE;

  BEGIN
  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,'To','emailadres_at_domain.com');
  OLE2.SET_PROPERTY(objmail,'Subject',MailSub);
  OLE2.SET_PROPERTY(objmail,'Body',MailData);
  OLE2.INVOKE(objmail,'Send');
  OLE2.INVOKE(objmail,'Display');
  OLE2.RELEASE_OBJ(objmail);
  OLE2.RELEASE_OBJ(objOutlook);