RE: how to check for rtitem has embeddedObjects but object has no objects Kenneth Haggman 13.Jul.07 01:03 PM a Web browser Notes Client 6.0.2 CF2Windows 2000
I guess you could try:
If Not IsEmpty (rtitem.EmbeddedObjects) Then ...
Could it be the case that this particular document doesn't have the attachments in the RichText-item doc in the document itself?
Another way to find all attachments in a document, whether they are in a RichText-item or not is to use @AttachmentNames
Dim vEval As Variant
Dim embObj As NotesEmbeddedObject
vEval = Evaluate("@AttachmentNames", docMain)
ForAll v In vEval
If v <> "" Then
... now you can use ...
Set embObject = docMain.GetAttachment(v)
Call embObj.ExtractFile (FolderName & Cstr(DocCntr) & "_" & FromStr & "_" & "ATTCHMNT" & "_" & v)