Bonjour
Nous sommes arrivés aux limites de nos comptences internes et recherchons des solutions pour avancer : n'hesitez pas à me proposer toute solution... ou à me fournir des contacts pouvant nous aider à raccomoder ce lien OLE Oracle/notes
Nous avons une appli développée sous Forms d'Oracle avec des boutons paramétrables.
L'appli tourne sur un serveur d'appli 9iAS et l'acces du client se fait dans une fentre JAVA du navigateur web
Il n'y a apparement pas besoins de morceau d'oracle sur le PC mais juste de "oracleJinitiator" (applet ) telechargé lors de la premiere connection à l'appli web.
Nous avons changé de version d'oracle (8 -> 9i) et depuis nous n'arrivons pas à reparametrer 4 les boutons dont qui doivent interagir avec Lotus.
Cela ne fontionne plus ni sur les postes qui ont le client lotus notes 7.0.2 fr ni avec 6.5.4fr (serveur domino 7.0.2 fr).
Nous utilisons les quelques actions suivantes ( Le code Lotus semble bon) :
Ajout interloccuteur dans carnet d'adresse lotus
Comportement : ouvre Lotus puis rien
Intitulé : Ajout Interlocuteur Lotus
Comportement : message d’erreur
Intitulé : Création d'un RDV dans Agenda Lotus
Comportement : ouvre Lotus puis rien
Intitulé : Lancement d'Internet Explorer
Comportement : Fonctionne correctement
Voici un exemple de code pour "Demande Modif à toto@domaine.fr"
Comportement : ouvre Lotus puis rien
Code
-- Envoi d'un Email à toto@domaine.fr
--
-- 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','toto@domaine.fr ');
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;
Merci par avance à tous
Partager