Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = db.GetDocumentByID("FFFF0010")
Print "Vorher: " & doc.getitemvalue("$Flags")(0)
If InStr(doc.getitemvalue("$Flags")(0), "F")Then
Print "F ist schon drin"
Else
tmp = "F" & doc.getitemvalue("$Flags")(0)
Call doc.ReplaceItemValue("$Flags", tmp)
Call doc.Save (False, False)
End If
Print "Nachher: " & doc.getitemvalue("$Flags")(0)
Ich frag nur...weil bei Dir so eine Zeile im Code fehlt:
Call doc.ReplaceItemValue("$DefaultFrameset", "HauptFrame")
Wäre aber nicht schlimm, Notes würde den ersten Frame nehmen.
Wie sieht´s mit der Berechtigung auf die DB aus??
Ich frag nur...weil bei Dir so eine Zeile im Code fehlt:
Call doc.ReplaceItemValue("$DefaultFrameset", "HauptFrame")
Wäre aber nicht schlimm, Notes würde den ersten Frame nehmen.
Wie sieht´s mit der Berechtigung auf die DB aus??
Managerrechte sind vorhanden
Der DefaultFramset ist auf MailFS gesetzt. Sollte also gehen, habe das aber auch schon mit Call doc.ReplaceItemValue("$DefaultFrameset", "MailFS") probiert, kein Unterschied.
Scheint mir irgendeine Art von Cache-Problem zu sein.
Ichb habe zwischendurch den Notesclient neu gestartet. Blieb erstmal wie gehabt.
Dann haber ich beim letzten Reiter was geändert und siehe da beim Reiter mit der Rakete stand dann das was ich per LS Agent gesetzt hatte.
Evtl. muss man noch irgenein Refresh auf diese Eigenschaften machen?
Denn wenn ich in der GUI was anderes ändere und dann meine Änderugnen auch endlich auftauchen kann ich mir nur sowas vorstellen.