デバッグしてませんが、以下でどうでしょう。 For indx% = 1 to Ubound(Picklist) Set cclist = New NotesName(picklist(indx%)) rescc = cclist.Abbreviated Call uidoc.FieldAppendText("Readers" , ";" & rescc) Next