在ADMIN中查询哪个用户总共有多少邮件(转)

bennial

        Dim session As New notessession
        Dim name_db As notesdatabase
        Dim name_view As notesview
        Dim name_doc As notesdocument
        Dim usermail_db As notesdatabase
        Dim usermail_dc As notesdocumentcollection
       
        Set name_db = session.GetDatabase( "ServerName", "names.nsf" )
        Set name_view = name_db.getview("People")
        Set name_doc = name_view.getfirstdocument       
        i=1
        Open "c:\MailStat.txt" For Append As #1
        Do While Not name_doc Is Nothing
                username = name_doc.fullname(0)
                Print #1,"开始检查"+username+"的邮箱......................."
                Set usermail_db = session.getdatabase("ServerName",name_doc.MailFile(0)+".nsf")
                Set usermail_dc = usermail_db.AllDocuments
                Print #1,username+"的邮箱共有"+usermail_dc.count+"个文档"
                Print #1,"检查结束........................................."+Chr(13)
                i=i+1
                Set name_doc = name_view.getnthdocument(i)
        Loop
        Close #1

icerain_1

不错，顶一下