ell application "Mail"
tell application "Mail"
repeat with r in (get rules)
if should move message of r then
set mb to move message of r
set mailboxPath to (name of mb) as rich text
set mboxContainer to (container of mb)
if name of mb contains "2012" then
set mailboxPath to "2013"
repeat
try
set mailboxPath to ((name of mboxContainer) as rich text) & "/" & mailboxPath
set mboxContainer to container of mboxContainer
on error
exit repeat
end try
end repeat
try
set move message of r to make new mailbox with properties {name:mailboxPath}
on error
display alert "Error creating mailbox " & mailboxPath
end try
end if
end if
end repeat
end tell
end tell
On Jan 21, 2013, at 8:18 PM, Michelle Steiner <
email@hidden> wrote:
On Jan 21, 2013, at 5:22 PM, Robert Nicholson <email@hidden> wrote: