title: Applescript Purge Email Older than 2 Days
body: <p>I am new to Applescript. I have one specific email account that exists solely for the purpose receiving error reports with an attached image. The mailbox can fill up quickly.</p>
  
  <p>I'd like to be able to run a script that will delete mail older than two days, so I tried my hand at the following script.</p>
  
  <p>I'd like to correct what I have written so I can learn from my mistakes rather that use a different method. Looking for some constructive criticism:</p>
  
  <pre><code>set daysToPreserve to 2
  
  tell application "Mail"
  activate
  set mailboxList to mailbox "INBOX" of account “MyAccount"
  repeat with theCurrentMailbox in mailboxList
      set emailList to (every message of (mailbox theCurrentMailbox of account “MyAccount") whose date received is less than or equal to ((current date) - daysToPreserve * days))
      if (count mailboxList) is greater than 0 then
          move mailboxList to mailbox "Trash" of account “MyAccount"
      end if
  end repeat
  end tell
  
  display dialog "Old Mail Messages Have Been Purged" buttons ["OK"]
  </code></pre>