Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

OpenOffice Anbindung an Lotus Notes per OLE

<< < (11/11)

LordKiri:
Nach doch sehr langem Kampf hab ichs hinbekommen :D

hier der Code:

--- Code: ---'öffnet OOo
Dim SM As Variant
Dim Desktop As Variant
Set SM=CreateObject("com.sun.star.ServiceManager")
Set Desktop=SM.createInstance("com.sun.star.frame.Desktop")

'setzt die Makrosicherheit ganz runter
Dim args As Variant
Set args= SM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
args.Name = "MacroExecutionMode"
args.Value = 4
Dim argsReal(0) As Variant
Set argsReal(0) = args

'öffnet die leere OOo-Vorlage
Dim objDocument As Variant
Set objDocument=Desktop.loadComponentFromURL("file:///c:/Eigene Dateien/BriefVorlage01.ott","_blank",0,argsReal)

--- Ende Code ---

jBubbleBoy:
Nicht schlecht, hatte OO Makros immer nur via OO Dokumentenereignisse gestartet. Dadurch musste man immer OO Makros ausliefern.

Befinden sich deine Makros im Dokument oder in der Applikation?

LordKiri:
Mein Makro ist in der Vorlage drin, also in der BriefVorlage01.ott

joringel:
Die Sache scheint jetzt (erstmals?) wie gedacht zu funktionieren, wir können ohne Umwege über Dateien etc. aus OpenOffice/LibreOffice auf Notes zugreifen.

Tonis Code-Beispiel


--- Zitat ---   dim service as object
   dim session as object
   dim db As object
   service = createUnoService("com.sun.star.bridge.oleautomation.Factory")
   session = service.createInstance("Lotus.NotesSession")
   session.Initialize("")
   db = session.GetDatabase("" ,"names.nsf")
   MsgBox( "Das lokale Adressbuch heißt => " & db.Title )

--- Ende Zitat ---

läuft hier mit den Versionen

- LibreOffice 3.3.1 und Notes 8.5.2 auf Win7
- OpenOffice 3.3.0 und Notes 7.? auf Win XP

Gruß
Peter

Navigation

[0] Themen-Index

[*] Vorherige Sete