Hi,
für den Update des Designs bzw. Wechsel per Lotus-Skript habe ich folgenden Code gefunden. Wenn der 3te Parameter mit "1" angegeben wird sollten alle Design-Elemente getauscht werden.
Beim Lauf wird allerdings "Aktualisieren" angezeigt.
Gibts noch eine andere Möglichkeit ?
Declare Function W32_DesignRefresh Lib "nnotes.dll" Alias "DesignRefresh" _
(Byval sourceServer As String, Byval hDb As Long, Byval dwFlags As Long, _
Byval null0 As Long, Byval null1 As Long) As Integer
' // Use API to get db handle for target database - pass any errors to OSLoadString
intReturn = W32_NSFDbOpen(strTargetDb, lngDb)
If intReturn <> NO_ERROR Then
Messagebox GetCAPIErr(intReturn), 0, constAIDAPIErr
Exit Function
End If
' // Initiate the refresh. Passing a "1" as the third parameter
' // forces a refresh "no matter what"
intReturn = W32_DesignRefresh(strSourceServer, lngDb, 1, 0, 0) ' Prameter Design_Force
If intReturn <> NO_ERROR Then
Messagebox GetCAPIErr(intReturn), 0, constAIDAPIErr
Exit Function
End If
Quelle: http://www-10.lotus.com/ldd/46…6b520063a5d8?OpenDocument