' # 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.
wann schläfst du eigentlich ?