Communication ORACLE - OUTLOOK (OLE2) - read mail - problem

Question

I have a problem with communication with ORACLE<->OUTLOOK.
I need read mail from Outlook, i know EntryID mail.
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
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