こんにちは、いつも参考にさせていただいております。 ヘルプやこちらのサイトで検索をしたのですが、どうしても やり方がつかめず、ご教授いただけないかと書き込みをしました。 読者フィールドにデフォルトでロール名が入っています。 そこにフォームにつけたボタンでアドレス帳ダイアログをひらいて 複数選択をしてそれを読者フィールドに追加させたいと思っています。 一人だけ選択の場合はできたのですが、複数になると Pickliststringsでとった複数値の値はVariant型になるので それをどうやって読者フィールドにAppendしてよいのかわからないのです。 デバックもしてみて、picklistに複数選択した名前が入っているのは 確認していますが、どうやってVariantの[0]〜にはいっているものを すべてとってStringに変換してよいのかとわからずにいます。 ロジックは以下のとおりです。 Dim ws As New notesuiworkspace Dim uidoc As NotesUIDocument Dim picklist As Variant Dim currentCC As String Dim newchoice As String Set uidoc = ws.CurrentDocument currentCC = uidoc.FieldGetText("Readers") picklist = ws.PickListStrings(0,1,"server","file","view","title","prompt",column,categoryname) Dim cclist As NotesName Dim rescc As String Set cclist = New NotesName(picklist(0))←ひとりならこれでよいのですが・・・ rescc = cclist.Abbreviated Call uidoc.FieldAppendText("Readers" , ";" & rescc) 初歩の質問ではありますが、どなたかお時間がありましたら ご教授いただけませんでしょうか？ よろしくお願いします。