限制附件大小(lotus)

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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

在表单的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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航