Comment puis-je sélectionner le message suivant en dehors d'une sélection dans Mail en utilisant Applescript?

Question

J'ai écrit un Applescript court pour déplacer les messages sélectionnés vers l'archive appropriée pour cette boîte aux lettres. Cependant quand il s'exécute il n'y a plus de sélection. (Si j'appuie ensuite vers le haut ou vers le bas, le premier ou le dernier message de la boîte aux lettres entière est sélectionné). Je ne peux pas trouver comment sélectionner le message suivant en dehors de la sélection en cours en utilisant AppleScript. Cela ne me dérange pas vraiment si 'next' est le message avant ou après tant qu'il est proche de la sélection (qui est sur le point de disparaître).

Si elle aide, voici mon Applescript:

tell application "Mail" 
    set selectedMessages to selection 
    repeat with theMessage in selectedMessages 
     set theAccount to account of mailbox of theMessage 
     set read status of theMessage to true 
     set mailbox of theMessage to mailbox "_old" of theAccount 
    end repeat 
end tell 

Answer 1

Essayez quelque chose comme ceci:

tell application "Mail" 
    set theSelection to selection 
    set theMessage to item 1 of theSelection 
    set theMailbox to theMessage's mailbox 
    set theMessageID to theMessage's id 
    set theMessageIDs to (id of every message of theMailbox) 
    -- do work here 
    set theMessages to (every message of theMailbox) 
    repeat with i from 1 to (count theMessageIDs) 
     if item i of theMessageIDs is theMessageID then 
      set message viewer 1's selected messages to {item i of theMessages} 
      exit repeat 
     end if 
    end repeat 
end tell 

Notez que cela suppose quelques choses une seule boîte aux lettres est sélectionnée, vous n'êtes pas déplacer le dernier message, et ainsi de suite.