Declarations
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim removed As boolean
Sub Initialize()
Set session = New NotesSession
Set db = session.currentdatabase
Set dc = db.Unprocesseddocuments
Removed = False
If dc.count > 0 Then
Set doc = dc.getfirstdocument
Do While Not doc Is Nothing
ForAll v In doc.Items
If v.name = "fldSometext " Then
Print "Hab ich dich erwischt ... Du hast folgenden Wert " + v.text + " und jetzt bist du weg"
Call v.remove
Removed = true
End If
End ForAll
If Removed = True Then
Call doc.save(True,False)
removed = false
End If
Set doc = dc.getnextdocument(doc)
Loop
End If
End Sub
Du kannst mit @SetField auch @DeleteField zuweisen ;D
@SetField("Feldname"+@Char(9);@DeleteField)