Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: | Created on Mar 10, 2008, 10:02 AM by 9notes/9Notes|Topic Responses: 12 |
&action=openDocument&documentId=1A9E |
ผมมีแต่ตัวอย่างที่พอเอาไปประยุกต์ต่อได้ครับ ลองเอาไปปรับเปลี่ยนค่าดูครับ
Dim strSearchFomula As String
Dim Collection As NotesDocumentCollection
Dim strMailAge As String
Dim NoOfDay as Integer
'Convert the number days to string as Notes Formulae is formatted as string
strMailAge = Cstr(iMailAge)
strSearchFormula = "DeliveredDate < @Adjust(@Today;0;0;-" + strMailAge + ";0;0;0) | PostedDate < @Adjust(@Today;0;0;-" + strMailAge + ";0;0;0)| @Created < @Adjust(@Today;0;0;-" + strMailAge + ";0;0;0)"
Set Collection=db.Search(strSearchFormula, Nothing,0)
NoOfDay = 1
for i = 1 to collection.count
set doc = collection.GetNthDocument(i)
NoOfDay = NoOfDay + 1
next
:yellow_cool.gif:
[quote]ถ้าผมต้องการ search ระหว่างวันที่ละครับ เช่นต้องการหาเอกสารระหว่างวันที่ 3 มีค
- 7 มีค หรือเอกสารของ 1 เดือน มีคำแนะนำมัยคับ รบกวนด้วยคับ[/quote] |
|