LOTUSSCRIPT /COM/OLE のクラス
例:HasEmbedded プロパティ
1. 次のスクリプトはメッセージを表示します。
Dim doc As NotesDocument
'...set value of doc...
If doc.HasEmbedded Then
Messagebox _
( "Doc contains an object, link, or attachment" )
Else
Messagebox _
( "Doc has no objects, links, or attachments" )
End If
2. 次のスクリプトは現在のデータベースの各文書を調べて、文書にオブジェクト、リンク、添付ファイルのどれかが含まれているかどうかを調べます。これらが文書に含まれているとき、スクリプトは文書をフォルダ [Sally's Object Store - Open 9 to 5] に入れます。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim collection As NotesDocumentCollection
Set db = session.CurrentDatabase
Set collection = db.AllDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
If doc.HasEmbedded Then
Call doc.PutInFolder _
( "Sally's Object Store - Open 9 to 5" )
End If
Set doc = collection.GetNextDocument(doc)
Wend
関連項目
HasEmbedded プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集