メールのBodyフィールドはリッチテキストなので、 >Set item = doc.GetFirstItem("Body") >Call item.CopyItemToDocument(doc2,"Body") のところを Dim ritem as notesrichtextitem set ritem = doc.getfirstdocument("Body") call doc2.copyitem(ritem,"Body") と変えてみてはどうでしょう。 Bodyフィールドの内容を全てコピーしているので、添付ファイルも一緒に転送されるはずです。 初めてのスクリプトでここまで書けるとは、すごいですね