RE: Determine if there is an Embedded Object in Rich Text Field Michael Yetter 22.Nov.04 04:44 PM a Web browser Domino Designer -- Agents 5.0.4aAll Platforms
BTW... here is the code that is not working (I get a Type Mismatch error around Forall o In rtitem...:
Dim rtitem As Variant
Set rtitem = doc.GetFirstItem( "Event_Description_1_1" )
Forall o In rtitem.EmbeddedObjects
If o.Type = EMBED_ATTACHMENT Then
numAtt = numAtt + 1
Call o.ExtractFile( filePath & stdNameElement & " - " & o.Source )
End If
End Forall
Return to top
. . RE: Determine if there is an Embedd... (Michael Yetter 22.Nov.04) 
Print this page
