A new feature with V6 is Soft Locking. Soft Locking is a server setting that prevents a user from editing a document someone else is currently editing on the same server. Until today, I didn't know that you can't copy a document that has a soft lock using LotusScript. I wrote an agent that copies documents from one database to another. The code looks like this:

Dim session As NotesSession
Dim currDb As NotesDatabase
Dim qaParent As NotesDocument
Dim prodParent As NotesDocument
Dim qaDB As NotesDatabase
Dim v As NotesView
	
Dim i As Integer
	
On Error Goto errorHandler
	
Set session = New NotesSession
Set currDb = session.CurrentDatabase
	
Set qaDB = session.GetDatabase ( "QAServer/CMA", "somedb.nsf" )
	
Set prodDb = session.GetDatabase ( "PRODServer/CMA", "somedb.nsf" )
	
Set v = qaDB.GetView ( "Main" )
v.Refresh
v.AutoUpdate = False
	
Set qaParent = v.GetFirstDocument
	
Do Until ( qaParent Is Nothing )
	
	i = i + 1
	Print "Processing doc: " & i
	Set prodParent = qaParent.CopyToDatabase ( prodDb )

		
	Set qaParent = v.GetNextDocument ( qaParent )
		
Loop
	
Msgbox "Processing complete"

End Sub

However, every time I ran the code, I kept getting this error message:



So I needed to find the user who had a document open in edit mode and have them save and close it. Then my code worked fine. Nice that this is documented somewhere... ; + )

No documents found