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

Set maildoc=New NotesDocument(db)
Set mitem=New NotesRichTextItem(maildoc,"body")
maildoc.form="memo"
maildoc.subject="海尔论坛冲突/锁定机制触发一次！"
maildoc.sendto="cnc.xuj/haiernet"
Call mitem.AppendText("test")
Call maildoc.Send(False,maildoc.sendto)

Msgbox "此文档已被某邮箱锁定，请不要继续编辑，否则会丢失数据，请关闭此文档等待锁定用户退出后再进入！",64,"Haier.Office"

End If