Export einer Ansicht als txt

[lotus blue]

Hallöchen,
bräuchte mal wieder Eure Hilfe

Habe eine Ansicht aus der ich per Agent den Inhalt der 1.Spalte in einen txt-Datei exportiere.
Nun möchte ich aber zugleich ein Datumsfeld in den jeweiligen Dokumenten füllen.
Das Script zum Export funzt bereits hervorragend, nur haperts es daran, an welcher Stelle ich im Script das Datumsfeld fülle.

Hier das LS:

Sub Initialize
   Dim s As  NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim VEC As NotesViewEntryCollection   
   Dim ve As NotesViewEntry
   Dim doc As NotesDocument
   Dim fileName As String
   Dim VsNr As String
   
   
   Set s = New NotesSession
   Set db = s.CurrentDatabase
   Set view =db.getview("Namederview")
   
   If Not(view.EntryCount = 0) Then
      Set VEC = view.AllEntries     
      Set ve = VEC.GetFirstEntry()
      
      fileName = "C:\Ordner\test.txt"
      Open fileName For Output As #1
      Nummer = Nummer      
      While Not (ve Is Nothing)
         Set doc = ve.Document
         
         Write #1, doc.Nummer(0)
         Set ve = VEC.getNextEntry(ve)   
      Wend   
   
      Close #1   
   End If   
End Sub

Hätte zum Füllen des Datumfeldes an    
Call doc.ReplaceItemValue("NamedesFeldes", Today)gedacht.

Kann mir bitte jemand auf die Sprünge helfen?

[m3]

Zwischen "Set doc = ve.Document" und "Set ve = VEC.getNextEntry(ve)".

[lotus blue]

Zwischen "Set doc = ve.Document" und "Set ve = VEC.getNextEntry(ve)".

Grazie hatte es bis dato vor Wend