--
Paul Berkowitz
MVP MacOffice
Entourage FAQ Page: <http://www.entourage.mvps.org/faq/index.html>
AppleScripts for Entourage: <http://macscripter.net/scriptbuilders/>
PLEASE always state which version of Microsoft Office you are using - **2004**, X or 2001. It's often impossible to answer your questions otherwise.
From: Fred Annesley <[EMAIL PROTECTED]>
Reply-To: "Entourage:mac Talk" <[EMAIL PROTECTED]>
Date: Wed, 15 Dec 2004 14:54:01 +1000
To: Entourage Mac Talk <[EMAIL PROTECTED]>
Subject: Re: Find number of Emails in Ent 2004
I posted this earlier but it got overlooked. Be grateful for a comment on what is causing the error.
On 14/12/04 8:18 AM, "Fred Annesley" <[EMAIL PROTECTED]> wrote:
Allen, thanks for the script posted below. It compiles and runs ok?. One question arises from the output. Against a number of folders I have created, for example "Entourage Help" where I drag emails from the list which I think will be of present or future help, I get the following output; " error 128 while processing ****" This occurred on about 7 folders. Others like Drafts, Outbox, Sent Items, Deleted, Junk etc. it worked fine.
Anyone had that problem? I am using Office 2004 on OSX10.3.6
On 14/12/04 2:33 AM, "Allen Watson" <[EMAIL PROTECTED]> wrote:
I now use an updated version of that script, which also shows the size of the messages in each folder, and how many are flagged.
(*
Folder List, by Allen Watson, 2/9/00 for OE5.0: [EMAIL PROTECTED]
adapted from:
DB Stats
List folders and number of messages in each in draft window
Dan Crevier <[EMAIL PROTECTED]>
*)
global theReport, pad
property pad_length : 4
property line_length : 50
property padchars : "............................................................"
property doing_size : true
on run {}
set theReport to "Report on folder, messages, number flagged, and total size
"
set pad to ""
set {msgCount, folderCount, flagCount, sizecount} to ProcessFolder(application "Microsoft Entourage")
set theReport to theReport & return & "There are a total of " & msgCount & ¬
" messages in " & folderCount & " folders, with " & flagCount & " flagged messages, total size of " & sizecount & "."
set theDate to (current date) as string
tell application "Microsoft Entourage" to make new draft window with properties {subject:"Folder Listing on " & theDate, content:theReport}
beep 3
end run
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 flagCount to 0
set sizecount to 0
if (count of folders of theFolder) > 0 then
repeat with f in folderList
set aLine to pad & name of f
-- display dialog aLine giving up after 1
set msgC to count message of f
try
set flagC to (count (messages of f whose flagged is true))
if doing_size then
set X to data size of every message of f
set sizeC to 0
repeat with aSize in X
set sizeC to sizeC + aSize
end repeat
set sizeC to ((round (sizeC / 1024 * 100 as real) rounding as taught in school) / 100) as real
end if
set toAdd to line_length - (length of aLine) - (length of (msgC as text)) - 10 -- 10 allowed for size
if toAdd > 0 then
set aLine to aLine & (text 1 thru toAdd of padchars) & msgC & " | " & flagC
else
set aLine to aLine & " " & msgC & " | " & flagC
end if
set sizeText to sizeC as text
-- display dialog sizeText
set toAdd to 11 - (length of sizeText)
if toAdd > 0 then
set sizeText to (text 1 thru toAdd) of padchars & sizeText
end if
set aLine to aLine & sizeText & return
on error theErr number theNum
set aLine to "****" & aLine & "...Error " & theNum & " while processing****" & return
end try
set theReport to theReport & aLine
set pad to pad & text 1 thru pad_length of padchars
set {mc, fc, fgc, sc} to my ProcessFolder(f)
try
set pad to text (pad_length + 1) thru -1 of pad
on error
set pad to ""
end try
set folderCount to folderCount + fc
set messageCount to messageCount + msgC + mc
set flagCount to flagCount + flagC + fgc
set sizecount to sizecount + sizeC + sc
end repeat
end if
return {messageCount, folderCount, flagCount, sizecount}
end tell
end ProcessFolder
On 11/26/04 1:08 PM, "Dan Frakes" <[EMAIL PROTECTED]> wrote:
On 11/25/2004 2:12 AM, "Barry Wainwright" wrote:
>> Whats a quick way of finding out how many emails you have in all folders?
>
> With a script like this. For me it gives this answer:
I still use the following script, written way back when by Allen Watson and Dan Crevier. It creates a new email message that lists all your folders, the number of messages in each, and the total number of messages:
Regards,
Fred Annesley.
[EMAIL PROTECTED]
Regards,
Fred Annesley.
[EMAIL PROTECTED]
