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
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.