Function Connect(s, db, view) As Boolean
'++++++++++++++++++++++++++++++++++++++++++++++
' Erstellt eine Verbindung zum Domino-Server
' und schreibt die globalen Variablen
' s = Notessession
' db = Notesdatenbank
' view = NotesView
'++++++++++++++++++++++++++++++++++++++++++++++
On Error GoTo ErrorHandling
Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize(MainForm.localPW)
Dim viewName As String, actual As String
Set db = s.GetDatabase(MainForm.Server, MainForm.DominoPath)
If db.IsOpen = False Then
MsgBox "Datenbank: """ + MainForm.Server + """ """ + MainForm.DominoPath + """ ist nicht erreichbar", 0, "Fehler"
Exit Function
End If
viewName = "actual"
Set view = db.GetView(viewName)
If view Is Nothing Then
MsgBox "Ansicht " + viewName + "ist ""Nothing""", 0, "Fehler"
Exit Function
End If
GoExit:
Connect = True
Exit Function
ErrorHandling:
MsgBox "Fehler in Funktion ""Connect""" + Chr(13) + _
"Eventuell stimmt das Passwort nicht.", vbOKOnly, "Fehler"
End Function
Die Referenzen habe ich im Projekt selber definiert... (Project - References...)
liegt da vielleicht der Fehler, weil die *.tlb Dateien auf der Zielmaschine wo anders liegen?
