Set rtitem = xmlDoc.GetFirstItem( "域名" )
If ( rtitem.Type = RICHTEXT ) Then
Forall e In rtitem.EmbeddedObjects
If ( e.Type = EMBED_ATTACHMENT ) Then
Call e.ExtractFile( e.name )
filename = e.name
Call e.Remove
End If
End Forall
End If
Dim rtitem2 As NotesRichTextItem
Set rtitem2 = New NotesRichTextItem( Doc, "域名" )
Dim object As NotesEmbeddedObject
Set object = rtitem2.EmbedObject( EMBED_ATTACHMENT, "",文件路径)