いつも、参考にさせていただいております。 過去の掲載内容を確認しましたが、解決できなかったので質問させてください。 受信メール文書を管理するWebアプリケーションを作成しています。 Bodyフィールド（計算結果）をもったフォーム（フォーム名"Memo"）を作成し、受信したメールをこのフォームで表示しています。 受信メールの本文部分はBodyフィールドに表示され、受信メールに添付ファイルが付いていた場合はこの添付ファイル情報（添付ファイルアイコン）が、メール本文のテキスト情報とともにBodyフィールドに表示されます。 この添付ファイルを削除できるようにしたいと思い、スクリプトを作成してみたところ、 $Fileは削除できるのですがリッチテキストフィールド内の添付ファイルアイコンを削除されず残ってしまいます。 以下は検証用に作成したスクリプトで、Notesクライアントから文書を選択して実行しているのですが、 上述の通り$Fileは削除されても、リッチテキストフィールドBodyに添付ファイルアイコンと添付ファイル名が残ってしまいます。 この添付ファイルアイコンと添付ファイル名を削除する方法を教えてください。 （最終的にはWebブラウザからボタンなど押下後、削除する添付ファイルを選択し、選択された添付ファイルのみをBodyから削除したいと考えています。） よろしくお願い致します。 Dim ses As New NotesSession Dim doc As NotesDocument Dim rtitem As Variant Set doc = ses.DocumentContext() Dim file_nm As String file_nm = "test.txt" Set rtitem = doc.GetFirstItem( "Body" ) If Not(rtitem Is Nothing) Then If ( rtitem.Type = RICHTEXT ) Then Forall o In rtitem.EmbeddedObjects If o.Type = EMBED_ATTACHMENT Then If o.Name = file_nm Then Call o.Remove End If End If End Forall End If End If Call doc.Save(False,False)