如何更改IBM Lotus用户信息标题和公司字段

Question

我有一个来自excel的用户列表。 我们的所有用户在系统上都有一个通用的员工ID号。 我想比较员工ID，如果匹配员工ID，则从excell列表更新公司，职务和部门信息。 我需要一个Lotus脚本请帮帮我:)。

Answer 1

您需要做的第一件事是将一个由Employee ID索引的新视图添加到Domino目录中。让我们通过ID＆＃34;来称呼员工＃34;员工。然后，您将需要编写打开Domino目录数据库的代码：

dim s as new NotesSession
dim myDb as new NotesDatabse("yourServer","names.nsf")
myView = myDb.GetView("Employees by ID")

之后，您的代码会将电子表格中的条目读入变量theEmployeeId，theDepartment和theCompany，然后是以下代码：

dim doc as NotesDocument
doc = myView.GetDocumentByKey(theEmployeeId)
if not doc is nothing then
  doc.ReplaceItemValue("Title",theTitle)
  doc.ReplaceItemValue("Department",theDepartment)
  doc.ReplaceItemValue("CompanyName",theCompany)
  doc.Save(true,false,false)
end if