Oracle Forms

Getting the below error from this line in the below code listed below: objNS := CLIENT_OLE2.invoke_obj(objOutlook,'GetNameSpace',objArg);
WUO-700: Unable to create the OLE Server
Outlook.Application;Exception
com.jacob.com.ComFailException: Can't get object clsid from progid

100501:non-ORACLE exception

Webutil and jacob are working fine and I am able to use client_ole2 to create appointments and contacts in the local users Outlook. However with the below code I'm trying to create appointments in other users Outlook.

PROCEDURE make_app2 (p_subject char, p_location char, p_start date, p_end date, p_body char, p_min number) IS

objOutlook CLIENT_OLE2.OBJ_TYPE;
objNS CLIENT_OLE2.OBJ_TYPE;
objRecip CLIENT_OLE2.OBJ_TYPE;
objFolder CLIENT_OLE2.OBJ_TYPE;
objAppt CLIENT_OLE2.OBJ_TYPE;
p_string varchar2(60) := null;
objArg CLIENT_OLE2.LIST_TYPE;
t_resolved boolean := FALSE;

BEGIN
objOutlook := CLIENT_OLE2.CREATE_OBJ('Outlook.Application');
objRecip := CLIENT_OLE2.CREATE_OBJ('Outlook.Recipient');
objNS := CLIENT_OLE2.create_obj('Outlook.NameSpace');
objArg := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(objArg,'MAPI');
objNS := CLIENT_OLE2.invoke_obj(objOutlook,'GetNameSpace',objArg);
CLIENT_OLE2.DESTROY_ARGLIST(objArg);
objFolder := CLIENT_OLE2.CREATE_OBJ('Outlook.MAPIFolder');
objAppt := CLIENT_OLE2.CREATE_OBJ('Outlook.AppointmentItem');

p_string := 'ldehan@alliancepackaging.net';
objRecip := CLIENT_OLE2.invoke_OBJ(objNS, 'CreateRecipient',p_string);
objFolder := CLIENT_OLE2.invoke_OBJ('GetSharedDefaultFolder',objRecip, 'Outlook.olDefaultFolders.olFolderCalendar');

--
objArg := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(objArg,1);
objAppt := CLIENT_OLE2.INVOKE_OBJ(objOutlook,'CreateItem', objArg);
CLIENT_OLE2.DESTROY_ARGLIST(objArg);
--
--
CLIENT_OLE2.SET_PROPERTY(objAppt,'subject', p_subject);
CLIENT_OLE2.SET_PROPERTY(objAppt,'location', p_location);
CLIENT_OLE2.SET_PROPERTY(objAppt,'body', p_body);
CLIENT_OLE2.SET_PROPERTY(objAppt,'start', TO_CHAR(p_start,'DD/MM/YYYY HH24:MI' ));
CLIENT_OLE2.SET_PROPERTY(objAppt,'end', TO_CHAR(p_end,'DD/MM/YYYY HH24:MI'));
CLIENT_OLE2.SET_PROPERTY(objAppt,'ReminderMinutesBeforeStart', p_min);


--
CLIENT_OLE2.INVOKE(objAppt, 'Save');
--
CLIENT_OLE2.RELEASE_OBJ(objAppt);
CLIENT_OLE2.RELEASE_OBJ(objOutlook);
CLIENT_OLE2.RELEASE_OBJ(objNS);
CLIENT_OLE2.RELEASE_OBJ(objRecip);
CLIENT_OLE2.RELEASE_OBJ(objFolder);

Exception
When others then
message(sqlcode||' '||sqlerrm);
RAISE FORM_TRIGGER_FAILURE;
END;

Edited by: user1065650 on Jul 18, 2012 9:53 AM