Hallo liebe Notes-Gemeinde,
aufgrund unserer Umstellung von R5 auf R6 haben wir folgendes Problem:
Wir müssen für jeden Arbeitsplatz (etwa 900)eine mail mit Button erstellen, der automatisch eine Serververbindung (Durchgangsserver) im persönlichen Adressbuch erstellt. Könnt ihr mir bitte helfen wie ich das anstelle ?
Bin auf dem Gebiet nicht so bewandert. Ich danke euch für jede Unterstützung!
Gruß Joe
ersetzte den String "ServerName/OU/O/C" durch Deinen Durchgangsservernamen und teste den Code vorher.
Dim ws As New Notesuiworkspace
Dim session As New notessession
Dim lokalAdrBook As Notesdatabase
Dim View As Notesview
Dim locationDoc As notesdocument
Dim item as NotesItem
DefaultPassthruServer = "ServerName/OU/O/C"
' Get local Adressbook
Set lokalAdrBook = session.getdatabase("","names.nsf")
If lokalAdrBook.isopen = False Then
Msgbox "Lokales Namens- & Adressbuch kann nicht geöffnet werden."
Exit Sub
End If
' Update Location Documents
Set view = lokalAdrBook.GetView("Locations")
Set locationdoc = view.getfirstdocument
While Not locationdoc Is Nothing
locationdoc.DefaultPassthruServer = DefaultPassthruServer
set item = locationdoc.GetFirstItem("DefaultPassthruServer")
item.IsNames = True
locationdoc.save True,True
Set locationdoc = view.getnextdocument(locationdoc)
Wend
Msgbox "Setup beendet!", 64, "Fertig"Gruß
Dirk
Hallo Dirk,
also der Code funktioniert jetzt. Vielen Dank! Habe mich aber vielleicht ein wenig ungenau ausgedrückt.
Also wir müssen im lokalen Adressbuch (Notes 6) unter dem Punkt erweitert - Verbindungen - Serververbindung - Verbindungstyp"Durchgangsserver" den Ziel-und Durchgangsserver automatisch setzen.
Hat hierfür vielleicht jemand ne Idee ? Danke für jede Antwort !
Gruß Joe
Damit sollte es funktionieren. Es werden alle Verbindungsdokumente überarbeitet, gegebenenfalls musst Du die While-Schleife noch anpassen.
Dim ws As New Notesuiworkspace
Dim session As New notessession
Dim lokalAdrBook As Notesdatabase
Dim View As Notesview
Dim doc_verbindung As notesdocument
Dim item as NotesItem
PassthruServer = \"ServerName/OU/O/C\"
' Get local Adressbook
Set lokalAdrBook = session.getdatabase(\"\",\"names.nsf\")
If lokalAdrBook.isopen = False Then
Msgbox \"Lokales Namens- & Adressbuch kann nicht geöffnet werden.\"
Exit Sub
End If
' Update Connection Documents
Set view = lokalAdrBook.GetView("Connections")
Set doc_verbindung = view.getfirstdocument
While Not doc_verbindung Is Nothing
doc_verbindung.ConnectionType = "2"
doc_verbindung.PassthruServer = PassthruServer
set item = doc_verbindung.GetFirstItem("PassthruServer")
item.IsNames = True
doc_verbindung.save True,True
Set doc_verbindung = view.getnextdocument(doc_verbindung)
Wend
Bitte Code testen.
Gruß
Dirk