Yes, Fred; sorry I have been very busy and letting mailing list mail slide...
My script probably runs into problems if you use IMAP; do you? I have no IMAP accounts active so can't check easily. On Tue, 14 Dec 2004 23:14:37 -0800, Paul Berkowitz <[EMAIL PROTECTED]> wrote: > Maybe it would be a good idea to write directly to the author (Allen) in > that case. > > -- > 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] > > > > > > -- Allen Watson AppleScripts For You http://homepage.mac.com/allen_a_watson/AppleScripts_For_You/ -- To unsubscribe: <mailto:[EMAIL PROTECTED]> archives: <http://www.mail-archive.com/entourage-talk%40lists.letterrip.com/> old-archive: <http://www.mail-archive.com/entourage-talk%40lists.boingo.com/>
