Hi,
auch in LotusScript gibt es 'If ... Then ... Else' und 'Case'-Anweisungen. Das Feld welches du auslesen (NotesDocument.GetItemValue("FeldName")) und neu setzen (NotesDocument.ReplaceItemValue("FeldName")) mußt heißt "Location". Die Ansicht mit den Personendokumenten heißt "_Personen". Der Code sollte in etwa so aussehen:
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set view = db.GetView("_Personen")
If Not view Is Nothing Then
Set doc = view.GetFirstDocument
While Not doc Is Nothing
'Case Anweisung hier einfügen
Set doc = view.GetNextDocument(doc)
Wend
End If
Ich hoffe das hilft.
Gruß
Helge