Domino 9 und frühere Versionen > Entwicklung

Gestaltung aktualisieren

<< < (2/3) > >>

ata:
... es gibt doch sogenannte "Programmdokumente" im Server-Adressbuch - damit kann man Konsolenbefehle zeitgesteuert absetzen...

ata

MiMueller:
Ich habe einen Agent mit folgendem Script erstellt
(Manuell aus dem Menü "Aktionen"):

Option Public
Option Declare

' Notes functions
Declare Function NSFDbOpen Lib "nnotes.dll" Alias "NSFDbOpen" ( Byval filename As String, hdb As Long ) As Integer
Declare Function NSFDbClose Lib "nnotes.dll" Alias "NSFDbClose" ( Byval hdb As Long ) As Integer
Declare Function DesignReplace Lib "nnotes.dll" Alias "DesignReplace" ( Byval ht As Long, Byval hdb As Long, Byval dw1 As Long, Byval dw2 As Long, Byval dw3 As Long, Byval dw4 As Long ) As Integer

Sub ReplaceDesign( tpl As NotesDatabase, db As NotesDatabase )
Dim source As String
Dim target As String
Dim status As Integer
Dim ht As Long
Dim hdb As Long

' öffnen der >>Template-Datenbank<<
If tpl.Server="" Then
source=tpl.FilePath
Else
source=tpl.Server & "!!" & tpl.FilePath
End If
status=NSFDbOpen( source, ht )
If status<>0 Then Error 1, "Fehler beim öffnen von " & source & " (error code=" & status & ")"

' Öffnen der zu aktualisierenden Datenbank
If db.Server="" Then
target=db.FilePath
Else
target=db.Server & "!!" & db.FilePath
End If
status=NSFDbOpen( target, hdb )
If status<>0 Then
NSFDbClose ht
Error 1, "Fehler beim öffnen von " & target & " (error code=" & status & ")"
End If

status=DesignReplace( ht, hdb, 0, 1, 0, 0 )

NSFDbClose ht
NSFDbClose hdb

If status<>0 Then Error 1, "Fehler beim Ersetzen der Gestaltung " & (error code=" & status & ")"

End Sub


Und im Event 'initialize'

Dim ss As New notesSession

   Dim tpl As NotesDatabase
   Dim db As NotesDatabase
   
   Set db = ss.CurrentDatabase               
   Set tpl = ss.GetDatabase("","SCHABLONE.ntf") ' Schablone
   
   Call procReplaceDesign(tpl,db)

doliman:
Hi,

genau so hätte ich mir das vorstellen können.
Bist Du ein C Fan?

MiMueller:

--- Zitat von: doliman am 28.06.03 - 15:56:43 ---Hi,

genau so hätte ich mir das vorstellen können.
Bist Du ein C Fan?

--- Ende Zitat ---

das ist Lotus Script...   ;D

doliman:
Hi,

na ja aber mit Aufruf von C-API Funktionen.
Hast Du evtl. eine Api Referenz. Hab schon überall gesucht
wo die Funktionen mal beschrieben sein könnten.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete