... | ... | @@ -22,6 +22,39 @@ Zusätzlich kann das Dashlet auch als allgemeine Dokumentenvorschau verwendet we |
|
|
|
|
|
Es ist ist zusätzlich möglich, den `Inhalt bearbeiten` im dem `BeforeOpen` Event so zu verändern, dass das Dokument statt mit Microsoft Office mit embedded office in einem Browser Fenster geöffnet wird. Diese Funktion kann zusammen mit dem Dashlet eingesetzt werden.
|
|
|
|
|
|
### Externe Applikation
|
|
|
|
|
|
Es ist auch möglich im enaio Client eine externe Applikation anzulegen, welche das Dokument im Embedded Office öffnet.
|
|
|
|
|
|
```vbs
|
|
|
Dim WshShell: Set WshShell = CreateObject("WScript.shell")
|
|
|
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
|
|
|
|
|
|
Dim Application : Set Application = createobject("optimal_AS.application")
|
|
|
Dim DrtSession: Set DrtSession = Application.getDrtSession()
|
|
|
|
|
|
Dim SessionGuid: SessionGuid = DrtSession.SessionGuid
|
|
|
|
|
|
Function Main
|
|
|
Dim Args: Set Args = WScript.Arguments
|
|
|
|
|
|
If Args.Count = 0 Then
|
|
|
MsgBox "Externe Application mit Parameter %i starten"
|
|
|
Exit Function
|
|
|
End If
|
|
|
|
|
|
Dim InfoFilePath: InfoFilePath = Args(0)
|
|
|
Dim InfoFile: Set InfoFile = FSO.OpenTextFile(InfoFilePath, 1)
|
|
|
|
|
|
Do Until InfoFile.AtEndOfStream
|
|
|
Dim Parameter: Parameter = InfoFile.ReadLine
|
|
|
ParameterParts = Split(Parameter, ",")
|
|
|
WshShell.run "https://enaio.server/office/desktop/edit/edit/" & ParameterParts(1) & "/" & ParameterParts(0) & "?sessionguid=" & SessionGuid
|
|
|
Loop
|
|
|
End Function
|
|
|
|
|
|
Main()
|
|
|
```
|
|
|
|
|
|
### enaio webclient
|
|
|
|
... | ... | |