Hallo Leute,
ich habe da ein Problem,
folgendes Skript läuft auf meinem Rechner, aber nicht auf anderen Rechner.
Auf dem anderen Rechner ist die View auf die ich zugreifen will auch im Designer nicht zu sehen.
Fehlermeldung : Object Variable not set
Function PruefeIDaufWeitergabe (IDENT As String) As Integer
PruefeIDaufWeitergabe = 0
Dim session As New NotesSession
Dim view As NotesView
Dim dc As NotesDocumentCollection
Dim db As NotesDatabase
Dim Doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView( "(e4vwInternIdent)" )
-> Set dc = view.GetAllDocumentsByKey(IDENT, True)
Set doc = dc.getfirstdocument
While Not (doc Is Nothing)
If doc.wfl_an(0) <> "" Then
PruefeIDaufWeitergabe = PrufeIDaufWeitergabe + 1
End If
Set doc = dc.GetNextDocument(doc)
Wend
End Function