LOTUSSCRIPT/COM/OLE CLASSES
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
See Also
HasEmbedded property
Glossary
Help on Help
Open Full Help Window
Glossary
Help on Help
Open Full Help Window