Oracle Forms

Hi,

I have installed webutil and it loads fine an all. However, I have a problem with a Microsoft Outlook integration. I am simply trying open an Outlook mail item, which is then filled out with some data. Pressing the Send button is up to the user.

Everything works until the line "mailitem2 := CLIENT_OLE2.INVOKE_obj(MailItem,'Display');" is called. Here Forms reports back: "100501: non-Oracle exception" and the java console gives a WUO-714 and WUO-705. The problems seems to be the Display method. At that point, despite errors, I do have an open, visible mail item with the proper data filled in. (In this process I noticed that the final invoke_obj should happen after you write stuff into the To, Subject and Body of the mail, but that's besides the point.)

Any advice you can offer is welcome.

Sincerely,

Jesper Vad Kristensen
Aarhus, Denmark


--- Java console error codes --
Loading http://oiatst01.tdk.dk:7778/forms90/webutil/webutil.jar from JAR cache
Loading http://oiatst01.tdk.dk:7778/forms90/webutil/jacob.jar from JAR cache
Loading http://oiatst01.tdk.dk:7778/forms90/java/f90all_jinit.jar from JAR cache
RegisterWebUtil - Loading Webutil Version 1.0.2 Beta

2003-nov-17 09:42:50.624 ERROR>WUO-714 [OleFunctions.setExceptionValues()] Unable to get the last OLE Error details; Exception
null

2003-nov-17 09:42:50.634 ERROR>WUO-705 [OleFunctions.invoke_ret_obj()] Unable to invoke Method: Display; Exception
com.jacob.com.ComFailException: VariantChangeType failed

--- end ---

--- Form code ---
Declare
OutlookApp CLIENT_OLE2.OBJ_TYPE;
Folders CLIENT_OLE2.OBJ_TYPE;
MailItem CLIENT_OLE2.OBJ_TYPE;
MailItem2 CLIENT_OLE2.OBJ_TYPE;
OLEPARAM CLIENT_OLE2.list_type;

v_kundenummer varchar2(12) := :v_engagement.konto;
v_firstname varchar2(50) := :legal_person.firstname;
v_surname varchar2(50) := :legal_person.surname;
v_company_name varchar2(50) := :legal_person.company_name;
v_to varchar2(50) := 'jevk@mycompany.dk';
v_cc varchar2(50);
v_body varchar2(250) := 'Kundenummer'||' ' ||v_kundenummer||chr(10)||v_firstname||' '||v_surname||' '||v_company_name;
v_bcc varchar2(50);
v_subject varchar2(50) := 'Fakturakopi';
v_duedate varchar2(50);
v_invoicetext varchar2(400);
v_user varchar2(50):= user;
v_faktura varchar2(400);
BEGIN
/* snip some string work to create Body contents */

OutlookApp := CLIENT_OLE2.CREATE_OBJ('Outlook.Application');

--Create a newMail Object
OLEPARAM := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(OLEPARAM,0);
MailItem := CLIENT_OLE2.INVOKE_OBJ(OutlookApp,'CreateItem',OLEPARAM);
CLIENT_OLE2.DESTROY_ARGLIST(OLEPARAM);

-- Show the new message box. - Dont do when mailing straight Through
CLIENT_OLE2.set_property(MailItem,'To',v_to);
CLIENT_OLE2.set_property(MailItem,'Subject',v_subject);
CLIENT_OLE2.set_property(MailItem,'Body',v_body);
mailitem2 := CLIENT_OLE2.INVOKE_obj(MailItem,'Display');

CLIENT_OLE2.RELEASE_OBJ(MailItem);
CLIENT_OLE2.RELEASE_OBJ(MailItem2);
CLIENT_OLE2.RELEASE_OBJ(NameSpace);
CLIENT_OLE2.RELEASE_OBJ(OutlookApp);

/* snip some more */
exception
when others then
message('other error: '||sqlerrm);
--- end ---