Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: | Created on Jun 11, 2008, 9:51 PM by 9notes/9Notes|Topic Responses: 2 |
&action=openDocument&documentId=1812 |
ประมาณนี้ครับ
Dim s As New NotesSession
Dim w As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim item As NotesItem
Set db = s.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
Do While doc Is Nothing
doc.UserAuthor = "ชื่อ user"
Set item = doc.GetFirstItem("UserAuthor")
item.IsAuthors = True
Call doc.Save(True, False)
Set doc = collection.GetNextDocument(doc)
Loop
:yellow_cool.gif: |
|