OLE : Oracle 9i / lotus Notes

Question

Hello
(Text translated of French into English )
We arrived at the limits of our internal comptences and seek solutions for advanced:
Have you got any solution to me... or to provide me contact which can help us with OLE Oracle/notes.
We have a appli developed under Forms d' Oracle with bouttons
The appli in executed on 9iAS and the accesses of the customer is done in Java of the navigator Web . (applet "oracleJinitiator")
We have to update oracle (8 - > 9i) and since we let us not arrive at reparametrer 4 buttons whose function is to interact with Lotus That more fontionne neither on station which has the customer lotus notes 7.0.2 Fr nor with 6.5.4fr (waiter domino 7.0.2 Fr).
We use 4 functions which are as follows
Sending of an email with [email protected]
Sending of email to the contact selectionné
Creation of an appointment in lotus
Addition interloccutor in address book lotus
Here is the code
Sending of an email with [email protected]
Lotus opens then nothing
Work=Create_Obj('Notes.NotesUIWorkspace')
Invoke(Work,'OpenDatabase','domino',:global.ole_mail_lotus);
doc = Invoke_Obj(Work,'ComposeDocument','', '', 'Memo');
Set_Property(Work,'Visible',1);
Invoke(doc,'FieldSetText','EnterSendTo','[email protected] ');
Invoke(doc,'FieldSetText','Subject','Demande de Modif de :_ ');
Invoke(doc,'FieldAppendText','Subject',:SOCIETE.CSOSIRET);
Invoke(doc,'FieldAppendText','Subject','_-_ ');
Invoke(doc,'FieldAppendText','Subject',:SOCIETE.CSOLIBEL);
Invoke(doc,'FieldSetText','body','Responsable Local : Civilité ');
Invoke(doc,'FieldAppendText','body','/ Nom / Prénom ');
Invoke(doc,'FieldAppendText','body','/ Date de naissance OBLIGATOIRES');
Invoke(doc,'FieldAppendText','body','/---/ ARE ');
Release_obj;
Sending of email to the contact selectionné
Lotus opens then nothing
Code
Work = Create_Obj('Notes.NotesUIWorkspace');
Invoke(Work,'OpenDatabase','domino',:global.ole_mail_lotus);
doc = Invoke_Obj(Work,'ComposeDocument','', '', 'Memo');
Set_Property(Work,'Visible',1);
Invoke(doc,'FieldSetText','Body',:global.ole_corps);
Invoke(doc,'FieldSetText','EnterSendTo',:global.ole_email);
Invoke(doc,'FieldSetText','Subject',:global.ole_sujet);
Release_Obj;
Addition interloccutor in address book lotus
error message
Code
Work = Create_Obj('Notes.NotesUIWorkspace');
Invoke(Work,'OpenDatabase','','names.nsf');
doc = Invoke_Obj(Work,'ComposeDocument','', '', 'Contact');
Set_Property(Work,'Visible',1);
Invoke(doc,'FieldSetText','Title',:global.ole_titre);
Invoke(doc,'FieldSetText', 'LastName',:global.ole_nom);
--Invoke(doc,'FieldSetText', 'LastName',:PERSONN.CITNOMPE);
Invoke(doc,'FieldSetText', 'FirstName',:global.ole_prenom);
Invoke(doc,'FieldSetText', 'OfficePhoneNumber',:global.ole_Bur_Tel);
Invoke(doc,'FieldSetText', 'OfficeFaxPhoneNumber',:global.ole_Bur_Fax);
Invoke(doc,'FieldSetText', 'MailAddress',:global.ole_email);
Invoke(doc,'FieldSetText', 'JobTitle',:global.ole_fonction);
Invoke(doc,'FieldSetText', 'CompanyName',:global.ole_societe);
Invoke(doc,'FieldSetText', 'PhoneNumber',:global.ole_pers_Tel);
Invoke(doc,'FieldSetText', 'HomeFaxPhoneNumber',:global.ole_pers_Fax);
Invoke(doc,'FieldSetText', 'OfficeZip',:global.ole_bur_CP);
Invoke(doc,'FieldSetText', 'OfficeStreetAddress',:global.ole_Bur_Rue);
Invoke(doc,'FieldSetText', 'OfficeCity',:global.ole_Bur_Ville);
Invoke(doc,'FieldSetText', 'OfficeCountry',:global.ole_Bur_Pays);
Invoke(doc,'FieldSetText', 'Zip',:global.ole_bur_CP);
Invoke(doc,'FieldSetText', 'StreetAddress',:global.ole_Pers_Rue);
Invoke(doc,'FieldSetText', 'City',:global.ole_Pers_Ville);
Invoke(doc,'FieldSetText', 'Country',:global.ole_Pers_Pays);
Release_Obj;
Creation of an appointment in lotus
Lotus opens then nothing
Code
Work=Create_Obj('Notes.NotesUIWorkspace')
Invoke(Work,'OpenDatabase','domino',:global.ole_mail_lotus);
doc=Invoke_Obj(Work,'ComposeDocument','','','Appointment');
Set_Property(Work,'Visible',1);
Invoke(doc,'FieldSetText','StartDate',:global.ole_Date_Debut);
Invoke(doc,'FieldSetText','StartTime',:global.ole_Heure_Debut);
Invoke(doc,'FieldSetText','EndDate',:global.ole_Date_Fin);
Invoke(doc,'FieldSetText','EndTime',:global.ole_Heure_Fin);
Invoke(doc,'FieldSetText','AppointmentType','Rendez-vous');
Invoke(doc,'InsertText','Subject',:global.ole_sujet);
Invoke(doc,'InsertText','Subject','-');
Invoke(doc,'InsertText','Subject',:global.ole_nom_int);
Invoke(doc,'FieldSetText','body',:FICHE_ACTION;CTXLIBEL);
Invoke(doc,'FieldSetText','body',:global.ole_descr);
Invoke(doc,'FieldAppendText','body','/ TEL :');
Invoke(doc,'FieldAppendText','body',:global.ole_tel_int);
Invoke(doc,'FieldAppendText','body','/ EMAIL :');
Invoke(doc,'FieldAppendText','body',:global.ole_email_int);
Invoke(doc,'FieldAppendText','body','/ ');
Invoke(doc,'FieldAppendText','body',:global.ole_categorie);
Invoke(doc,'FieldAppendText','body','/ ');
Invoke(doc,'FieldAppendText','body',:global.ole_preoc);
-- wait('Mise à jour','Cliquez sur OK pour mettre à jour');
-- :global.ole_Heure_Debut=Invoke_Char(doc,'FieldGetText','StartTime');
-- :global.ole_Date_Debut=Invoke_Char(doc,'FieldGetText','StartDate');
-- :global.ole_Date_Fin=Invoke_Char(doc,'FieldGetText','EndDate');
-- :global.ole_Heure_Fin=Invoke_Char(doc,'FieldGetText','EndTime');
Release_obj;
Thank you by advance

Answer 1

Check whether these will help.
JDBC connectivity with Oracle in Domino-Part I
JDBC connectivity with Oracle in Domino-Part II
JDBC connectivity with Oracle in Domino-Part III