Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

OpenOffice Anbindung an Lotus Notes per OLE

<< < (10/11) > >>

LordKiri:
Zum Glück haben wir kein Vista :D

dafür ein neues Problem....

nachdem es erst geklappt hat (zumindest für mich) bringt er bei allen anderen in OOo die Fehlermeldung, dass das Makro aus Sicherheitsgründen nicht ausgeführt werden kann, wenn ich aber die Vorlage so im OOo öffne geht es auch überall....
Es geht also nur nicht wenn ich das ganze von Notes aus starte, kann mir hierbei noch jemand helfen?

LordKiri:
So hab den passenden Code für OOo, mit dem es zumindest angeblich funktionieren sollte, aber ich scheiter leider bei der Übersetzung in LotusScript....

hier der UrCode:

--- Code: ---Dim oOpenProperties(0) as new com.sun.star.beans.PropertyValue
' 0: execute macros with no warning message
oOpenProperties( 0 ).Name = _
"MacroExecutionMode"
oOpenProperties( 0 ).Value = _
com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN ' value 4
Set objDoc = objDskTop.loadComponentFromUrl(docUrl, "_blank", 0, oOpenProperties() )
--- Ende Code ---

und hier meine Übersezung: (bringt Fehlermeldung: Subscript out of range)

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

'0: execute macros with no warning message
oOpenProperties(0).Name = "MacroExecutionMode"
oOpenProperties(0).Value = "com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN" ' value 4


Dim objDocument As Variant
Set objDocument=Desktop.loadComponentFromURL("file:///c:/BriefVorlage01.ott","_blank",0,oOpenProperties())
--- Ende Code ---

jBubbleBoy:
das öffnen eines OO Dokumentes sieht bei mir so aus:


--- Code: ---Dim ooDoc, ooDesk, PropertyValue()
FilePath$ = "... Datei welche geöffnet werden soll ..."
FilePath$ = replace( FilePath$, ":", "|" )
FilePath$ = "file:///" + replace( FilePath$, "\", "/" )
FilePath$ = replace(FilePath$, " ","%20")
Set ooDesk= word.createInstance("com.sun.star.frame.Desktop")
Set ooDoc = ooDesk.loadComponentFromURL(FilePath$, "_default",   0,PropertyValue)

--- Ende Code ---

Wenn es nicht am Filepath liegt (: mit | ersetzen), funktioniert es denn bei Dir ohne den Werten in PropertyValue?

m3:
John Head hat ein paar nette Beispiele für den Zugriff von Lotusscript auf OO.org Writer:
http://www.johndavidhead.com/jhead/johnhead.nsf/dx/Downloads

LordKiri:
es funktioniert einwandfrei ohne oOpenProperty...

mein Problem ist dass es dann das Makro welches eigentlich in der Vorlage liegt nicht ausführt....
Wenn ich dann probiere das Makro manuell zu starten kommt die Fehlermeldung:
Aus Sicherheitsgründen kann das Makro nicht ausgeführt werden

die Fehlermeldung kommt auch, wenn ich bei OOo die Makrosicherheit auf die niedrigste Einstellung stelle.

Wenn ich aber die Vorlage so im OOo öffne, dann funktioniert das Makro einwandfrei.
Die Folgerung war, dass ich mich in einem OOo-Forum umgesehen habe und auch eine Lösung für das Problem nur eben in Starbasic (vorheriger Post)

Man kann durch Code die Makrosicherheit eben umgehen und ich möchte das ganze jetzt an LotusScript anpassen, damit es auch bei mir vom Notes aus funktioniert.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete