dim ws as new notesuiworkspace
dim s as new notessession
dim db as notesdatabase
dim dc as notesdocumentcollection
set db=s.currentdatabase
set dc=db.alldocuments
call dc.removeall(true)
call ws.ViewRefresh
dim s as new notessession
dim db as notesdatabase
dim dc as notesdocumentcollection
set db=s.currentdatabase
set dc=db.alldocuments
call dc.removeall(true)