LOTUSSCRIPT/COM/OLE CLASSES
Dim doc As NotesDocument Dim rtitem As Variant Dim fileCount As Integer Const MAX = 100000 fileCount = 0 '...set value of doc... Set rtitem = doc.GetFirstItem( "Body" ) If ( rtitem.Type = RICHTEXT ) Then Forall o In rtitem.EmbeddedObjects If ( o.Type = EMBED_ATTACHMENT ) _ And ( o.FileSize > MAX ) Then fileCount = fileCount + 1 Call o.ExtractFile _ ( "c:\reports\newfile" & Cstr(fileCount) ) Call o.Remove Call doc.Save( True, True ) End If End Forall End If
See Also