ブレゴさん、返答ありがとうございます。 Field_Aに設定されている値が複数値の場合もあるため、拡張構文は使用しませんでした。 ちなみに以下の式でも同じような現象が起こってしまいます。 Dim itemR As NotesItem Dim itemOpenReaders As NotesItem Set itemOpenReaders = doc.GetFirstItem("Field_A") Forall y In doc.Field_B If y = "" Then Exit Forall End If Dim nName As NotesName Set nName=ses.CreateName(y) Call itemOpenReaders.AppendToTextList( nName.Canonical ) itemOpenReaders.IsReaders = True End Forall Call doc.Save(True, False) 何がいけないのでしょうか・・・?