Note: The other languages of the website are Google-translated. Back to English

Como marcar e-mails não lidos anteriores a dias específicos como lidos automaticamente no Outlook?

Se houver vários emails não lidos na pasta Caixa de entrada, normalmente, você pode aplicar o recurso Marcar todos como lidos para marcar manualmente todos os emails não lidos como emails lidos. Mas, você já tentou marcar e-mails não lidos anteriores a dias específicos como lidos automaticamente no Outlook, sem configurá-los manualmente todas as vezes?

Marque e-mails não lidos anteriores a dias específicos como lidos automaticamente com o código VBA


Marque e-mails não lidos anteriores a dias específicos como lidos automaticamente com o código VBA

Para marcar automaticamente todos os e-mails não lidos anteriores a dias específicos como lidos, o seguinte código VBA pode lhe fazer um favor:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook de Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código abaixo no módulo em branco.

Código VBA: marcar automaticamente e-mails não lidos anteriores a dias específicos como lidos:

Private Sub Application_Startup()
        Call MarkOldUnreadEmailsAsRead
    End Sub
    Private Sub MarkOldUnreadEmailsAsRead()
    Dim xInboxFld As Outlook.Folder
    Dim xAccount As Account
    On Error GoTo L1
    For Each xAccount In Outlook.Application.Session.Accounts
        Set xInboxFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
        Call Processfolders(xInboxFld)
    Next xAccount
L1:     Exit Sub
    End Sub
    Private Sub Processfolders(ByVal InboxFld As Outlook.Folder)
    Dim xItems As Outlook.Items
    Dim i As Long
    Dim xSubFld As Outlook.Folder
    On Error Resume Next
    Set xItems = InboxFld.Items
    For i = 1 To xItems.Count
        If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then
           If xItems(i).UnRead = True Then
              xItems(i).UnRead = False
              xItems(i).Save
           End If
        End If
    Next
    If InboxFld.Folders.Count > 0 Then
       For Each xSubFld In InboxFld.Folders
           Call Processfolders(xSubFld)
       Next
    End If
End Sub

Nota: No código acima, você pode alterar o número de dias neste script: If DateDiff ("d", xItems (i) .ReceivedTime, Now)> = 15 Então para o seu próprio necessário.

3. Em seguida, salve e feche esta janela de código, desde então, sempre que você iniciar o Outlook, todos os e-mails não lidos com mais de dias predefinidos serão marcados como lidos automaticamente de uma vez.

Nota: Este código está disponível apenas para a conta de dados padrão.


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (1)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Como modifico o código para direcionar uma pasta específica?
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL