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

 

posted @ 2014-11-13 10:10  weareyoung  阅读(384)  评论(0)    收藏  举报