display mailbox size in OWA 2007 (Network Steve Forum)

display mailbox size in OWA 2007

hi OWA 2007 did allows client to see they mailbox size while point to the mailbox, but my question is how to auto display the mailbox size/bar in OWA?

June 4th, 2009 10:28am

an incorrect reply... modified

Free Windows Admin Tool Kit Click here and download it now

June 4th, 2009 11:14am

hi, thanks for reply, i'm not really understand the step you suggest. kindly advice me thanks.

June 4th, 2009 12:21pm

Oppps Sorry for misunderstanding, there is no way to auto display the mailbox size bar in OWA. The only way is point to the mailbox. This is by design. Thanks, Elvis

Free Windows Admin Tool Kit Click here and download it now

June 4th, 2009 12:52pm

hi,http://www.outlook-web-access.com/owa-2007-user-guide/60-owa-2007-email-basics/317-how-can-i-see-my-mailbox-size-and-how-much-space-i-have?tmpl=component&print=1regards,Mumin CICEK | Exchange - MVP | www.cozumpark.com | www.mumincicek.com

June 5th, 2009 10:22pm

Yes, this is true and by design. If you need to place size info permanently somewhere in OWA screen instead of hover catchup then you may need to develop custom code with the help of html designer but which might create extra headache since it will be vanished during Update Rollup installation and need to put them back or may screw up your OWA if UR installation doesn't like it... :)Amit Tank | MVP Exchange Server | MCITP: EMA | MCSA: M | http://ExchangeShare.WordPress.com

Free Windows Admin Tool Kit Click here and download it now

June 6th, 2009 9:48am

Hi,The following is the script used to get and display the mailbox size but I dont know if it will work with 2007, and I thought there was already a way (inbuilt feature) to display the mailbox size in OWA 2007. Code: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>MailBox Size</title></title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%Dim strErrorDim iSizeDim sMsgDim strLogon, arrLogon, strPasswordDim arrFolders(11), arrFolderPathstrLogon = Request.ServerVariables("LOGON_USER")if instr(strLogon,"\") <> 0 then arrLogon = split(strLogon,"\") strLogon = arrLogon(1)elseif instr(strLogon,"@") <> 0 then arrLogon = split(strLogon,"@") strLogon = arrLogon(0)end ifstrPassword = Request.ServerVariables("AUTH_PASSWORD")strError = MailboxSizeFunction MailboxSize() Dim sConnString ' Set up connection string to mailbox. sConnString = "file://./backofficestorage/exchange.suttcold.bham.sch.uk/mbx/" sConnString = sConnString & strLogon iSize = 0 for i = 0 to 11 arrFolders(i) = 0 next RecurseFolder(sConnString) MailboxSize = sMsgEnd FunctionPublic Function RecurseFolder(sConnString)on error resume next Dim oRecSet Dim sSQL Dim sConn Dim oConn Dim iFolderSize ' Set up SQL SELECT statement. sSQL = "SELECT ""http://schemas.microsoft.com/mapi/proptag/x0e080003"", " sSQL = sSQL & """DAV:href"", " sSQL = sSQL & """DAV:hassubs"" " sSQL = sSQL & "FROM SCOPE ('SHALLOW TRAVERSAL OF """ & sConnString sSQL = sSQL & """') WHERE ""DAV:isfolder"" = true" sConn = "Provider=Exoledb.DataSource.1;User ID=" & strLogon & ";Password=" & strPassword sConn = sConn & ";Mode=Read;Data Source=" & sConnString ' Create RecordSet object. Set oRecSet = CreateObject("ADODB.Recordset") if Err.Number <> 0 then sMsg = "Error creating ADO RecordSet object: " & Err.Number & " " & Err.Description Exit Function end if ' Open Recordset of all subfolders in folder. oRecSet.CursorLocation = 3 oRecSet.open sSQL, sConn if Err.Number <> 0 then sMsg = "Error opening recordset: " & Err.Number & " " & Err.Description oRecSet.Close Set oRecSet = Nothing Exit Function end if if oRecSet.RecordCount = 0 then oRecSet.Close Set oRecSet = Nothing Exit Function end if ' Move to first record. oRecSet.MoveFirst if Err.Number <> 0 then sMsg = "Error moving to first record: " & Err.Number & " " & Err.Description oRecSet.Close Set oRecSet = Nothing Exit Function end if ' Loop through all of the records, and then add the size of the ' subfolders to obtain the total size. While oRecSet.EOF <> True iFolderSize = oRecSet.Fields.Item("http://schemas.microsoft.com/mapi/proptag/x0e080003") redim arrFolderPath(-1) arrFolderPath = split(oRecSet.Fields.Item("DAV:href"),"/") ' Increment size. iSize = iSize + iFolderSize if ubound(arrFolderPath) > 6 then Select Case arrFolderPath(7) Case "Inbox" arrFolders(0) = arrFolders(0) + iFolderSize Case "Outbox" arrFolders(1) = arrFolders(1) + iFolderSize Case "Sent Items" arrFolders(2) = arrFolders(2) + iFolderSize Case "Deleted Items" arrFolders(3) = arrFolders(3) + iFolderSize Case "Calendar" arrFolders(4) = arrFolders(4) + iFolderSize Case "Contacts" arrFolders(5) = arrFolders(5) + iFolderSize Case "Drafts" arrFolders(6) = arrFolders(6) + iFolderSize Case "Journal" arrFolders(7) = arrFolders(7) + iFolderSize Case "Notes" arrFolders(8) = arrFolders(8) + iFolderSize Case "Tasks" arrFolders(9) = arrFolders(9) + iFolderSize Case "Junk E-mail" arrFolders(10) = arrFolders(10) + iFolderSize Case "Sync Issues" arrFolders(11) = arrFolders(11) + iFolderSize End Select end if ' If the folder has subfolders, recursively call RecurseFolder to process them. If oRecSet.Fields.Item("DAV:hassubs") = True then RecurseFolder oRecSet.Fields.Item("DAV:href") End If ' Move to next record. oRecSet.MoveNext if Err.Number <> 0 then sMsg = "Error moving to next record: " & Err.Number & " " & Err.Description Set oRecSet = Nothing Exit Function end if wend ' Close Recordset and Connection. oRecSet.Close if Err.Number <> 0 then sMsg = "Error closing recordset: " & Err.Number & " " & Err.Description Set oRecSet = Nothing Exit Function end if ' Clean up memory. Set oRecSet = NothingEnd Function%><table width="407" border="0" cellpadding="0" cellspacing="0">  <tr> <td width="161" height="20" valign="top">Inbox:</td> <td width="246" valign="top"><%= cInt(arrFolders(0)/1024) %></td> </tr> <tr> <td height="20" valign="top">Outbox:</td> <td valign="top"><%= cInt(arrFolders(1)/1024) %></td> </tr> <tr> <td height="20" valign="top">Sent Items:</td> <td valign="top"><%= cInt(arrFolders(2)/1024) %></td> </tr> <tr> <td height="20" valign="top">Deleted Items:</td> <td valign="top"><%= cInt(arrFolders(3)/1024) %></td> </tr> <tr> <td height="20" valign="top">Calendar:</td> <td valign="top"><%= cInt(arrFolders(4)/1024) %></td> </tr> <tr> <td height="20" valign="top">Contacts:</td> <td valign="top"><%= cInt(arrFolders(5)/1024) %></td> </tr> <tr> <td height="20" valign="top">Drafts:</td> <td valign="top"><%= cInt(arrFolders(6)/1024) %></td> </tr> <tr> <td height="20" valign="top">Journal:</td> <td valign="top"><%= cInt(arrFolders(7)/1024) %></td> </tr> <tr> <td height="20" valign="top">Notes:</td> <td valign="top"><%= cInt(arrFolders(8)/1024) %></td> </tr> <tr> <td height="20" valign="top">Tasks:</td> <td valign="top"><%= cInt(arrFolders(9)/1024) %></td> </tr> <tr> <td height="20" valign="top">Junk Mail:</td> <td valign="top"><%= cInt(arrFolders(10)/1024) %></td> </tr> <tr> <td height="20" valign="top">Sync Issues:</td> <td valign="top"><%= cInt(arrFolders(11)/1024) %></td> </tr> <tr> <td height="20" valign="top">MailBox Total Size:</td> <td valign="top"><%= cInt(iSize/1024) %></td> </tr> <tr> <td height="70" colspan="2" valign="top"><%= strError %></td> </tr></table></body></html> Have a good day, Sachin Shetty| MCP|MCTS|MCITP|

June 7th, 2009 2:48pm

This topic is archived. No further replies will be accepted.