Domino 9 und frühere Versionen > Entwicklung

Berechnete Leser- und Autorenfelder

<< < (4/4)

KaSie:
Danke für die Antwort, ich habe es jetzt mit einem Agenten gelöst  8) ;D


--- Code: ---Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim item As NotesItem

Set db=s.Currentdatabase
Set view = db.Getview("Name der Ansicht")
Set doc=view.Getfirstdocument

Do Until doc Is Nothing
Set item=doc.Getfirstitem("Name des Autorfeldes")
item.Isauthors=True
doc.save True, False
Set doc=view.getnextdocument(doc)
Loop
End Sub
--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete