限制附件大小(lotus)

类别:编程语言 点击:0 评论:0 推荐:

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

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

本文地址:http://com.8s8s.com/it/it27640.htm