Hallo,
also ich gehe bei uns folgenden Weg. Nach der Installation des Notes Clients schicken wir dem Anwender eine Mail mit dem folgenden Script in einer Schaltfläche.
Das Script liest aus der notes.ini des Clients den Mailserver, sowie das Mailfile aus und legt eine entsprechende Replik lokal an.
Wir setzen dieses Script unter Windows NT oder Win 2000 ein.
Der Vorteil des Scripts ist der, daß man es auch nachträglich einsetzen kann, also wenn der Benutzer schon länger mit Notes arbeitet, aber jetzt erst die lokale Replik benötigt.
Viele Grüße
Andreas
Sub Click(Source As Button)
Dim session As New NotesSession
Dim ws As New notesuiworkspace
Dim db As NotesDatabase
Dim replica As NotesDatabase
Dim origserver As String
Dim orgdatei As String
Dim zielserver As String
Dim zieldatei As String
'----- Orginal-DB und Ziel-DB angeben -----
orgserver = session.GETENVIRONMENTSTRING("MailServer",True)
orgdatei = session.GETENVIRONMENTSTRING("MailFile",True)
zielserver = "" '----- kein Server, da lokale Replik
zieldatei = session.GETENVIRONMENTSTRING("MailFile",True)
Set db = session.getdatabase(orgserver, orgdatei)
Set replica = db.CreateReplica(zielserver, zieldatei )
Call ws.adddatabase(zielserver, zieldatei)
Print("Datenbank: " + zielserver + " "+ zieldatei + " wurde hinzugefügt")
End Sub