Hallo Bernahrd, Andreas, Toni etc =)
ich würde gerne einen Agent-export machen, der mir alle namen, bereich, erstelldatum exportiert
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim filenum As Integer, iZaehler As Integer, pos As Integer
Dim filename As String, cRekNo As String, i As String
Dim cTrenn As String, cText As String, cDate As String, cError As String, cSendTo As String, cSubject As String, cAusgabe As String
Dim cpathName As String
Dim cFilename As String
Dim Pathname As String
Dim csvFilename As String
Dim view As NotesView 'Ansichten in rohform
Set db=session.CurrentDatabase
Set view = db.GetView( "vwRem1" )
filenum = Freefile()
FileName = "E:\TestKUR\ExportDocSafetyDB.csv"
Open filename For Output As filenum
Set doc = view.GetFirstDocument
While Not(doc Is Nothing)
If doc.fdDeinErstesFeld(0) <> "" Then
Write #filenum, doc.fdName(0), doc.fdBereich(0), doc.fdErstellt(0)
End If
Set doc = view.getnextdocument(doc)
Wend
Close filenum
End Sub
die Datei wird erstellt. Doch wenn ich es öffnen will kommt die Meldung "Kann Datei nciht lesen" und sie ist leer. Würde mich freuen wenn Ihr mir meine Fehler sagen könntet.
Danke =)
