如何获取notes中的邮件账户列表，它是存在配置文件中还是存在邮件数据库中呢？
想获取notes中的邮件账户列表，请各位高手指点一下。 --------------------编程问答--------------------
得到所有用户账户使用情况，导出到excel
sub aaa
On Error Goto errhandle
Dim ss As New NotesSession
Dim dbdir As NotesDbDirectory
Dim db As NotesDatabase
Dim xlApp As Variant, xlsheet As Variant, rows As Integer, cols As Integer
servername =Evaluate(|@servername|)
Set dbdir =ss.GetDbDirectory(servername(0))
Set db = dbdir.GetFirstDatabase(DATABASE)
Set xlApp = CreateObject("Excel.Application") 'start Excel with OLE Automation
maxcols=1000 'how many columns?
rows = 1
cols = 1
xlApp.StatusBar = "Creating WorkSheet. Please be patient..."
xlApp.Visible = True
xlApp.Workbooks.Add
xlApp.ReferenceStyle = 2
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
While Not (db Is Nothing)
xlsheet.Cells(rows,1).Value = db.Title
xlsheet.Cells(rows,2).Value = db.FileName
xlsheet.Cells(rows,3).Value = db.FilePath
xlsheet.Cells(rows,4).Value= Cstr(db.Size)
Print db.Title+"数据库名"+db.FileName+"路径"+db.FilePath
rows=rows+1
Set db = dbdir.GetNextDatabase
Wend
xlApp.StatusBar = "Success Export data"
Set xlapp=Nothing 'stop OLE
errhandle:
Print Error & " At Line " & Erl
End Sub
--------------------编程问答-------------------- 谢谢，但是我使用java的，先谢谢了 --------------------编程问答-------------------- 这个是lotus script --------------------编程问答-------------------- 不好意思啊，孤陋寡闻了 --------------------编程问答-------------------- 楼主可以留个联系方式吗 共同探讨下，我们也有你相似的问题
补充：企业软件 , Lotus
