欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

想请问上:就是某个邮件服务器上有个mail文件夹,怎么取到那个文件夹里所有文件的文件名和文件标题?

更新时间: 2014-01-05 03:00:59 责任编辑: Author_N1

 

想请教下:就是某个邮件服务器下有个mail文件夹,如何取到那个文件夹里所有文件的文件名和文件标题?????????急啊!!!
想请教下:就是某个邮件服务器下有个mail文件夹,如何取到那个文件夹里所有文件的文件名和文件标题?????????
--参考方法--


Sub Initialize
On Error Goto errproc
Dim Session As New NotesSession
Dim Dire As NotesDbDirectory
Dim Db As NotesDatabase
Dim mACL As NotesACL
Dim mACLEntry As NotesACLEntry
Dim Collection As NotesDocumentCollection
Dim curdb As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim myACL As NotesACL
Dim myACLEntry As NotesACLEntry
Dim viewpz As notesview
Dim docpz As notesdocument
'Dim mUtil As Variant
'Dim item As notesitem
'Dim DirName As notesitem

Dim FileName As String
Dim Index As Integer

Index = 1

ServerStr$ = Inputbox("Name of server(eg:test/test)?", "Server")
If ServerStr$ ="" Then
Msgbox "输入服务器Server才能继续执行!"
Exit Sub
End If


DirName$ = Inputbox("Name of Directory(eg:testoa)?", "Directory")
If DirName$ ="" Then
Msgbox "输入服务器Directory才能继续执行!"
Exit Sub
End If



Index = 1

Dim excelApp As Variant
Dim excelWorkbook As Variant
Dim excelSheet As Variant
Set excelApp=CreateObject("Excel.Application")
excelApp.Visible = True
Set excelWorkbook = excelApp.Workbooks.Add
Set excelSheet = excelWorkbook.Worksheets("Sheet1")
excelSheet.Cells(1,1).Value = "数据库名称"
excelSheet.Cells(1,2).Value = "文件目录"
excelSheet.Cells(1,3).Value = "文件名"
excelSheet.Cells(1,4).Value = "文档数"
excelSheet.Cells(1,5).Value = "文件大小(M)"


Set Dire = Session.GetDbDirectory(ServerStr$)
Set Db = Dire.GetFirstDatabase(DATABASE)
While Not Db Is Nothing

If Instr(db.FilePath,DirName$+"\")>0 Then
Index = Index + 1     
excelSheet.Cells(Index,1).Value = Db.title
excelSheet.Cells(Index,2).Value = Db.FilePath
excelSheet.Cells(Index,3).Value = Db.filename
Call Db.open("", "")
excelSheet.Cells(Index,4).Value = Db.AllDocuments.Count
tmp# = 1024^2
excelSheet.Cells(Index,5).Value = Db.size/tmp#

End If
Set Db = Dire.GetNextDatabase
Wend


Exit Sub


errproc:
Msgbox "Error:"+Error$+" in Line:"+Cstr(Erl())
If Not (excelApp Is Nothing) Then
excelApp.DisplayAlerts = False
excelApp.Quit
Set excelApp= Nothing
End If 
Msgbox "Error:"+Error$+" in Line:"+Cstr(Erl())
End Sub



以前统计服务器数据库信息的代码,可以参考一下
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:00:59
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/17278/
本文WWW.DOC100.NET DOC100.NET版权所有。