こんにちわ。 文書内ですから、NotesDocumentクラスのEmbeddedObjectsが使えます。 以下はヘルプからの抜粋です。 Forall o In doc.EmbeddedObjects Messagebox( o.Name ) End Forall 枠外でなく、リッチテキスト内に必ずあるのでしたら、 NotesRichTextItemクラスのEmbeddedObjectsが使えます。 以下はヘルプ抜粋です。 Set rtitem = doc.GetFirstItem( "Body" ) If ( rtitem.Type = RICHTEXT ) Then Forall o In rtitem.EmbeddedObjects If ( o.Type = EMBED_ATTACHMENT ) Then Call o.ExtractFile( "c:\samples\" & o.Source ) Call o.Remove Call doc.Save( False, True ) End If End Forall End If