如何使用名稱

Question

我有一個按鈕，下面的代碼放在一個Notes表單

Sub Click(Source As Button) 
    Dim ws As New NotesUIWorkspace 
    Dim rtn As Variant 
    Dim thisDoc As NotesDocument 
    Dim origNames As Variant 
    Set thisDoc = ws.CurrentDocument.Document 
    origNames = thisDoc.CCTo 
    rtn = ws.PickListStrings( PICKLIST_Names,True) 
    If Not(Isempty(rtn)) Then 
     thisDoc.CCTo = rtn 
     thisDoc.CCToChanged = 1 
    End If 
    ws.CurrentDocument.Refresh 
End Sub 

領料工作正常，並設置值到現場CCTO不過，我需要爲的LotusScript PickListString設置默認值將origNames中的值作爲PickList中的一組默認值，並且無法看到如何到達那裏。

Answer 1

PickListString不使用預選的選項。 我認爲你應該使用notesUIWorkspace.Prompt（）

PROMPT_OKCANCELLISTMULT類型是精確的。 Notes Designer幫助有一些示例代碼。