Communication ORACLE - OUTLOOK - read mail - problem

Question

Hi !!
I have a problem with communication with ORACLE<->OUTLOOK.
I need read mail from Outlook, i know EntryID mail.
It's no go. I need help, please.
Pavol
My email : [email protected]
Here my code :
PROCEDURE kr_findmail_z(p_mail_id IN VARCHAR2)
IS
objArgL OLE2.OBJ_TYPE;
objAppOutlook OLE2.OBJ_TYPE;
objNameSpace OLE2.OBJ_TYPE;
objFolders OLE2.OBJ_TYPE;
objFolder OLE2.OBJ_TYPE;
objMailItems OLE2.OBJ_TYPE;
objMailItem OLE2.OBJ_TYPE;
objUserProperties OLE2.OBJ_TYPE;
objUserProperty OLE2.OBJ_TYPE;
objSelection OLE2.OBJ_TYPE;
v_id_new varchar2(2000);
v_id_folder varchar2(2000);
v_folder varchar2(2000);
v_test BOOLEAN;
v_count1 NUMBER(10);
v_count2 VARCHAR2(10);
v_value1 NUMBER(10);
v_value2 VARCHAR2(140);
BEGIN
-- Create Outlook Application Object
objAppOutlook := ole2.create_obj('Outlook.Application');
-- Get Namespace
objArgL := ole2.create_arglist;
ole2.add_arg(objArgL,'MAPI');
objNameSpace := ole2.invoke_obj
(objAppOutlook, 'GetNamespace',objArgL);
ole2.destroy_arglist(objArgL);
--Find Folders
--objFolders:=ole2.invoke_obj(objOutBoxFolder,'Folders');
--message('ObjFolders : '||objFolders);
--pause;
--v_count1 := ole2.get_num_property(objFolders,'Count');
--message('Pocet Folders je : '||v_count1);
--pause;
--while v_count1 > 0 loop
-- bla bla ...
--end loop;
--Get Default-Folder
objArgL := ole2.create_arglist;
ole2.add_arg(objArgL,5);
objFolder := ole2.invoke_obj
(objNameSpace,'GetDefaultFolder',objArgL);
ole2.destroy_arglist(objArgL);
--message('ObjFolder : '||objFolder);
--Get all items in default Folder
objMailItems:=ole2.invoke_obj(objFolder,'Items');
v_count1 := ole2.get_num_property(objMailItems,'Count');
What to find Find my mail with Entry ID ???
objArgL := ole2.create_arglist;
ole2.add_arg(objArgL,'([EntryID]= '''||p_mail_id||''')');
objMailItem := ole2.invoke_obj(objMailItems,'Find',objArgL);
--here crashed program with error FRM-40735 (non oracle
exception)
ole2.destroy_arglist(objArgL);
--v_value2 := ole2.get_char_property(objMailItem,'EntryID');
--message('v_value2 je : '||v_value2);
--pause;
-- Display or Stop
IF objMailItem > 0 THEN
--v_value2 := ole2.get_char_property(objMailItem,'EntryID');
--message('v_value2 je : '||v_value2);
--pause;
ole2.invoke(objMailItem,'Display');
ELSIF objMailItem = 0 THEN
message('Dieser Bericht ist nicht existieren !');
RETURN;
END IF;
-- Release objects
ole2.release_obj(objMailItems);
ole2.release_obj(objMailItem);
ole2.release_obj(objFolder);
--ole2.release_obj(objFolders);
ole2.release_obj(objNameSpace);
ole2.release_obj(objAppOutlook);
EXCEPTION
WHEN OTHERS THEN
message(sqlerrm);
END kr_findmail_z;

Answer 1

Hi,
One common cause of this problem is that the data file(.pst) is corrupted, try running Scanpst.exe to repair the .pst file and check the result, for the detailed steps, please refer to the kb below and try the steps under
Manually start the Inbox Repair tool section:
http://support.microsoft.com/kb/272227/en-us
We may also consider if you have set a filter on the View, since you mentioned you can still find the emails when you search for them, this is probably the reason.
Try to start Outlook with the switch "cleanviews":
Press Win + R, type "outlook.exe /cleanviews" in the blank box, press Enter.
This will restore the default view and all the custom views you created will be lost.
Regards,
Melon Chen
TechNet Community Support