Also ans NotesDocument kommt man meines Wissens nur mit einem Mini-Workaround.
On Error Goto ErrorHandler
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ncol As NotesNoteCollection
Dim strNoteID As String
Dim docDesign As NotesDocument
Dim lngCount As Long
Set db = session.CurrentDatabase
Set ncol = db.CreateNoteCollection(False) 'empty collection
Call ncol.SelectAllDesignElements(True) ' wir brauchen alle Designelemente
'Use BuildCollection to compile the collection. You must build before the collection can be used.
Call ncol.BuildCollection
strNoteID = ncol.GetFirstNoteId
Do While Not(strNoteID = "")
Set docDesign = db.GetDocumentByID(strNoteID)
'---------- HIER KOMMT NUN DEIN CODE REIN
'Mit docDesign hast Du Zugriff auf ein Designelement als NotesDocument-Objekt
lngCount = lngCount + 1
strNoteID = ncol.GetNextNoteId(strNoteID)
Loop
Msgbox lngCount & " Designelemente bearbeitet."
GoOut:
Exit Sub
ErrorHandler:
Msgbox "Error #" & Err & " — " & Error$ & " (line: " & Erl & ")", 48, "Runtime error"
Resume GoOut
If docDesign.HasItem("IconBitmap") Then
Msgbox "Treffer ! Datenbankicon erwischt"
End If
da hat das Item $Flags aber meines Wissens KEINEN Inhalt, wenn "R" drinsteht, wird das Design aktualisiert.
Jo
Hallo,
If docDesign.HasItem("IconBitmap") Then
Call docdesign.ReplaceItemValue( "$Flags", "R" )
Call docdesign.Save( True, True )
End If
das passt so IMHO, wenn was am Design hinterher auffällig ist, ist auch schnell der convert über die Mehlfiles mit dem entsprechenden Template drübergerannt, um das Design wieder zu korrigieren. Müssen die Looser halt mal leiden ;D
Am 29 ist übrigens SysAdminsDay http://www.sysadminsday.de Ich bin angemeldet.
Jo