例: NotesEmbeddedObject class

次の 2 つのスクリプトは、NotesDocument の EmbeddedObjects プロパティと NotesRichTextItem の EmbeddedObjects プロパティを使用してオブジェクトにアクセスするときの違いを示しています。2 つのスクリプトは両方とも、サーバー SanFrancisco にある Hill.NSF の [All Document] ビューの最後の文書にアクセスします。

文書に含まれるものを次に示します。

Body アイテムに含まれる Lotus Word Pro® の埋め込みオブジェクト「Word Pro Document」
Body アイテムに含まれる Microsoft Excel のオブジェクトリンク「MS Excel Worksheet」
Body アイテムに含まれる、Notes® R3 で作成された Lotus Ami Pro の埋め込みオブジェクト「AmiPro Document」
Body アイテムに含まれる添付ファイル「CASTLE.BMP」
Description アイテムに含まれる Freelance Graphics® の埋め込みオブジェクト「Freelance Presentation」
文書作成に使用されたフォームに埋め込まれ、その後起動、編集された Lotus 1-2-3® の埋め込みオブジェクト「123 Worksheet」

1. 次のスクリプトは、NotesDocument の EmbeddedObjects プロパティを使用して次の名前を表示します。

Word Pro Document
MS Excel Worksheet
Freelance Presentation

123 Worksheet

Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = New NotesDatabase( "SanFrancisco", "hill.nsf" )
Set view = db.GetView( "All Documents" )
Set doc = view.GetLastDocument
Forall o In doc.EmbeddedObjects
  Messagebox( o.Name )
End Forall

2. 次のスクリプトは、NotesRichTextItem の EmbeddedObjects プロパティを使用して次の名前を表示します。

Word Pro Document
MS Excel Worksheet
Ami Pro Document

"" (添付ファイル CASTLE.BMP を表します。添付ファイル CASTLE.BMP の Name プロパティは空の文字列です)

Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim rtitem As Variant
Set db = New NotesDatabase( "SanFrancisco", "hill.nsf" )
Set view = db.GetView( "All documents" )
Set doc = view.GetLastDocument
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    Messagebox( o.Name )
  End Forall
End If