DB per Befehl/Funktion als Hompage festlegen ?

[Fusionman]

Hi Leute,

gibt es einen Befehl / eine Funktion oder in Script eine Möglichkeit eine Datenbank als Homepage festzulegen ? Ich wollte nämlich im "Über diese Datenbank" einer bestimmten DB einen Button einbauen, über den der User diese DB als seine Homepage festlegen kann. Ich weis zwar wie das über ein Lesezeichen möglich ist, aber das bedeutet ja nicht, das ein normaler User das weis :-)

Gruß Fusionman

[bob]

Hi,

afaik gibt es in R5 dazu wohl leider keine Möglichkeit.
Hab schon öfter Threads diesbezüglich in Foren gelesen, aber nie mit einer Lösung.

Aber vielleicht gibt's mittlerweile was?
Würde mich auch interessieren.

bye,
Bob

[Axel]

Hi,

ist, so weit ich weiß, nicht möglich.  


Axel

[Glombi]

@Fusionman

Du könntest in die NOTES.INI des Users den Eintrag

StartupDB=<Replik-ID>

mittels Script schreiben.
@Formelsprache geht nicht, da man nur die $... Variablen setzen kann.

Bsp

dim session as New NotesSession
dim db as NotesDatabase
set db = session.CurrentDatabase
call session.SetEnvironmentVar("StartupDB",db.ReplicaID,True)

Bei nächsten Start wird dann automatisch diese DB geöffnet.

Gruß
Andreas

[Fusionman]

Hi Glombi,

hmmm erstmal danke für deinen Tipp ! Allerdings funktioniert das bei mir leider nicht. Der Eintrag wird zwar in der notes.ini eingetragen, aber beim Start von Notes kommt immernoch die alte Homepage bzw. in meinem Fall der Arbeitsbereich, da ich den als Homepage verwende. Hatte auch vor dem Ausführen des Scripts keinen Eintrag "StartupDB" in der notes.ini.
Hast du eventuell noch eine Idee.

Arbeite übrigens mit Notes 5.0.10

Gruß Fusionman

[Glombi]

Sorry, da ist noch ein kleiner Fehler im Script: Die Replik-ID muss mit ":" in der NOTES.INI stehen, die LotusScript Funktion liefert aber die Replik-ID OHNE ":" zurück.
Das hier sollte aber funktionieren:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim replid As String
Set db = session.CurrentDatabase
     
replid = db.ReplicaID
If Instr(replid,":") = 0 Then
replid = Left$(replid,8) & ":" & Right$(replid,8)
End If
     
Call session.SetEnvironmentVar("StartupDB",replid,True)

Gruß
Andreas

[Glombi]

Also, dass mit den Smileys ist hier mal blöd!

In dem Left$... musst Du das Sonnenbrillen Smiley durch , 8 ) ersetzen:
replid = Left$(replid , 8 ) & ":" & Right$(replid , 8 )

[Fusionman]

Hi Glombi,

danke für deine prompte Hilfe. Hätte ich zwar auch selbst draufkommen können, aber manchmal braucht man halt einen, der einen mal von der Leitung schupst :-) ! Klappt auch jetzt, das die DB direkt beim Start von Notes geöffnet wird. Ist zwar nicht direkt wie eine Homepage, da sie ja nur direkt geöffnet wird, und dann auch wieder einfach geschlossen werden kann, aber das sollte es eigentlich erstmal tun für die User. Soll ja eh nur eine Option sein. Ist dem ein oder anderen so vielleicht noch lieber, als sie direkt als Homepage zu haben. Und wer es unbedingt als richtige Homepage haben will, kann es ja auch über das Lesezeichen machen.

Nochmal vielen Dank für deine Hilfe !!!

Gruß Fusionman