将某数据库的ACL信息写入文件将其作为附件寄出

Dim db As New notesdatabase(“”,”XXX.nsf”)
Dim acl As notesAcl,session As New notesSession
Dim entry As notesACLEntry,myLevel As String,t1 As Integer
Dim myFile As String
Set acl=db.acl
‘将Acl条目信息写入一个临时文件
myFile=”c:\myACL.txt”
Open myFile For Output As #1
Set entry=acl.getfirstEntry
Do Until entry Is Nothing
t1=entry.level
If t1=6 Then myLevel=”Manager”
If t1=5 Then myLevel=”Designer”
If t1=4 Then myLevel=”Editor”
If t1=3 Then myLevel=”Author”
If t1=2 Then myLevel=”Reader”
If t1=1 Then myLevel=”Depositor”
If t1=0 Then myLevel=”No Access”
Print #1,entry.name;Tab(50);mylevel
‘得到该条目的所以角色
Forall y In entry.roles
If y=”" Then
Else
Print #1,”…role:”&y
End If
End Forall
Set entry=acl.getNextEntry(entry)
Print #1,”"
Print #1,”———-”
Loop
Close #1
Print “file writtento”&myFile

‘创建邮件文档，将包含Acl信息的临时文档作为附件寄出
Set doc=New notesDocument(db)
Set rtitem=New notesRichTextItem(doc,”body”)
Dim recipients(1 To 3) As String
recipients(1)=session.commonUserName
Messagebox session.commonuserName
messageSubject=”存取控制列表”
MessageBody=”控制列表内容，在附件上单击鼠标右键，并选择”+Chr$(34)+”启动”+Chr$(34)+”查看这个文件”
doc.body=MessageBody
Set bject=rtitem.EmbedObject(EMBED_ATTACHMENT,”",myFile,”Attachment1″)
‘doc.Form=”Main Topic”
doc.subject=messageSubject

Call doc.send(False,recipients)
‘Call doc.save(True,True)
Print “邮件已寄出”
Messagebox “邮件已寄出”,0,”Email Sent!”
Kill MyFile
Print “临时文件:”+MyFile+” 已被删除。”

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/24998103/viewspace-697350/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/24998103/viewspace-697350/