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
