Thanks Andy,
Works great! :-)
Max G
At Thu, 22 Apr 2004 10:28:59 -0700 (CET), Andy Fragen
<[EMAIL PROTECTED]> wrote:
>*This message was transferred with a trial version of CommuniGate(tm) Pro*
>Done. The 'count messages' portion comes from someone else's script and I
>don't know who to give the credit to.
>
><AppleScript>
>property preMsg : "You currently have: " & return
>property postcC : " Message folders"
>property postfC : " Message Filters"
>property postclC : " Text Clippings"
>property postsigC : " Signatures"
>property postMsgs : " Messages"
>property ret : return
>property bttnList : {"Thanks", "Put on Clipboard"}
>property defBttn : "Put on Clipboard"
>
>to concatenateData(cCnt, fCnt, clCnt, sigCnt, ctMsg)
> return (preMsg & ctMsg & postMsgs & ret & cCnt & postcC & ret & fCnt &
>postfC & ret & clCnt & postclC & ret & sigCnt & postsigC)
>end concatenateData
>
>to displayTotals(statsTxt)
> set the dialogBttn to the button returned of (display dialog statsTxt
>buttons bttnList default button 2)
> if the dialogBttn is the defBttn then
> set the clipboard to the statsTxt
> beep
> end if
>end displayTotals
>
>tell application "PowerMail 5.0b12"
> set the containerCnt to count message container
> repeat with i from 1 to containerCnt
> set subContainerCnt to count message containers of message
> container i
> set containerCnt to containerCnt + subContainerCnt
> end repeat
> set the filterCnt to count filters
> set the clipCnt to count text clippings
> set the sigCnt to count text signatures
> set ctMsg to 0
> repeat with acontainer in every message container
> set ctMsg to ctMsg + (my count_messages(acontainer))
> end repeat
> set the statsTxt to my concatenateData(containerCnt, filterCnt, clipCnt,
>sigCnt, ctMsg)
> my displayTotals(the statsTxt)
>end tell
>-- The above will count your PowerMail; message folders, filters, text
>clippings
>-- and the text signatures and display the information in a dialog.
>-- The dialog will give you an option to put the entire results
>-- onto the clipboard.
>
>(* this recursive function receives a message container (folder). It first
> calls itself for every sub-container of the input container, summing up
> the number of messages stored in them, and last, adds the number of
> messages in the input container itself.
>*)
>to count_messages(input_container)
> tell application "PowerMail 5.0b12"
> set c to 0
> repeat with bcontainer in every message container in
> input_container
> set c to c + (my count_messages(bcontainer))
> end repeat
>
> set c to c + (number of messages in input_container)
> return c
> end tell
>end count_messages
></AppleScript>
>
>--
>Andy Fragen
>
>On Thu, Apr 22, 2004, Max Gossell said:
>
>>Ehh -- would it be possible to add "total messages in database" to this
>>script...?
>
>
>
>
