Basically I want to remove an item from every document in the database but I don’t want the last modified date to change - is this possible ?
Here is the start of the code…
Sub Initialize
Dim session As New notessession
Dim thidb As notesdatabase
Set thisdb = session.currentdatabase
Dim thisdbview As notesview
Set thisdbview = thisdb.GetView(“Vdef”)
Dim thisdbdoc As notesdocument
Set thisdbdoc = thisdbview.GetFirstDocument
Dim dbtitleItem As NotesItem
Do Until thisdbdoc Is Nothing
Set dbtitleItem = Nothing
If thisdbdoc.HasItem(“DBTitle”) Then
Set dbtitleItem = thisdbdoc.GetFirstItem(“DBTitle”)
Call dbtitleItem.Remove
Call thisdbdoc.Save( False, True )
End If
Set thisdbdoc = thisdbview.GetNextDocument(thisdbdoc)
Loop
End Sub
Can anyone suggest me ,in this.