Make appointments in MS outlook via OLE2 objects

>>Script Language and Platform: Oracle
This procedure makes appointments in MS outlook via OLE2 objects in Oracle.

Author: Julio Paz

-----------------------------------------------------------------------
-- appointments via OLE2 in ORACLE
-----------------------------------------------------------------------
PROCEDURE CITAS (subject_par char, 
location_par char, 
start_par date, 
end_par date, 
body_par char) IS

objOutlook OLE2.OBJ_TYPE;
objCITA OLE2.OBJ_TYPE;
objCITA2 OLE2.OBJ_TYPE;
objArg OLE2.LIST_TYPE;

BEGIN
objOutlook := OLE2.CREATE_OBJ('Outlook.Application');

-- Se define que tipo de aplicacion de outlook
-- 0 E-mail
-- 1 Calendario CALENDAR
-- 2 Contacto CONTACT
-- 3 Tarea TASK
-- 4 Diario 
-- 5 Nota NOTE
-- 6 Discusion CHAT
-- 7 Lista de Distribucion DITRIBUTION LIST
--
objArg := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(objArg,1);
objcita := OLE2.INVOKE_OBJ(objOutlook,'CreateItem', objArg);
OLE2.DESTROY_ARGLIST(objArg);
--
--
OLE2.SET_PROPERTY(objcita,'subject', subject_par);
OLE2.SET_PROPERTY(objcita,'location', location_par);
OLE2.SET_PROPERTY(objcita,'body', body_par);
OLE2.SET_PROPERTY(objcita,'start', TO_CHAR(start_par,'DD/MM/YYYY HH24:MI' ));
OLE2.SET_PROPERTY(objcita,'end', TO_CHAR(END_par,'DD/MM/YYYY HH24:MI'));
-- 
OLE2.INVOKE(objcita, 'Save');
--
OLE2.RELEASE_OBJ(objcita);
OLE2.RELEASE_OBJ(objOutlook); 

Exception
When FORM_TRIGGER_FAILURE then null;
When others then RAISE FORM_TRIGGER_FAILURE;
END;

Disclaimer: We hope that the information on these script pages is valuable to you. Your use of the information contained in these pages, however, is at your sole risk. All information on these pages is provided "as -is", without any warranty, whether express or implied, of its accuracy, completeness, or fitness for a particular purpose... Disclaimer Continued

Back to Database Journal Home