Sub Click(Source As Button) Dim session As New NotesSession Dim ws As New NotesUIWorkspace Dim db As NotesDatabase Dim coll As NotesDocumentCollection Dim doc As NotesDocument Dim item As notesitem, txt As String Dim i As Integer, fileNum As Integer, fileName As Variant, strAppend As String, tmpstr As String Dim num As Integer FileName=ws.OpenFileDialog( True, "Export File", "CSV Documents(*.csv)|*.csv|Text Documents(*.txt)|*.txt", "", "") If Isempty(FileName) Then Exit Sub Else If FileName(0)="" Then Exit Sub End If End If fileNum% = Freefile() Open fileName(0) For Output As fileNum% Set db = session.CurrentDatabase strAppend = "Title,Content" 'print column title Print #fileNum%, strAppend Set coll = db.UnprocessedDocuments num = 0 For i=1 To coll.Count 'print column of each selected document Set doc = coll.GetNthDocument(i) strAppend = Cstr(doc.Title(0))+ ","+ Cstr(doc.Content(0)) Print #fileNum%, strAppend num = num + 1 Next Close fileNum% Messagebox Cstr(num) + " documents have been exported. ",64,"Lotus Notes" End Sub