落ち着いて、ヘルプをもう一度よく見ましょう。 Set object = rtitem.EmbeddedObjects このEmbeddedObjectsプロパティは戻り値がNotesEmbeddedObjectの配列です。 なので、「型が一致しません」なのです。