Examples: HasEmbedded property

  1. This script prints a message.
    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. This script goes through each document in the current database and checks to see if it contains an object, link, or file attachment. If so, it places the document in the folder called "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