Hallo,
ich möchte ein Memo mit einer Verknüpfung zu einer Notesdatenbank erstellen. Diese zeigt jedoch auf einen Server, den der Client des Empfängers nicht kennt. D.h. es gibt kein Verbindungsdokument.
Wie ist dies zu realisieren?
Verknüpfung auf Datenbank auf neuem Server
- ralph71
- Erledigt
-
-
Hallo!
Ich gehe einfach mal davon aus das der Empfänger die nötigen Rechte auf dem Zielserver hat.
Was das Verbindungsdokument betrifft so hast du die Möglichkeit entweder zu Scripten oder du schreibst in der Mail an den Empfänger dieser soll bevor er auf den Link klickt folgendes tun:
- STRG + O drücken (Es öffnet sich das Datenbank öffnen Fenster)
- die IP Adresse des Zielservers eintippen (diese am besten per Mail mitschicken)
- auf OK klicken.Dadurch wird automatisch bei dem Empfänger in dem pers. Adressbuch ein Verbindungsdokument für den Zielserver erstellt.
Gruß aus Münster
-
Hallo Fireball,
diese Methodik ist mir bekannt. Ich dachte, es gibt eine DAU-Lsg, d.h. Link klicken und fertig.
-> Verbindungsdokument wird automatisch angelegt
-> Datenbank wird geöffnet -
Klar du kannst über den Link ja auch ein Script ausführen das das Verbindungsdokument anlegt
-
Ich hab sowas mal irgendwann auch bei uns geschrieben (als Schaltfläche). Eine DB wird nur als Kachel hinzugefügt, eine weitere geöffnet.
Hier der Code:
ZitatAlles anzeigen
Sub Click(Source As Button)
Dim session As New notessession
Dim db As NotesDatabase
Set db = session.GetDatabase( "", "names.nsf" , False )
If db.isopen Then
Dim view As NotesView
Set view = db.GetView ("Connections")
Dim Verbindung As NotesDocument
Set Verbindung = view.GetDocumentByKey ("Testserver/Testdomain")
If Verbindung Is Nothing Then
Call CreateConnect (db)
Else
Print "Verbindungsdokument bereits vorhanden. Es werden nur die DB-Kacheln hinzugefügt."
End If
Dim ws As New NotesUIWorkspace
Call ws.AddDatabase( "Testserver/Testdomain" , "verzeichnis\db1.nsf" )
Call ws.OpenDatabase( "Testserver/Testdomain" , "verzeichnis\db2.nsf" )
Else
Msgbox "Fehler ! Persönliches Adressbuch konnte nicht gefunden / bzw. geöffnet werden."
End If
End SubFunction CreateConnect (db As NotesDatabase)
Dim doc As NotesDocument
Set doc = db.createdocument
Call doc.appenditemvalue ("FORM","Connection")
Call doc.computewithform (False, False)
doc.ConnectionType = "0"
doc.ConnectionLocation = "*"
doc.Destination = "CN=Testserver/O=Testdomain"
doc.LanPortName = "TCPIP"
doc.PortName = "TCPIP"
doc.OptionalNetworkAddress = "192.168.n.n"
doc.PhoneNumber = "192.168.n.n"
doc.Source = "*"
doc.ConnectionRecordFirst="1"
Call doc.save (True,True)
Dim view As NotesView
Set view = db.getview("($Connections)")
Call view.refresh
Set view = db.getview ("Connections")
Call view.refresh
End FunctionHTHH
Gruß
Ozzy