LOTUSSCRIPT/COM/OLE CLASSES


Examples: ExtractFile method
This script detaches and removes all the file attachments in a document's Body item that are larger than 100,000 bytes. The first file attachment that's found gets detached to c:\reports\newfile1, the second attachment that's found gets detached to c:\reports\newfile2, and so on.

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