HCL Domino - Examples: HasEmbedded property - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

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

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents