LOTUSSCRIPT/COM/OLE CLASSES
Dim doc As NotesDocument Dim rtitem As Variant Dim attachCount As Integer Dim linkCount As Integer Dim objectCount As Integer '...set value of doc... Set rtitem = doc.GetFirstItem( "Body" ) attachCount = 0 linkCount = 0 objectCount = 0 If ( rtitem.Type = RICHTEXT ) Then Forall o In rtitem.EmbeddedObjects Select Case o.Type Case EMBED_ATTACHMENT: attachCount = attachCount + 1 Case EMBED_OBJECTLINK: linkCount = linkCount + 1 Case EMBED_OBJECT: objectCount = objectCount + 1 End Select End Forall End If Print( attachCount & " attachments " & linkCount & _ " links " & objectCount & " objects " )
See Also