例: HasEmbedded property

次のスクリプトはメッセージを表示します。

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

次のスクリプトは現在のデータベースの各文書を調べて、文書にオブジェクト、リンク、添付ファイルのどれかが含まれているかどうかを調べます。これらが文書に含まれているとき、スクリプトは文書をフォルダ [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