LOTUSSCRIPT /COM/OLE のクラス
例:EmbeddedObjects プロパティ
次のスクリプトは NotesDocument の EmbeddedObjects プロパティを使います。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」
Sub Initialize
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
If doc.HasEmbedded Then
Forall o In doc.EmbeddedObjects
Messagebox( o.Name )
End Forall
Else
Messagebox "No embedded objects found"
End If
End Sub
このスクリプトの表示内容を次に示します。
Word Pro Document
MS Excel Worksheet
Freelance Presentation
123 Worksheet
Ami Pro オブジェクトが Lotus Notes R3 で作成されたため、EmbeddedObjects は Ami Pro 文書を返しません。また、castle.bmp は添付ファイルであるため、EmbeddedObjects は castle.bmp を返しません。
関連項目
EmbeddedObjects プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集