Danke, das war´s
Für alle die es mal brauchen können hier also das Script:
Dim db As NotesDatabase
Dim db1 As New NotesDatabase( "", "" )
Dim view As NotesView
Dim col As notesdocumentcollection
Dim doc As notesdocument
Dim vc As NotesViewEntryCollection
Dim session As New NotesSession
Dim anz As Integer ' # of docs in view
Set db1 = New NotesDatabase( "Graz1/AT/UCB", "Exchange.box" )
Set db = session.CurrentDatabase
Dim LogObj As New NotesLog("Report record")
Call LogObj.OpenNotesLog( db.server, "Exch-Log.nsf" ) ' open log file
Set view = db1.GetView("Mail") ' get view from Exchange.box
Set vc = view.AllEntries ' all documents in view
anz=vc.count ' count documents in view
If (anz > 49 And anz < 55) Then
Dim mail As NotesDocument
Set mail = New NotesDocument( db )
.......
Nochmals lieben Dank für die prompte Unterstützung und einen schönen Tag!
Gerhard