Created on Mar 2, 2009, 9:55 AM by GeoSpherE
ข้อนี้ทำได้แล้วครับ
1. เช็คขนาด Attach File ทั้งหมดใน DB
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim dc As NotesDocumentCollection
Set dc = db.Search({@AttachmentLengths > 0 } , Nothing , 0)
Dim doc As Not
Read More
|