PickListCollection

Dim ws As New NotesUIWorkspace

Dim coll As NotesDocumentCollection

Dim pdoc As NotesDocument

Dim doc As NotesDocument

Set doc = ws.CurrentDocument.Document

Set coll = ws.PickListCollection(1, True, "anotes", "ap\personal.nsf", "people15", "授課講師", "請在下列挑選講師")

' 多選 伺服器 資料庫 視界 大標 小標

If coll Is Nothing Or coll.Count = 0 Then

Exit Sub

End If

Set pdoc = coll.GetFirstDocument

Call doc.ReplaceItemValue("teacherrname", pdoc.bi_cname(0))

Call doc.ReplaceItemValue("f2_classname", pdoc.bi_dept(0))

Call doc.ReplaceItemValue("f2_investitive", pdoc.bi_title(0))