【共享】：删除操作代码

eric_1

Sub Click(Source As Button)
        x=Msgbox("是否删除文件？" ,4+32,"请问：")
        If x=7 Then
                Exit Sub
        End If
       
        Dim workspace As New notesuiworkspace       
        Dim session As New notessession
        Dim db As notesdatabase
        Dim dc As notesdocumentcollection
        Dim doc As notesdocument
        Dim username As String
       
        Set db = session.currentDATABASE
        Set dc=db.unprocesseddocuments
        UserName=session.CommonUserName
       
        If dc.count=0 Then
                x=Msgbox("请选取待删除文件！" ,64,"提示：")
                Exit Sub
        End If
       
        T=0
        For j=1 To dc.count
                Set doc = dc.getnthdocument(j)
                Call doc.remove(True)
                T=T+1
        Next
        Call workspace.viewrefresh
       
        If T>0 Then
                x=Msgbox("文件删除完毕，共删除"+T+"个文件！" ,64,"提示：")
        Else
                x=Msgbox("未删除文件！" ,64,"提示：")
        End If
End Sub

pzh

Dim workspace As New notesuiworkspace 中notesuiworkspace是什么对象？
我买不到LOTUS的书杭州各大书店都没有

leafyeer

ui是当前的意思

jimmyvk

我发现在杭州搞的notes的人真的不少，是不是那里用notes的公司和企业比较多啊，今后失业后首选杭州。
你可以查看帮助，如嫌麻烦，就找lotus/domino公式/script手册来看（尽管大部分摘自帮助，但把E文翻译了，查找起来会相应方便点）。

DIRL

thanks!