Try compiling and running the following script. It displays a dialog
in Entourage with the results, which you can copy to the clipboard if
you wish. It takes a few seconds to run, depending on how many folders
and messages you have, since it has to get the physical size of each
individual message.

(*
        DB Stats
        count how many folders and messages there are
        Dan Crevier <[EMAIL PROTECTED]>
        Added calculation of size in bytes -- Allen Watson <[EMAIL PROTECTED]>
*)

set {msgCount, folderCount, sizecount} to ProcessFolder(application
"Microsoft Entourage")

-- Now turn byte count into K count, as string with commas
set k to sizecount div 1024
if sizecount mod 1024 > 512 then set k to k + 1
set kstr to k as string
set temp to ""
repeat with i from -3 to -(count kstr) by -3
        set j to i + 2
        set temp to temp & "," & (text i thru j of kstr)
end repeat
-- Prepend leftover digits, if any
set rem to ((count kstr) mod 3)
if rem > 0 then
        set temp to (text 1 thru rem of kstr) & temp
else
        set temp to text 2 thru -1 of temp -- remove leading comma
end if
set sizecount to temp & " K"

display dialog "There are " & msgCount & " messages in " & folderCount & ¬
        " folders" & " occupying " & sizecount & " bytes." buttons {"Ok"}

on ProcessFolder(theFolder)
        tell application "Microsoft Entourage"
                set folderCount to count folders of theFolder
                set folderList to the folders of theFolder
                set messageCount to 0
                set sizecount to 0
                if (count of folders of theFolder) > 0 then
                        repeat with f in folderList
                                set {mc, fc, sc} to my ProcessFolder(f)
                                set folderCount to folderCount + fc
                                set messageCount to messageCount + (count 
messages of f) + mc
                                set allSizes to data size of every message of f
                                set foldersize to 0
                                repeat with i from 1 to number of items of 
allSizes
                                        set foldersize to foldersize + (item i 
of allSizes)
                                end repeat
                                set sizecount to sizecount + foldersize + sc
                        end repeat
                end if
                return {messageCount, folderCount, sizecount}
        end tell
end ProcessFolder

On Thu, Nov 20, 2008 at 12:50 PM, Jon Scott <[EMAIL PROTECTED]> wrote:
> Hello All,
>
> Does anyone know how to find the size of locally stored email in
> Entourage? That is, the size of everything under "Folders on my
> Computer?" I know I can check the size of the database itself, but we
> use Exchange server and I assume the db size also includes caches of
> what's stored on the Exchange server. Probably extra space too, if the
> db is not regularly compacted.
>
> Any info would be appreciated!
>
>
>
> Thanks
>
>
>
> Jon
>
> YouTalk mailing list
> List address: [email protected]
> List information: http://entourage.mvps.org/support_options/list.html
> List moderator: [EMAIL PROTECTED]
>
YouTalk mailing list
List address: [email protected]
List information: http://entourage.mvps.org/support_options/list.html
List moderator: [EMAIL PROTECTED]

Reply via email to