Welcome to the #dominoforever Product Ideas Forum! The place where you can submit product ideas and enhancement request. We encourage you to participate by voting on, commenting on, and creating new ideas. All new ideas will be evaluated by HCL Product Management & Engineering teams, and the next steps will be communicated. While not all submitted ideas will be executed upon, community feedback will play a key role in influencing which ideas are and when they will be implemented.
For more information and upcoming events around #dominoforever, please visit our Destination Domino Page
An administrator can open archive log database on server and see archive history of individual users. However if administrator wants to see archive log history details of all the users at once then there is no such option available.
Can we have a separate database where administrator can see archive log details of all users in a consolidated form ?
Users are archiving locally.
We open their email properties from "Domino Administrator" and check the archive log.Is there a way to get information by accessing the log for this property?
The email size of each person is obtained with the following code.
Is there a similar way?
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase, maildb As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim mServer As String
Dim mFile As String
On Error Resume Next
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
Err = 0
mServer = doc.MailServer(0)
mFile = doc.MailFile(0)
Set maildb=New NotesDatabase(mServer, mFile)
Print "Error code: " & Cstr(Err)
If Err = 0 Then
Call doc.replaceitemvalue("MailTitle", maildb.Title)
Call doc.replaceitemvalue("MailReplicaID", maildb.ReplicaID)
Call doc.replaceitemvalue("MailDesignTemplate", maildb.DesignTemplateName)
Call doc.replaceitemvalue("MailDBSize", maildb.Size / 1024 / 1024)
Call doc.replaceitemvalue("MailDBQuota", maildb.SizeQuota / 1024)
Call doc.replaceitemvalue("MailDBWarning", maildb.SizeWarning / 1024)
Else
Call doc.replaceitemvalue("MailDBQuota", "NoACL")
Print "開けません: " & mServer & "!!" & mFile
End If
Call doc.Save(False, False, False)
Set doc = collection.GetNextDocument(doc)
Wend
End Sub