Sending E-mail Through Oracle Forms

Question

Hi all
what i want is as the following:
1- i would like to convert the report to the PDF file internally using code.
2- open the outlook.
3- attcah the PDF automatically to the e-mail.
4- finally sending the e-mail though outlook
could i do that in Oracle forms 6i if i could do that can anyone instruct me to do it step by step

Answer 1

Oh...it's now called ["My Oracle Support"|https://metalink.oracle.com/] .
There's a note on "My Oracle Support" on this item.
This is the note:
Subject:      OLE AUTOMATION: Example Sending a Mail From Forms to Outlook
       Doc ID:      119828.1      Type:      BULLETIN
       Modified Date :      02-SEP-2008      Status:      PUBLISHED
PURPOSE
This document contains a sample code how to send an e-mail from Forms to Outlook
(97-2000). 
SCOPE & APPLICATION
It can be used in addition of the whitepaper "Cracking Outlook!", which explains
the object model of Outlook in detail.
(Have a look in the Technical Libaries Folder Forms Whitepaper, their you can
find it)
OLE: Forms to Outlook
Object Model
"Cracking outlook!" explains the Object Model, you can find additional
information in the Visual Basic Help of Outlook, which must be installed from
your Office CD-Rom.  Once installed, you can access the help
by choosing Tools->Macro->Visual Basic Editor and then go to the Help or
Object Browser (view -> Object Browser)
Now you can retrieve the Objects, their Methods and Properties. 
Eg: the 'Application' Object has the Method 'CreateItem'.
Note this information is also available in MSDN library or if you require more
information on this Microsoft has to be contacted.
OLE2, CLIENT_OLE2 Package
Once you know the Objects, Methods and Properties you can access them with the
OLE2 package.  This package provides a PL/SQL API for creating, manipulating,
and accessing attributes of OLE2 automation objects.  When using OLE2 with
WebForms every call will be executed on the midtier and not on the client. 
So alternatively, the CLIENT_OLE2 package can be used, that is delivered by
Webutil, to execute the OLE code on the client.
Examples
Once you know the Outlook Object model and you know the functions of the OLE2
or CLIENT_OLE2 package you can write your own OLE2/CLIENT_OLE2 code to send a
mail via Outlook.
Here below are 2 different ways of sending an email using Outlook. 
Sample 1:
OLE2 sample: Here a MailItem is created, then the Recepient is explicitely
added and resolved.  The mailItem is saved before being sent.
Declare
/*declaration of the Outlook Object Variables*/
application ole2.OBJ_TYPE;     
hMailItem ole2.OBJ_TYPE;
hRecipients ole2.OBJ_TYPE;
recipient ole2.OBJ_TYPE;
nameSpace OLE2.OBJ_TYPE;
/*declaration of the argument list*/ 
args OLE2.LIST_TYPE;          
begin
/*create the Application Instance*/
application:=ole2.create_obj('Outlook.Application');          
/* create namespace and login */
args:=ole2.create_arglist;
ole2.add_arg(args,'MAPI');
nameSpace:=ole2.invoke_obj(application,'getNameSpace',args);
ole2.destroy_arglist(args);
ole2.invoke(nameSpace,'Logon');
/*create a Mail Instance by calling CreateItem Method and giving argument 0 with
it,
you can find the item types in the explanation of the CreateItem Method
(0=olMailItem,1=olAppointmentItem, ?)*/
args:=ole2.create_arglist;                         
ole2.add_arg(args,0);
hMailItem:=ole2.invoke_obj(application,'CreateItem',args);
ole2.destroy_arglist(args);
/*Get the Recipients property of the MailItem object: 
Returns a Recipients collection that represents all the Recipients for the
Outlook item*/
args:=ole2.create_arglist;
hRecipients:=ole2.get_obj_property(hMailItem,'Recipients',args);
ole2.destroy_arglist(args);
/*Use the Add method to create a recipients Instance and add it to the
Recipients collection*/
args:=ole2.create_arglist;
ole2.add_arg(args,'[email protected]');
recipient:=ole2.invoke_obj(hRecipients,'Add',args);
  /* put the property Type of the recipient Instance  to value needed
(0=Originator,1=To,2=CC,3=BCC)*/
ole2.set_property(recipient,'Type',1);
ole2.destroy_arglist(args);
/*Resolve the Recipients collection*/
args:=ole2.create_arglist;
ole2.invoke(hRecipients,'ResolveAll',args);
/*set the Subject and Body properties*/
ole2.set_property(hMailItem,'Subject','Test OLE2 to Outlook');
ole2.set_property(hMailItem,'Body','this is body text');
/*Save the mail*/
ole2.invoke(hMailItem,'Save',args);
ole2.destroy_arglist(args);
/*Send the mail*/
args:=ole2.create_arglist;
ole2.invoke(hMailItem,'Send',args);
ole2.destroy_arglist(args);
/*Release all your Instances*/
release_obj(hMailItem);
release_obj(recipient);
release_obj(hRecipients);
release_obj(nameSpace);
release_obj(application);
end;
Sample 2
CLIENT_OLE2 sample.  Here a MailItem is created with an attachment and directly
sent.
Declare
objOutlook CLIENT_OLE2.OBJ_TYPE;
objMail CLIENT_OLE2.OBJ_TYPE;
objArg CLIENT_OLE2.LIST_TYPE;
objAttach CLIENT_OLE2.OBJ_TYPE;
nameSpace CLIENT_OLE2.OBJ_TYPE;
BEGIN
objOutlook := CLIENT_OLE2.CREATE_OBJ('Outlook.Application');
/* create namespace and login */
args:=client_ole2.create_arglist;
client_ole2.add_arg(args,'MAPI');
nameSpace:=ole2.invoke_obj(objOutlook,'getNameSpace',args);
client_ole2.destroy_arglist(args);
client_ole2.invoke(nameSpace,'Logon');
-- Previous example usually used 'mapi.session' but this doesn't work correctly
--anymore.
objarg := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(objarg,0);
objMail := CLIENT_OLE2.INVOKE_OBJ(objOutlook,'CreateItem', objarg);
CLIENT_OLE2.DESTROY_ARGLIST(objarg);
objAttach := CLIENT_OLE2.GET_OBJ_PROPERTY(objmail, 'Attachments');
objarg := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(objarg,'c:\temp\test.txt'); -- filename
CLIENT_OLE2.SET_PROPERTY(objmail,'To','[email protected]');
CLIENT_OLE2.SET_PROPERTY(objmail,'Subject','Email sent from Oracle Forms 9i');
CLIENT_OLE2.SET_PROPERTY(objmail,'Body','This is an email that was sent using
CLIENT_OLE2 from Oracle forms 9i');
CLIENT_OLE2.INVOKE(objattach, 'Add', objarg);
CLIENT_OLE2.INVOKE(objmail,'Send');
CLIENT_OLE2.RELEASE_OBJ(objmail);
CLIENT_OLE2.RELEASE_OBJ(nameSpace);
CLIENT_OLE2.RELEASE_OBJ(objOutlook);
CLIENT_OLE2.DESTROY_ARGLIST(objarg);
END;
Notes:
These are just 2 different ways of sending a mail by Outlook and using the
Outlook Object Model.
The first example can also be used with CLIENT_OLE2, and the second example can
also be used with OLE2.
(just replace every OLE2 to CLIENT_OLE2 or every CLIENT_OLE2 call to OLE2).