Marcar como lida em excluir no Outlook?

Question

Gostaria que o Outlook marcasse todas as mensagens que eu excluir para serem marcadas como lidas. Para pontos de bônus, eu gostaria que ele fizesse isso apenas nas mensagens que eu abri / visualizasse antes de pressionar delete, pois isso significa que eu olhei para o conteúdo e escolhi apagá-lo.

Eu sei que posso configurá-lo para marcar como lido após x segundos quando estou olhando para ele, não é isso que eu quero. Eu também sei que posso sair da mensagem & de volta para ele ou clique direito para marcar como lido - ainda não o que eu quero.

Estou usando o Outlook 2007 caso isso seja importante.

[Edit: Acabei de descobrir que posso pelo menos marcar como lido com um atalho de teclado: Ctrl-Q , mas novamente, seria bom não ter que fazer isso. Mais atalhos aqui .]

[Edit2: agora estou no Outlook 2010:]]

    

Answer 1

Hmm, eu fiz isso, mas não recebo os pontos de bônus, eu acho ...

Estou executando o outlook 2010 para poder usar um novo recurso chamado "Acesso Rápido", no qual você pode definir cadeias de ações como um único botão com uma tecla de atalho (infelizmente, ele deve ser Ctrl + Deslocamento + NUM , portanto, como queria que esta ação fosse executada quando eu pressionasse Excluir , eu teria que fazer uma etapa extra. Veja abaixo.)

No Outlook 2007, você ainda pode definir macros. Eu roubei isso de outra entrada sobre o mesmo assunto:

link

Sub DeleteAndMarkAsRead()
    Dim oItem As Object
    Dim oMailItem As MailItem
    Dim oRSSItem As PostItem

    If Application.ActiveExplorer.Selection.Count = 0 Then
        Exit Sub
    End If

    For Each oItem In Application.ActiveExplorer.Selection
        If oItem.Class = olMail Then
            Set oMailItem = oItem
            oMailItem.UnRead = False
            oMailItem.Delete
        End If
    Next

    Set oItem = Nothing
End Sub

Você pode adicionar a macro como um botão e atribuir um atalho a ela:

link

Então, para poder executá-lo quando eu pressionar Excluir , eu usei AutoHotKey e adicionei o seguinte para o meu arquivo de script:

#IfWinActive Inkorgen - 
    ;
    Del::       
        Send ^+1
    return
#IfWinActive

A parte depois de #IfWinActive é a legenda (título) da minha janela do Outlook ("Inkorgen" é sueco para "Inbox" FYI ...), portanto, você precisará alterá-la para refletir a legenda da janela do Outlook .

O Send ^+1 diz ao AutoHotKey para simular um pressionamento de tecla Ctrl + Shift + 1 (essa é a tecla de atalho para minha macro) Botão)).

(Há uma maneira de combinar com o nome da classe da janela (ahk_class), mas isso funcionou para mim, então eu não poderia me incomodar em descobrir isso.)