Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: | Created on Jan 13, 2009, 6:43 PM by 9notes/9Notes|Topic Responses: 4 |
&action=openDocument&documentId=299E |
ถาม
1. ต้องการทำการหน้าวิวแสดงรายการว่ามี user ไหนที่ไม่ได้มีตัวตนในระบบแล้วใช่ไหมครับ
2. ต้องรันผ่านเว็บด้วยเหรอครับ
ตอบข้อ 2 ก่อนนะครับขออนุญาติแก้ code เดิมหน่อยหนึ่งครับ
Sub Initialize
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim Ndb As NotesDatabase
Dim doc As NotesDocument
Dim note As NotesDocument
'...
Set db = ss.CurrentDatabase
'===============================================================================
Set doc = ss.DocumentContext
If Not (doc Is Nothing) Then
Set Ndb = ss.GetDatabase("MAILER", doc.MailFile(0))
If Ndb.IsOpen Then
doc.TemplateName = Ndb.DesignTemplateName
doc.Country="1"
Call doc.Save(True,False)
End If
End If
End Sub |
|