Einen wunderschönen guten Morgen Deutschland und liebe Notes Gemeinde,
Habe hier folgendes Problem:
Dim session As New NotesSession
Dim dbNamesNSF As NotesDatabase
Dim dbMailBox As Notesdatabase
Dim vwNamesByFullName As NotesView
Dim docCurrent As NotesDocument
Dim docUser As NotesDocument
Dim docProfile As Notesdocument
Dim strNoAServer As String
Dim strNoAPath As String
Dim strMailServer As String
Dim strMailPath As String
Dim strMessage As String
Dim i As Integer
Set docCurrent = ws.CurrentDocument.Document
strNoAServer = docCurrent.GetItemValue("txtServer")(0)
strNoAPath = "namens.nsf"
Set dbNamesNSF = session.GetDatabase(StrNoAServer,strNoAPath)
If Not dbNamesNSF.IsOpen Then
Call dbNamesNSF.Open(strNoAServer,strNoAPath)
End If
Set vwNamesByFullName = dbNamesNsf.GetView("($VIMPeople)")
Bekomme immer die Meldung dass die DB noch nicht geöffnet wurde, aber ein Fehler liegt doch hier nicht vor , oder ???