我在网上找了下段代码,复制到script代理里报错,FullName=User.Abbreviated这段出错,没做过开发,请哪里能解释一下,改怎么改,谢谢Option Public
Sub Initialize
Dim S As New NotesSession
Dim ws As New notesuiworkspace
Dim User As New Notesname(S.Username)
Dim DB As NotesDatabase
Dim DC As NotesDocumentCollection
Dim Doc As Notesdocument
Dim Item As NotesItem
Dim ACL As NotesACL
Dim Entry As NotesACLEntry
Dim tArray As Variant
Set DB=S.CurrentDatabase
Set ACL = DB.ACL
FullName=User.Abbreviated
Set Entry = ACL.GetEntry( FullName )
n=ws.Prompt(PROMPT_OKCANCELEDIT,"", "请输入域的名称", "", "")
If n<>"" Then
v=ws.Prompt(PROMPT_OKCANCELEDIT,"", "请输入要修改的值", "", "")
Else
Msgbox "域的名称不能为空!"
Exit Sub
End If
Set DC=DB.UnprocessedDocuments
Set Doc = DC.GetFirstDocument()
While Not(Doc Is Nothing)
Set Item=doc.ReplaceItemValue(n,v)
Call doc.save(True,True)
Set Doc = DC.GetNextDocument(Doc)
Wend
End Sub
收起