限制附件大小(lotus)

 

有时在页面载入附件时,限制附件的大小

在表单的webquerysave里调用代理(checksize):
Sub Initialize
Dim s As New notessession
Dim doc As notesdocument
Dim neo As Notesembeddedobject
Dim pos As Integer
Dim size As Long

Set doc = s.documentcontext

pos=0
size = 4
size = size * 1024
Forall o In doc.items
If o.Name=$FILE Then
Set neo=doc.getattachment(o.Values(0))
If neo.filesize>10 Then
Call neo.remove
pos=1
End If
End If
End Forall
Call doc.save(True,False)
If pos=1 Then
doc.errormsg=附件太大,无法上传
End If

End Sub
</< span>