[cheenu]

How I can send ane email through oracle 10g forms ?

[abdhalm]

Declare

objOutlook CLIENT_OLE2.OBJ_TYPE;
objMail CLIENT_OLE2.OBJ_TYPE;
objArg CLIENT_OLE2.LIST_TYPE;
objAttach CLIENT_OLE2.OBJ_TYPE;

BEGIN

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

-- 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','Joe.Friday@ oracle.com');

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(objOutlook);
CLIENT_OLE2.DESTROY_ARGLIST(objarg);

END;