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
Véase también
HasEmbedded property
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario