Sometimes the size of the attachment is limited when loading the attachment on the page.
Call agent in the form of webquerysave in (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 .name = "$ file" the set neo = doc.getatachment (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 = "Attachment is too big, unable to upload" End if End Sub
