Mail :: Comment déplacer vers la boite aux lettres « Archives » les anciens messages ?

Deux approches, La première consiste à créer une « boite aux lettres intelligente » et de regrouper dans cette boite aux lettres  virtuelle les messages reçus au de la d’une période (1 ans, 1 mois etc..). Cette solution vous permet d’identifier individuellement les messages anciens, et vous donne la possibilité de déplacer manuellement le message vers un dossier ou vers la BAL « Archives ».

Pour réaliser cette boite aux lettres intelligente :

(Fenêtre de conditions de la boite aux lettre intelligente)

Avec AppelScript :

Une autre approche existe, elle est plus « directive « mais nécessite l’utilisation d’Applescript.

Vous pouvez créer une application depuis l’éditeur d’Applescript, sinon vous pouvez créer un service qui s’exécutera dans Mail ou plus facilement créer une application « Automator ».

Voici le script AppleScript :

-- Définition du dossier de destination des mails.
set DestinFolderName to "Archives"
-- Définition de la période au-delà de laquelle les messages seront archivés
-- Cette période est exprimée en jour (30 * days) soit 30 jours dans notre exemple
set staledate to (current date) - (30  * days)
tell application "Mail"
Collecte de tous les messages dépassant cette période
set msgs to every message of message viewer 1 whose date received is more than staledate and read status is true
-- Boucle sur tous les messages récupérés
repeat with aMsg in msgs
        set acct to account of mailbox of aMsg
        -- Récupère si le compte possède une BAL « Archives »
        if name of every mailbox of acct contains DestinFolderName then
            -- Si oui alors les messages sont déplacés dans la BAL « Archives »
            set archiveFolder to mailbox DestinFolderName of acct
            move aMsg to archiveFolder
        end if
    end repeat
end tell

(le script complet dans l’éditeur de Script)

Si vous souhaitez l’intégrer dans Automator voici la procédure à suivre : Lancez Automator, sélectionnez « Service ». La particularité de services est qu’il récupère des données, c’est le bandeau  en haut de la fenêtre, là sélectionnez « Mail » pour l’application et « pas d’entrée » (le premier menu déroulant).

(Les script placé dans Automator pour créer un service)

Placez l’action « Exécuter un script Applescript » et copiez ce script. Enregistrer le service. Il sera disponible dans Mail dans le menu « Mail » sous la ligne « Services ». Vous pouvez ajouter un raccourcis clavier en le configurant dans les préférences claviers. Votre Service apparaitra dans la section « General ».