Re: applescripting sub mailboxes in Mail

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: applescripting sub mailboxes in Mail

Subject: Re: applescripting sub mailboxes in Mail
From: John Mitchell <email@hidden>
Date: Tue, 17 Nov 2015 15:30:30 +1100

Brian

I tested your code, and incredibly one version creates a 3 tier subfolder!!

So to record what happens I modified you code...

set msgResult to system info

set msgResult to "OSX: " & system version of msgResult

tell application "Mail"

activate

try

delete mailbox "Year 2016"

say "Mail box year 2016 deleted"

set msgResult to msgResult & return & "Mail boxes year 2016 deleted"

delete mailbox "Year 2017"

say "Mail box year 2017 deleted"

set msgResult to msgResult & return & "Mail boxes year 2017 deleted"

end try

try

make new mailbox with properties {name:"Year 2016"}

say "Mail box Year 2016 created."

set msgResult to msgResult & return & "Mail box Year 2016 created."

on error errMsg

say "Mail box 2016 try one failed to be created"

set msgResult to msgResult & return & "Mail box 2016 try one failed to be created"

end try

try

make new mailbox at beginning of mailboxes of mailbox "On My Mac/Year 2016" with properties {name:"Year 2016/11"}

say "Mail box Year 2016 created, sub mailbox 11 created"

set msgResult to msgResult & return & "Mail box Year 2016 created, sub mailbox 11 created"

on error errMsg

say "Mail box 2016 11 try 2 failed to be created"

set msgResult to msgResult & return & "Mail box 2016 11 try 2 failed to be created"

end try

try

make new mailbox at beginning of mailboxes of mailbox "Year 2016" with properties {name:"Year 2016/11"}

say "Mail box Year 2016 created, sub mailbox 11 created"

set msgResult to msgResult & return & "Mail box Year 2016 created, sub mailbox 11 created"

on error errMsg

say "Mail box 2016 11 try 3 failed to be created"

set msgResult to msgResult & return & "Mail box 2016 11 try 3 failed to be created"

end try

try

make new mailbox at mailbox "Year 2016" with properties {name:"Year 2016/11"}

say "Mail box Year 2016 created, sub mailbox 11 created"

set msgResult to msgResult & return & "Mail box Year 2016 created, sub mailbox 11 created"

on error errMsg

say "Mail box 2016 11 try 4 failed to be created"

set msgResult to msgResult & return & "Mail box 2016 11 try 4 failed to be created"

end try

try

make new mailbox with properties {name:"Year 2016/11"}

say "Mail box Year 2016 created, sub mailbox 11 created"

set msgResult to msgResult & return & "Mail box Year 2016 created, sub mailbox 11 created"

on error errMsg

say "Mail box 2016 11 try 5 failed to be created"

set msgResult to msgResult & return & "Mail box 2016 11 try 5 failed to be created"

end try

try

make new mailbox at beginning of mailboxes of mailbox "Year 2016/11" with properties {"2016 11 17"}

say "Mail box Year 2016 created, sub mailbox 2016 11 17 created"

on error errMsg

say "Mail box 2016 11 17 try 6 failed to be created"

set msgResult to msgResult & return & "Mail box 2016 11 17 try 6 failed to be created"

end try

end tell

tell application "Mail"

activate

try

delete mailbox "Year 2016"

say "Mail box year 2016 deleted"

set msgResult to msgResult & return & "Mail box year 2016 deleted"

end try

try

make new mailbox with properties {name:"Year 2016/"}

say "Mail box Year 2016 with slash created."

set msgResult to msgResult & return & "Mail box Year 2016 with slash created."

on error errMsg

say "Mail box 2016 try 7 failed to be created"

set msgResult to msgResult & return & "Mail box 2016 try 7 failed to be created"

end try

try

make new mailbox with properties {name:"Year 2016/11/"}

say "Mail box Year 2016 with slash created, sub mailbox 11 with slash created"

set msgResult to msgResult & return & "Mail box Year 2016 with slash created, sub mailbox 11 with slash created"

on error errMsg

say "Mail box 2016 11 try 8 failed to be created"

set msgResult to msgResult & return & "Mail box 2016 11 try 8 failed to be created"

end try

try

make new mailbox with properties {name:"Year 2016/11/17/"} # FAILS

say "Mail box Year 2016 created, sub mailbox 11 created, sub mailbox 2016 11 17 with slash created"

set msgResult to msgResult & return & "Mail box Year 2016 created, sub mailbox 11 created, sub mailbox 2016 11 17 with slash created"

on error errMsg

say "Mail box 2016 11 17 try 9 failed to be created"

set msgResult to msgResult & return & "Mail box 2016 11 17 try 9 failed to be created"

end try

try

make new mailbox with properties {name:"Year 2017/12/17/"}

say "Mail box Year 2017 created, sub mailbox 12 created, sub mailbox 2017 12 17 with slash created"

set msgResult to msgResult & return & "Mail box Year 2017 created, sub mailbox 12 created, sub mailbox 2017 12 17 with slash created"

on error errMsg

say "Mail box 2017 12 17 try 10 failed to be created"

set msgResult to msgResult & return & "Mail box 2017 12 17 try 10 failed to be created"

end try

end tell

... and here is the result:

OSX: 10.10.5
Mail box year 2016 deleted
Mail box Year 2016 created.
Mail box 2016 11 try 2 failed to be created
Mail box 2016 11 try 3 failed to be created
Mail box 2016 11 try 4 failed to be created
Mail box 2016 11 try 5 failed to be created
Mail box 2016 11 17 try 6 failed to be created
Mail box year 2016 deleted
Mail box Year 2016 with slash created.
Mail box Year 2016 with slash created, sub mailbox 11 with slash created
Mail box Year 2016 created, sub mailbox 11 created, sub mailbox 2016 11 17 with slash created
Mail box 2017 12 17 try 10 failed to be created

so this works above but not by itself!

set msgResult to system info

set msgResult to "OSX: " & system version of msgResult

tell application "Mail"

activate

try
make new mailbox with properties {name:"Year 2016/11/17/"} # FAILS - NO! er Yes
say "Mail box Year 2016 created, sub mailbox 11 created, sub mailbox 2016 11 17 with slash created"
set msgResult to msgResult & return & "Mail box Year 2016 created, sub mailbox 11 created, sub mailbox 2016 11 17 with slash created"
on error errMsg
say "Mail box 2016 11 17 try 9 failed to be created"
set msgResult to msgResult & return & "Mail box 2016 11 17 try 9 failed to be created"

end try

end tell

OSX: 10.10.5
Mail box 2016 11 17 try 9 failed to be created

but if all 3 statements included

OSX: 10.10.5
Mail box Year 2016 with slash created.
Mail box Year 2016 with slash created, sub mailbox 11 with slash created
Mail box Year 2016 created, sub mailbox 11 created, sub mailbox 2016 11 17 with slash created

what effort would Apple unlock if they made it work elegantly in the first place...

Message: 2
Date: Tue, 17 Nov 2015 13:10:35 +1100
From: Brian Christmas <email@hidden>
To: Applescript Users <email@hidden>
Subject: Re: applescripting sub mailboxes in Mail
Message-ID: <email@hidden" class="">email@hidden>
Content-Type: text/plain; charset="utf-8"

To all

I’ve amended and enhanced the code I’ll post to the Engineers. Any testers welcome, please.

Regards

Santa

tell application "Mail"
activate
try
delete mailbox "Year 2016"
delete mailbox "Year 2017"
say "Mail boxes year 2016, 2017 deleted"
end try
try
make new mailbox with properties {name:"Year 2016"}
say "Mail box Year 2016 created."
on error errmsg
say "Mail box 2016 try one failed to be created"
end try
try
make new mailbox at beginning of mailboxes of mailbox "On My Mac/Year 2016" with properties {name:"Year 2016/11"}
say "Mail box Year 2016 created, sub mailbox 11 created"
on error errmsg
say "Mail box 2016 11 try 2 failed to be created"
end try
try
make new mailbox at beginning of mailboxes of mailbox "Year 2016" with properties {name:"Year 2016/11"}
say "Mail box Year 2016 created, sub mailbox 11 created"
on error errmsg
say "Mail box 2016 11 try 3 failed to be created"
end try
try
make new mailbox at mailbox "Year 2016" with properties {name:"Year 2016/11"}
say "Mail box Year 2016 created, sub mailbox 11 created"
on error errmsg
say "Mail box 2016 11 try 4 failed to be created"
end try
try
make new mailbox with properties {name:"Year 2016/11"}
say "Mail box Year 2016 created, sub mailbox 11 created"
on error errmsg
say "Mail box 2016 11 try 5 failed to be created"
end try
try
make new mailbox at beginning of mailboxes of mailbox "Year 2016/11" with properties {"2016 11 17"}
on error errmsg
say "Mail box 2016 11 17 try 6 failed to be created"
end try
end tell
tell application "Mail"
activate
try
delete mailbox "Year 2016"
say "Mail box year 2016 deleted"
end try
try
make new mailbox with properties {name:"Year 2016/"}
say "Mail box Year 2016 with slash created."
on error errmsg
say "Mail box 2016 try 7 failed to be created"
end try
try
make new mailbox with properties {name:"Year 2016/11/"}
say "Mail box Year 2016 with slash created, sub mailbox 11 with slash created"
on error errmsg
say "Mail box 2016 11 try 8 failed to be created"
end try
try
make new mailbox with properties {name:"Year 2016/11/17/"} # FAILS
say "Mail box Year 2016 created, sub mailbox 11 created, sub mailbox 2016 11 17 with slash created"
on error errmsg
say "Mail box 2016 11 17 try 9 failed to be created"
end try
try
make new mailbox with properties {name:"Year 2017/12/17/"}
say "Mail box Year 2017 created, sub mailbox 12 created, sub mailbox 2017 12 17 with slash created"
on error errmsg
say "Mail box 2017 12 17 try 10 failed to be created"
end try
end tell

regards

John

 _______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list      (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users

This email sent to email@hidden

Follow-Ups:
- Re: applescripting sub mailboxes in Mail
  - From: Brian Christmas <email@hidden>
- Re: applescripting sub mailboxes in Mail
  - From: Brian Christmas <email@hidden>

Prev by Date: Re: applescripting sub mailboxes in Mail
Next by Date: Re: applescripting sub mailboxes in Mail
Previous by thread: applescripting sub mailboxes in Mail
Next by thread: Re: applescripting sub mailboxes in Mail
Index(es):
- Date
- Thread