Examples: HasEmbedded property
- 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
- 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