Mail.App and sub-MailBoxes

[kcossabo]

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, so I assume that the fact that the mailbox is a subordinate requires another way to refer to it.

an help would be appreciated.

[mikerickson]

The container of mailbox mailboxName has to be specified.

[kcossabo]

Will try to debug, but a blind replace failed

Original Code resulted with non-sub-mailboxed

get every message of mailbox “Duplicate Messages”
→ {message id 6711 of mailbox “Duplicate Messages”, message id 6706 of mailbox “Duplicate Messages”, message id 6713 of mailbox “Duplicate Messages”, message id 6712 of mailbox “Duplicate Messages”, message id 6710 of mailbox “Duplicate Messages”, message id 6705 of mailbox “Duplicate Messages”, message id 6707 of mailbox “Duplicate Messages”, message id 6709 of mailbox “Duplicate Messages”, message id 6708 of mailbox “Duplicate Messages”, message id 6704 of mailbox “Duplicate Messages”, message id 6754 of mailbox “Duplicate Messages”, message id 6775 of mailbox “Duplicate Messages”, message id 6763 of mailbox “Duplicate Messages”, message id 6752 of mailbox “Duplicate Messages”, message id 6769 of mailbox “Duplicate Messages”, message id 6816 of mailbox “Duplicate Messages”, message id 6803 of mailbox “Duplicate Messages”, message id

And for sub-mailboxed

get every message of mailbox “Calandder Invites”
→ error number -1728 from mailbox “Calandder Invites”

New Code results in for all mailboxes

get name of item 1 of every mailbox
→ “Duplicate Messages”
get name of item 2 of every mailbox
→ “Calandder Invites”

[kcossabo]

Here is the full code;

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 9 – days old the message must be before moved or deleted
set ShowMailboxesProgress to false – determines if you want the “Processing” box displayed for each mailbox

set donotdeletecount to 0 as double integer – debug flag
set deletecount to 0 as double integer – debug flag
set CurrentDate to current date

tell application “Mail”
set everyAccount to every account

-- 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 mailbox mailboxName
			set messages_list to every message of mailbox mailboxName of (container of mailbox maliboxName)
			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 ((CurrentDate) - (date sent of theMessage)) div days
				log "date differene is " & difference
				if difference is greater than StaleTime then
					set deletecount to deletecount + 1
					log "delete count is " & deletecount
				else
					set donotdeletecount to donotdeletecount + 1
					log "do not delete count is " & donotdeletecount
				end if
			end repeat
		end try
	end if
end repeat

display dialog "Finished!"
display dialog deletecount as double integer
display dialog donotdeletecount as double integer

end tell

[StefanK]

Hi,

two notes:

¢ all mailboxes in subfolders are also listed in mailboxes of application “Mail”
¢ the reference to a sub mailbox is mailbox “Customers/CustomerA”

[kcossabo]

got it;

set messages_list to every message of mailbox mailboxName

changed to

set messages_list to every message of theMailbox

fixed