...
Set db = session.GetDatabase(сервер, "names.nsf")
Set view = db.GetView("($NamesFieldLookup)")
Set doc = view.GetDocumentByKey("Василий Пупкин", True)
Set maildb = session.GetDatabase(doc.MailServer(0), doc.MailFile(0))
Set agent = maildb.GetAgent("OutOfOffice")
If agent.IsEnabled Then
...