Remove a List Entry from a Notes Item with a Text List

Author: Tripp W Black

Created: 02/27/2001 at 02:01 PM

 

Category:
Notes Developer Tips
LotusScript

Sub RemoveEntryFromTextList(item As NotesItem, entry$)

On Error Goto processError

If (item Is Nothing) Then
Exit Sub
End If

If (item.Contains(entry$)) Then
userList = item.Values
Forall vals In userList
If (Lcase$(vals) = Lcase$(entry$)) Then
vals = ""
End If
End Forall
item.Values = userList
End If
Exit Sub
processError:
Exit Sub
End Sub

previous page