Home » Developer & Programmer » Forms » Error 305500 non-oracle exception with ole2 package and Outlook Application
Error 305500 non-oracle exception with ole2 package and Outlook Application [message #287737] Thu, 13 December 2007 05:24 Go to next message
tiyise
Messages: 5
Registered: November 2007
Junior Member
Hi, I have a error when read the body on some mails, 305500: non-oracle exception, i not know why, this is my code:
PROCEDURE rEllenAmAils
     (pFolder  IN ole2.obj_Type)
IS
  Items    ole2.obj_Type;
  Item     ole2.obj_Type;
  Cont     NUMBER;
  args     ole2.List_Type;
  vNombre  VARCHAR2(5000);
  vCuerpo  VARCHAR2(32767);
  vAsUnto  VARCHAR2(5000);
BEGIN
  Go_Block('b_correos');
  Clear_Block(No_Validate);
  Items := ole2.Get_obj_Property(pFolder,'Items');
  Cont := ole2.Get_num_Property(Items,'count');
  Set_Application_Property(CurSor_Style,'busy');
  
  FOR i IN 1.. Cont LOOP
    IF :system.Block_Status <> 'NEW' THEN
      Next_Record;
    END IF;
    
    args := ole2.Create_argList;
    ole2.Add_arg(args,i);
    Item := ole2.Get_obj_Property(Items,'Item',args);
    ole2.Destroy_argList(args);
    vAsUnto := ole2.Get_Char_Property(Item,'Subject');
    vNombre := ole2.Get_Char_Property(Item,'SenderName');
    vCuerpo := ole2.Get_Char_Property(Item,'Body');
    :b_correos.de := vNombre;
    :b_correos.AsUnto := vAsUnto;
    :b_correos.Cuerpo := vCuerpo;
  END LOOP;
  
  Set_Application_Property(CurSor_Style,'default');
  Go_Block('B_CORREOS');
  First_Record;
EXCEPTION
  WHEN OTHERS THEN
    lb_Alert_Stop('Atención','Ha ocurrido un error inesperado. '
                              ||SQLERRM);
END;

Forms 6i
Oracle DataBase 10g
Server Windows 2003 Server
Office 2003

Thanks for replys.

Upd-mod: Format and code tags.

[Updated on: Wed, 19 December 2007 18:11] by Moderator

Report message to a moderator

Re: Error 305500 non-oracle exception with ole2 package and Outlook Application [message #289127 is a reply to message #287737] Wed, 19 December 2007 18:25 Go to previous message
djmartin
Messages: 10180
Registered: March 2005
Location: Canberra ACT Australia
Senior Member
Account Moderator
Have you solved your problem?

You have:
vCuerpo  VARCHAR2(32767);

Have you tried
vCuerpo  VARCHAR2(65534);
or
:b_correos.Cuerpo := substr(vCuerpo,1,32767);

David
Previous Topic: delete last n rows of a table
Next Topic: batch file and PKZIPC utility
Goto Forum:
  


Current Time: Tue Dec 06 02:46:23 CST 2016

Total time taken to generate the page: 0.29293 seconds