本人是初学者,请各位大侠指教。一个名为counter的lotus代理
Sub Initialize
Dim s As New notessession
Dim db As notesdatabase
Set db=s.currentdatabase
Dim view As notesview
Set view=db.getview("(counter)")
Dim vdoc As notesdocument
Set vdoc=view.getfirstdocument
If...(more)
ALevel = note.getitemvalue("allMemeber") ForAll x In ALevel Set thisTeamMember = ACL.getEntry(x) MsgBox "allMemeber: " + x + "权限为" + thisTeamMember.Level End ForAll13 Type mismatch No Resume