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
|