有时在页面载入附件时,限制附件的大小
在表单的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
