Can someone tell me exactly what to add to this code to have the column header titles appear as the first line of the csv file that is created? Hopefully this is an easy question for a developer and any help would be greatly appreciated.
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim nbcol As Integer
Dim k As Integer
Dim newline As String
Dim fileName As String
Dim fileNum As Integer
Dim item As NotesItem
Set db = s.CurrentDatabase
Set view = db.GetView( “Custom Export NOR” )
nbcol = Ubound(view.Columns)
Set doc = view.getfirstdocument
fileName = “\CC Charts\CustomExportNOR.csv”
fileNum = Freefile()
Open fileName For Output As fileNum
k = 0
While Not (doc Is Nothing)
newline = “”
For k = 0 To nbcol
newline = newline + doc.ColumnValues(k)
If k <> nbcol Then newline = newline + “,”
Next
Print #fileNum, newline
Set doc = view.GetNextDocument(doc)
Wend
Close fileNum
End Sub