Notes锁定机制

Notes锁定机制是 R6 的一个新功能，软锁 是存在用户的客户端 内存中，只允许一个用户同时编辑文档。去掉软锁办法：Notes client的Notes.ini参数中增加一个EDIT_NO_SOFT_LOCKS=1  


或者写代码 更改Dim session As New NotesSession   
Call session.SetEnvironmentVar( "EDIT_NO_SOFT_LOCKS", "1" , True) 






//在冲突之前执行，要在数据库属性“允许文档锁定”打上对勾
Dim lockhold As Variant
lockhold=doc.LockHolders

If lockhold(0)="" Then
Msgbox "没锁",64,"J"

Else

Dim maildoc As NotesDocument
Dim mitem As NotesRichTextItem