2016-04-06 9 views

cevap

1

Buldum: Sen NotesDatabase sınıfının Sunucu özelliği erişebilirler

0

clem

NotesSession.CurrentDatabase.Server böyle:

Dim session As New NotesSession 
Dim db As NotesDatabase 
Dim ag As NotesAgent 

Set db = session.Currentdatabase 
Set ag = session.Currentagent 
If ag.Iswebagent then 
    MsgBox db.server 
End if 
İlgili konular