Hallo zusammen,
was stimmt da nicht? die Fehlermeldung: Type mismatch
Laut meinem schlauen Buch muss der Code aber stimmen.
Sub pruefen()
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView
Set db=session.CurrentDatabase
Set view = db.GetView ("Nach_Tage")
Set doc = view.GetFirstDocument
Do Until doc Is Nothing
If doc.tag= "Montag" Then
Msgbox("gefunden")
End If
Set doc = view.GetNextDocument (doc)
Loop
End Sub
