HCL Domino Ideas Portal
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
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