Skip to main content
This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)
Previous Next

Here you go

The existing code with extra code to output, to file, only those databases whose ODS format is < 51 and are in the specified folder

Sub Initialize
Dim session As New NotesSession
Dim dbdir As New NotesDbDirectory("")
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)
Dim fileNum As Integer
Dim fileName As String
Dim strFilePathSource As String
Dim strTempFilePath As String
strFilePathSource = "<Mail Folder>" '(e.g. "mail")

fileNum% = FreeFile()
fileName$ = "data.txt"

Open fileName$ For Output As fileNum

While Not(db Is Nothing)
strTempFilePath = StrLeftBack(db.FilePath,"\")
If strTempFilePath = strFilePathSource Then
Call db.Open("", "") ' Database must be open
If db.FileFormat < 51 Then
'MessageBox "ODS version = " & db.FileFormat,, db.Title
Write #fileNum%,db.FileFormat,db.Title,db.Filepath
End If
End If
Set db = dbdir.GetNextDatabase
Wend
Close fileNum%
Set db = nothing
End Sub


Feedback response number WEBB8N6RD4 created by ~Tanita Umtoovitchoden on 10/31/2011

Getting a list of mail file ODS ver... (~Rex Fezwecheka... 31.Oct.11)
. . Here you go (~Tanita Umtoovi... 31.Oct.11)
. . . . Wow...Thank you very much. <EOM> (~Rex Fezwecheka... 1.Nov.11)
. . Non-developer's way (~Sean Loplulyad... 31.Oct.11)




Printer-friendly

Search this forum

Member Tools


RSS Feeds

 RSS feedsRSS
All forum posts RSS
All main topics RSS