No Allen, do not use IMAP. Here is a copy of the output.

 Here is a copy of the full report which will show what you asked. I will
wait for your comment before tinkering with your script as I am fairly new
at this.

Report on folder, messages, number flagged, and total
size
Inbox..................................1 | 0.......1.31
Drafts.................................0 | 0........0.0
Outbox.................................0 | 0........0.0
Sent Items...........................750 | 03.355407E+4
Deleted Items........................435 | 02.024002E+4
Junk E-mail............................0 | 0........0.0
AM Corp................................8 | 0......24.37
Archived Files.......................174 | 02.028265E+4
****eBay Items...Error -128 while processing****
****End of day data...Error -128 while processing****
****Entourage help...Error -128 while processing****
****Entourage Talk List...Error -128 while processing****
Forwards...............................4 | 0......38.52
****Genealogy...Error -128 while processing****
Lists folder...........................2 | 0.......2.92
****MacNorth...Error -128 while processing****
****....NQMUG 2005...Error -128 while processing****
****....Sent mail...Error -128 while processing****
QTCU...................................2 | 0.......4.33
****Samoyeds...Error -128 while processing****
Spam...................................0 | 0........0.0

There are a total of 2356 messages in 21 folders, with 3 flagged messages,
total size of 1.93541036E+6.




On 16/12/04 5:42 AM, "Allen Watson" <[EMAIL PROTECTED]> wrote:

> 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]
>>  
>>  
>>  
>>  
>>  
>>  
> 

Regards,

Fred Annesley.

[EMAIL PROTECTED]






--
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/>

Reply via email to