#dominoforever | Product 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

Viewing the archive log history of all users in a consolidated manner

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 ?

  • Guest
  • Dec 1 2020
  • Needs review
  • Attach files
  • Guest commented
    3 Dec, 2020 02:41am

    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