Summen in einer Ansicht-Spalte abfragen

[Bruce Willis]

Hallo,

wie bzw. womit kann man die Summen in einer Ansichtspalte auslesen?
Mein u.g. Code funktioniert leider nicht.

Vielen Dank im Voraus.

Gruß
Leo

Code

Sub Initialize
	
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument	'neue Mail
	Dim entryOne As NotesViewEntry	'das erste ViewEntry in Ansicht
	Dim vec As NotesViewEntryCollection 
	Dim counter As Integer 
	
	Set db = session.CurrentDatabase
	
	counter = 0
	Set view = db.GetView( "szCalendarVollAktMAFreiwillig" )
	view.AutoUpdate = False
	Set vec = view.AllEntries
	Set entryOne = vec.GetFirstEntry()
	
	While Not (entryOne Is Nothing)
		
		Print "ColumnValues: " & CStr(entryOne.ColumnValues(0)) & " - " &  CStr(entryOne.ColumnValues(1))
		Print "ChildCount: " & CStr(entryOne.ChildCount)& " - " &  CStr(entryOne.ColumnValues(1))
		Print "IsTotal: " & CStr(entryOne.IsTotal)	& " - " &  CStr(entryOne.ColumnValues(1))
		Print "SiblingCount: " & CStr(entryOne.SiblingCount)& " - " &  CStr(entryOne.ColumnValues(1))	
		Print "IsCategory: " & CStr(entryOne.IsCategory) & " - " &  CStr(entryOne.ColumnValues(1))
		
		If entryOne.IsTotal Then
			Print "Yeeees!!!"
			Exit Sub	
		End If
		
		If entryOne.IsCategory Then
			Print "Jaaaa!!!"
			Exit Sub	
		End If
		
		counter = counter + 1
			Set entryOne = vec.GetNextEntry(entryOne)  
	Wend

	Print counter
	
End Sub