Mail File size

HCL Domino Domino Forum
1

Hi All ,

User want to see mail file size allocated to his mail id ?

Is there any way to check it from client side … if yes then how ?

Thanks in advance

Vikalp

2

Subject: Mail File size

Right click on the database icon and select properties and the second tab (I) Infolamation - there you can see the size of the database.

Also depending on the version of Notes, and the template the size of the database can be displayed in the database.

Is that what you are asking?

3

Subject: RE: Mail File size

Hi Ciaran ,

Thanks for quick response , what i am looking for is

how to know Mail file quota assigned for the user from client end.

if we follow your troubleshooting step then i think we see the database file used size not the actual database size which is allocated to user .  I belive i cleared myself this time , Any suggestion ??

Soorry for my poor english

Vikalp

4

Subject: RE: Mail File size

Hi Vikalp,

I think the following guide can help you to understand the workings of Mailfile quotas and displaying them to users

also you need to be running version 7 to see this mail file size automatically, by using the dwa7 template

5

Subject: RE: Mail File size

Hi Ciaran ,

Thanks lot for the Link it helped me alot so finally we can only see the mail file size from client when we running version 7 using the dwa7 template . No other way right ?

Thanks

Vikalp

6

Subject: RE: Mail File size

I wrote a little script ( Not perfect, i am no developer), that uses a action button to view those information. Works with all version of notes client.

There are a view samples available in this forum.

Ron

7

Subject: RE: Mail File size

Hi Ronny ,

I do have programming background but not for domino .

If you can share code with me or send the URL where i can get the code will be highly appreciated

Vikalp

8

Subject: RE: Mail File size

Vikalp,

Here the code i have. I know that it is no state of the art programming but…it worked for me.

Sub Click(Source As Button)

Dim session As New NotesSession

Dim db As NotesDataBase

Dim doc As NotesDocument

Set db = session.currentdatabase

Set doc = New NotesDocument( db )

Dim size As Long

Dim x As Currency

Dim z As Currency

Dim rsender As String

size = (db.Size / 1024) / 1024

used = db.PercentUsed

x =Round ( size, 1)

sizequota = (db.SizeQuota / 1024)

y = Round ( sizequota, 0)

spaceleft = (Sizequota - Size)

z = Round (spaceleft, 0)

If db.SizeQuota = 0 Then

Messagebox “There is no Mail Quota specified by your administrator” + Chr$(13) + “The size of your mailbox=” + Str$(x) +" " + “MB”

Exit Sub

End If

If size > SizeQuota Then Goto OverQuota

Messagebox “The size of your mailbox=” + Str$(x) +" " + “MB” + Chr$(13) + Chr$(13) + " " +“MailBox used space” + " " + used + “%” _

  • Chr(13) + " " + "MailQuota = " + " " + " " + Str(y) + " " + “MB” + Chr$(13) + Chr$(13) + " " + "Remaing mailbox capacity "+ " " + Str(z) + " " + “MB”

Exit Sub

OverQuota:

Messagebox " * * WARNING * * Your Mailbox has reached / is over your mailquota. Please free up some space by" + Chr$(13) + " " + “deleting / archive” + " " + “old emails…Please contact your support team for more information.”

doc.Form = “Memo”

rsender = doc.from (0)

doc.SendTo = “Emailaddress”

doc.Subject = “My mailbox has reached / is over his quota, please check”

doc.body = “My database size=” + Str$(x)

Call doc.Send( False )

Exit Sub

NoQuota:

Messagebox “The size of your mailbox =” + Str$(x) +" " + “MB” + Chr$(13) + Chr$(13) + " " +“MailBox used space” + " " + used + “%” + _

Chr(13) + Chr$(13) + Chr$(13) + " " + “There is no mail quota specified by your Administrator”

End Sub

9

Subject: RE: Mail File size

Hi Ronny

Thanks for the code .

Vikalp