Right way to refer to a sub-mailbox in Mail from AppleScript

Question

Working through an AppleScript to scan MailBoxes in Mail.
The mailboxes are organized as subfolder
Customers
.....CustomerA
.....CustomerB
repeat with theMailbox in every mailbox
set currentMailbox to theMailbox
set mailboxName to the name of currentMailbox
try
set messages_list to every message of mailbox mailboxName
results in
"--> error number -1728 from mailbox "CustomerA"
It works for mailboxes that are not subfolders.
Message was edited by: Kevin Cossaboon

Answer 1

just get rid of the name line. it's quite redundant and messes things up as it chops of the name of the ambient mailbox..
set messages_list to every message of theMailbox
and the full script should be
<pre style="
font-family: Monaco, 'Courier New', Courier, monospace;
font-size: 10px;
margin: 0px;
padding: 5px;
border: 1px solid #000000;
width: 720px; height: 335px;
color: #000000;
background-color: #ADD8E6;
overflow: auto;"
title="this text can be pasted into the Script Editor">
set ExcludeList to {"Keep", "Trash", "Sent Messages", "Drafts", "Deleted Messages", "Archive"} -- mailboxes you don't want to search
set DestinFolderName to "Archive" -- mailbox to move messages to. If you want to just delete them, leave it blank.
set StaleTime to 160 -- days old the message must be before moved or deleted
set ShowMailboxesProgress to true -- determines if you want the "Processing" box displayed for each mailbox
tell application "Mail"
set everyAccount to every account
-- Get acount-specific mailboxes
repeat with eachAccount in everyAccount
set everyMailbox to every mailbox of eachAccount
set accountName to the name of eachAccount
repeat with theMailbox in everyMailbox
set currentMailbox to theMailbox
set mailboxName to the name of currentMailbox
if mailboxName is not in ExcludeList then
if ShowMailboxesProgress then
display dialog "Processing folder " & mailboxName & " in account " & accountName
end if
try
set messages_list to every message of mailbox mailboxName
repeat with i from 1 to number of items in messages_list
set theMessage to item i of messages_list
set difference to ((current date) - (date sent of theMessage)) div days
if difference is greater than StaleTime then
if DestinFolderName is not equal to "" then
move theMessage to mailbox DestinFolderName
else
delete theMessage
end if
end if
end repeat
end try
end if
end repeat
end repeat
-- Get global mailboxes
repeat with theMailbox in every mailbox
set currentMailbox to theMailbox
set mailboxName to the name of currentMailbox
if mailboxName is not in ExcludeList then
if ShowMailboxesProgress then
display dialog "Processing folder " & mailboxName
end if
try
set messages_list to every message of theMailbox
repeat with i from 1 to number of items in messages_list
set theMessage to item i of messages_list
set s to the subject of theMessage
set difference to ((current date) - (date sent of theMessage)) div days
if difference is greater than StaleTime then
if DestinFolderName is not equal to "" then
move theMessage to mailbox DestinFolderName
else
delete theMessage
end if
end if
end repeat
end try
end if
end repeat
display dialog "Finished!"
end tell</pre>
Message was edited by: V.K.