先ほどの訂正です。 >Dim ritem as notesrichtextitem >set ritem = doc.getfirstdocument("Body")'←ここを >call doc2.copyitem(ritem,"Body") Dim ritem as notesrichtextitem set ritem = doc.getfirstitem("Body")'←としてください call doc2.copyitem(ritem,"Body")