Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: | Created on May 24, 2011, 10:29 PM by 9notes/9Notes|Topic Responses: 7 |
&action=openDocument&documentId=C96 |
อาจจะเขียนหยาบไปหน่อยนะครับ แต่คิดว่าพอเป็นแนวทางได้ครับ
Dim session as New NotesSession
Dim db as NotesDatabase
Dim collection as NotesDocumentCollection
Set db = session.CurrentDatabase
set collection = db.UnprocessedDocuments
dim comment as string
comment = inputbox("กรุณาพิมพ์รายละเอียดที่คุณต้องการ")
if comment = "" then
exit sub
End if
For i = 1 to collection.count
Set doc = collection.GetNthDocument(i)
doc.txtComment = Comment
call doc.save(true, false)
End For
|
|