訂正です。 For indx% = 0 to Ubound(Picklist) Set cclist = New NotesName(picklist(indx%)) rescc = cclist.Abbreviated Call uidoc.FieldAppendText("Readers" , ";" & rescc) Next