摘要：Function ChangePassword(doc As NotesDocument) As Boolean On Error Goto ErrHandler Dim sess As New NotesSession Dim vwNAB As NotesView Dim docNAB As NotesDocument Dim temp As Variant Dim ErrMsg As String Forall dbNAB In sess.AddressBooks Call dbNAB.Open("", "") If dbNAB.IsOpen The 阅读全文