LOTUSSCRIPT /COM/OLE のクラス
例:NotesEmbeddedObject クラス
次の 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 アイテムに含まれる、Lotus Notes R3 で作成された Lotus Ami Pro の埋め込みオブジェクト「Ami Pro 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
関連項目
NotesEmbeddedObject クラス
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集