デバッグはもちろん行ないました。 それにより、ココでエラーというのが判明しました。 それでは、質問の仕方を変えさせてください。 NotesEmbeddedObjectクラスへのアクセスの方法が 間違っているのでしょうか。 ヘルプによると・・・ >特定のリッチテキストアイテムにあるすべてのオブジェクト、すべてのオブジェクトリンク、すべての添付ファイルにアクセスするには、NotesRichTextItem の EmbeddedObjects を使います。 とあります。 そこで、 Set object = rtitem.EmbeddedObjects としたのですが、エラーとなりました。 おわかりになる方、ご教示いただけませんでしょうか。