Как выбрать следующее сообщение вне выделения в Mail, используя Applescript?

Question

Я написал короткий Applescript, чтобы переместить выбранные сообщения в соответствующий архив для этого почтового ящика. Однако когда он запускается, выбора больше нет. (Если я затем нажимаю вверх или вниз, он выбирает первое или последнее сообщение во всем почтовом ящике). Я не могу понять, как выбрать следующее сообщение за пределами текущего выбора, используя AppleScript. Я действительно не возражаю против того, является ли «следующее» сообщение до или после тех пор, пока оно находится рядом с выделением (которое скоро исчезнет).

Если это поможет, вот мой 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

Попробуйте что-то вроде этого:

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

Обратите внимание, что это предполагает несколько вещей: выбран только один почтовый ящик, вы не перемещаете последнее сообщение и т. Д.