Atalho para mover um email para outra pasta no Mail.app

Question

Como eu poderia configurar um atalho de teclado para Mail.app no OSX Lion para que um email na caixa de entrada, que ainda não tenha sido lido, quando eu usar esse atalho seja movido automaticamente para outra pasta previamente definida?

    

Answer 1

Abra o Automator e crie um novo serviço. Defina para receber "sem entrada" e arraste Executar AppleScript do painel esquerdo para a direita.

Cole o seguinte script - observe que você precisa alterar my-account para o nome real da conta em que suas caixas de correio de origem e de destino estão *. Além disso, altere destination para o nome da caixa de correio de destino na conta especificada.

tell application "Mail"
    repeat with theMessage in {messages in mailbox "INBOX" of account "my-account" where read status is false}
        set theMailbox to mailbox "destination" of account "my-account"
        move theMessage to theMailbox
    end repeat
end tell

Se você quiser que isso afete a caixa de entrada geral:

tell application "Mail"
    repeat with theMessage in {messages in inbox where read status is false}
        set theMailbox to mailbox "destination" of account "my-account"
        move theMessage to theMailbox
    end repeat
end tell

Salveesteserviço.Emseguida,emPreferênciasdoSistema»Teclado»AtalhosdeTeclado,crieumnovoatalhodetecladoparaesteserviço.

E pronto!

_{* Você pode descobrir o nome da conta acessando as preferências do Mail, depois em Contas , veja a linha Descrição .}

    

Answer 2

Você pode usar a solução Automator para fazer um Serviço com o seguinte fragmento de AppleScript, que perguntará para onde você deseja mover a (s) mensagem (ns) selecionada (s).

use Mail : application "Mail"
use scripting additions

on findMailBox for partialName
    --display dialog "Looking for mailbox with text " & partialName
    set allMailBoxes to mailboxes of account "Apple"
    repeat with m in allMailBoxes
        if ((offset of partialName in (name of m as string)) ≠ 0) then
            return m
        end if
    end repeat
end findMailBox

display dialog "Destination: " default answer ""
set destinationName to the text returned of the result

set moveTo to findMailBox for destinationName

set theSelection to selection of Mail
repeat with m in theSelection
    --display dialog "will move message " & (id of m as string) & " to mailbox " & (name of moveTo as string)
    move m to moveTo
end repeat

    

Answer 3

Eu estava procurando a mesma solução, mover mensagens para uma pasta e usando o dicionário eu encontrei isso para trabalhar em Yosemite.

tell application "Mail"

  set the_messages to selection
  repeat with this_message in the_messages
 set theSender to sender of this_message  
move this_message to mailbox "BILL PAY/Mortgage & HOA" of account "iCloud" -- a folder        contained by another folder

 end repeat
end tell 

    

Answer 4

Não funciona mais no Mavericks (Mail 7.3)

Isso faz:

tell application "Mail"
    repeat with theMessage in (every message of (mailbox "current" of account "my-account"))
        set mailbox of theMessage to mailbox "destination" of account "my-account"
    end repeat
end tell