... trifft sich gut, danach habe ich heute bereits gefahndet...
' # ata - Das persönliche Adressbuch in einem bestimmten Frameset öffnen
Dim ws As New NotesUIWorkspace
Dim sServer As String
Dim sFile As String
Dim sView As String
Dim sKey As String
Dim newInstance As Variant
Dim temp As Variant
Dim session As New NotesSession
' # Parameter initialisieren
sServer = "" ' # das persönliche Adressbuch liegt immer Lokal
sView = "" ' # keine View erforderlich
sKey = "" ' # keine Kategorie erforderlich
newInstance = False ' # kein neues Fenster öffnen
temp = False ' # Kachel auf dem Workspace erstellen, wenn noch nicht vorhanden
' # Das persönliche Adressbuch liegt in der Notes.ini mit dem Key "NAMES" hinterlegt...
sFile = Trim(session.GetEnvironmentString("Names",True)) ' # ... der Schlüssel True gibt an, daß kein $-Zeichen vorangestellt ist..
' # ... den ersten Eintrag einlesen - ev. sind kaskadierte Adressbücher hinterlegt...
If Instr(sFile, ",") > 0 Then
sFile = Left$(sFile, Instr(sFile, ",") -1) ' # ... Komma als Separator...
Else
If Instr(sFile, ";") > 0 Then
sFile = Left$(sFile, Instr(sFile, ";") -1) ' # ... Semikolon als Separator...
End If
End If
' # ... Ausführung...
Call ws.OpenDatabase( sServer, sFile, sView, sKey, newInstance, temp ) ' # ... das Adressbuch im Frontend öffnen...
Call ws.OpenFrameSet( "Contacts" ) ' # ... ein Frameset im Frontend öffnen.
ata ;)