下の式で、添付ファイルを保存することができると思います。 Dim s As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim doc As NotesDocument Dim rtitem As Variant Dim fileCount As Integer fileCount = 0 Set db = s.CurrentDatabase Set collection = db.AllDocuments Set doc = collection.GetFirstDocument Do Until doc Is Nothing Set rtitem = doc.GetFirstItem( "RichText" ) If ( rtitem.Type = RICHTEXT ) Then Forall o In rtitem.EmbeddedObjects If ( o.Type = EMBED_ATTACHMENT ) Then fileCount = fileCount + 1 Call o.ExtractFile _ 保存する場所の指定です。→ ("C:\ﾉｰﾂﾜｰｸ\RichTextFile" ) RichTextFiel は、保存時のファイルの名前です GetAttachment などを使って Item の名前を取るなどの 工夫が必要になるかと思います。 End If End Forall End If Set doc = collection.GetNextDocument(doc) Loop この式は、全てのドキュメントを取り、そのコレクションから 添付ファイルを検索し、保存させるｽｸﾘﾌﾟﾄです。 問題は、添付ファイル以外のオブジェクトがフィールドに 入っているとエラーになります。