I am trying to use the CreateViewNavFromCategory to pull back a collection of documents including response documents. The problem is the collection that is being brought back does not include response documents. I can see all documents in the view that I’m using including the response documents, but the navagator does not recognize the response documents or does not bring them back. Any insight to this problem will be appreciated.
Dim yearMonth As String
Dim answer As Integer
Dim WS As notesuiworkspace
Dim UiView As NotesView
Dim view As NotesView
Dim uiDoc As NotesUIDocument
Dim ViewString As String
Dim session As NotesSession
Dim db As NotesDatabase
Dim v As NotesView
Dim docX As NotesDocument
Dim col As Integer
Dim row As Double
Dim xl As Variant
Dim xlWbk As Variant
Dim pagename As String
Set WS = New notesuiworkspace
Set session = New notessession
Set db=session.CurrentDatabase
Set uiDoc = ws.CurrentDocument
Call ws.PlayTune("TADA")
ViewString="OWSNWE"
Set v=db.GetView(ViewString)
AM = uidoc.FieldGetText("AccountManager")
WD = uidoc.FieldGetText("d_ReportWeekDate")
’ Create Excel Sheet
Set xl=CreateObject("Excel.Application")
Set XLApp = xl.application
’ XLApp.WorkBooks.close
Set xlWbk=xl.Workbooks.Add
xlWbk.ActiveSheet.Rows(1).Font.Bold = True
’ Add column headings to first row
col = 1
firstRow = 1
Forall vColumn In v.Columns
If firstRow <> 1 Then
xlWbk.ActiveSheet.Cells(1, col)=vColumn.Title
col=col+2
End If
firstRow = 0
End Forall
Dim nav As NotesViewNavigator
Dim ventry As NotesViewEntry
uidoc.FieldGetText("d_ReportWeekDate")
AMSTORE = WD & "¥" & AM
Set nav = v.CreateViewNavFromCategory(AMSTORE)
Set ventry = nav.GetFirst