Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: | Created on Jan 13, 2009, 4:18 PM by unicorn/9Notes|Topic Responses: 4 |
&action=openDocument&documentId=25CE |
ได้แล้วครับใช้สำหรับตรวจสอบ Mail File บน Server กับ Address Book ว่าตรงกันหรือไม่
ส่วนข้อ2 ยังไม่ได้ครับ
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 Not Ndb.IsOpen Then
Else
doc.Country="1"
Call doc.Save(True,False)
End If
End If
End Sub |
|