Domino富文本域内附件大小的判断

 1     Dim wks As New NotesUIWorkspace
 2     Dim uidoc As NotesUIDocument
 3     Dim doc As NotesDocument
 4     Dim rtitem As Variant
 5     Dim object As NotesEmbeddedObject
 6     Dim sizeInBytes As Long
 7
 8     Set uidoc = wks.CurrentDocument
 9     Set doc = uidoc.Document
10     Call uidoc.Save()
11
12     Set rtitem = doc.GetFirstItem("")
13     If rtitem Is Nothing Then
14     Else
15         If rtitem.Type = RICHTEXT Then
16             If Not Isempty(rtitem.EmbeddedObjects) Then
17                 Forall o In rtitem.EmbeddedObjects
18                     Set object = rtitem.GetEmbeddedObject(o.Name)
19                     sizeInBytes = sizeInBytes + object.FileSize
20                 End Forall
21                 Msgbox Cstr(sizeInBytes/1024)
22             End If
23         End If
24
25     End If