• Open Menu Close Menu
  • Apple
  • Shopping Bag
  • Apple
  • Mac
  • iPad
  • iPhone
  • Watch
  • TV
  • Music
  • Support
  • Search apple.com
  • Shopping Bag

Lists

Open Menu Close Menu
  • Terms and Conditions
  • Lists hosted on this site
  • Email the Postmaster
  • Tips for posting to public mailing lists
Visiting all messages
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Visiting all messages


  • Subject: Visiting all messages
  • From: Gil Dawson <email@hidden>
  • Date: Fri, 30 Sep 2005 09:26:34 -0700

Title: Visiting all messages
Hi--

I wanted an AppleScript that would visit every message in my Eudora mailboxes and nested mail folders.  It took quite a bit of experimenting to figure out how Eudora wanted things to be said, but I think I finally got it, so I thought I'd share it with y'all.

I'd appreciate any suggestions to make it better.  Or, if you've done something similar, I'd like to see how yours works.

--Gil

property zero : 0
property recursionLevel : zero

tell application "Eudora"
 
 
my VisitBoxes(a reference to application "Eudora")
 
end tell

on
VisitBoxes(refObj)
 
set recursionLevel to recursionLevel + 1
 
set indent to ""
 
repeat with j from 1 to recursionLevel
    set indent to indent & "  "
 
end repeat
  tell application "Eudora"
   
tell refObj
      set i to 1
     
repeat while exists mailbox (i)
       
log indent & "Mailbox (" & i & ")=" & name of mailbox (i) & ¬
          ": " & (
count of messages in mailbox (i))
       
set i to i + 1
     
end repeat
      set j to 1
     
repeat while exists mail folder (j)
       
log indent & "mail folder (" & j & ")=" & name of mail folder (j)
       
my VisitBoxes(a reference to mail folder (j))
       
set j to j + 1
     
end repeat
    end tell
  end tell
  set recursionLevel to recursionLevel - 1
end VisitBoxes
 _______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list      (email@hidden)
Help/Unsubscribe/Update your Subscription:

This email sent to email@hidden

References: 
 >Re: make a new folder within an exisitng folder (From: Laine Lee <email@hidden>)
 >Re: make a new folder within an exisitng folder (From: Michelle Steiner <email@hidden>)

  • Prev by Date: RE: Accessing network folders in AppleScript
  • Next by Date: Re: Accessing network folders in AppleScript
  • Previous by thread: Re: make a new folder within an exisitng folder
  • Next by thread: Re: make a new folder within an exisitng folder
  • Index(es):
    • Date
    • Thread