Mail quota information button

ction Button: @Command([ToolsRunMacro] ; "(database properties)" ) Agent: Agent Title: (database properties) Agent Type: Shared, Hidden Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim server As String Dim Size As Long Dim Quota As Double Set db = session.CurrentDatabase server=db.Server If server="" Then server="Local" End If size=db.Size/1056000 quota=db.SizeQuota/1024 Messagebox "Database Information:" &Chr(10)_ &Chr(10)_ & "Database Title: " & db.Title & Chr(10) _ & "Resides on Server: " & server & Chr(10) _ & "Full File Path name: " & db.FilePath & Chr(10) _ &Chr(10)_ & "Database Size Information:" & Chr(10) _ &Chr(10)_ & "Size (Mb): " & size & Chr(10) _ & "Quota: (Mb): " & quota & Chr(10) _ & "Percent used: " & db.PercentUsed & Chr(10) _ &Chr(10)_ & "Database Design Information:" & Chr(10) _ &Chr(10)_ & "Inherits from Template: " & db.DesignTemplateName & Chr(10)_ & "Database is the Template: " & db.TemplateName & Chr(10)_ & "Replica ID: " & db.ReplicaID,MB_OK+MB_ICONINFORMATION,"Database Property Synopsis" If quota <> 0 Then If size > quota Then Messagebox "You are Currently Over your quota" ,MB_OK+MB_ICONINFORMATION,"What this Agent Does" End If End If End Sub

Error: The Administration Process is waiting for new mail fields in Person document

Problem
The following error occurs in the Domino server's LOG.NSF database for a particular person after moving their mail file using the Administration Process (AdminP):
Errors: Waiting for new mail fields
Resolving the problem Pull down the names.nsf from hubserver then use tel adminp process new