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

Como adicionar e-mails não lidos à pasta favorita do Outlook?

Às vezes, as mensagens de e-mail não lidas podem ficar entre várias mensagens, embora o Outlook indique o número de mensagens de e-mail não lidas, como Caixa de entrada (5), você não pode descobri-los imediatamente. Na verdade, você pode coletar todas as mensagens de e-mail não lidas em uma pasta favorita, tornando o seu trabalho conveniente e rápido.

As orientações a seguir o ajudarão a coletar todas as mensagens de e-mail não lidas em uma pasta de mensagens não lidas e mostrar a pasta em seus favoritos.

Etapa 1: mude para a visualização Mail clicando no Mail no painel de navegação.

Etapa 2: Crie uma nova pasta de pesquisa:

  1. No Outlook 2010/2013, clique no Nova Pasta de Pesquisa botão no Novo grupo no Pasta aba.
  2. No Outlook 2007, clique no Envie o > Novo > Pasta de pesquisa.

Na verdade, existe um método alternativo para criar uma nova pasta de pesquisa: clique com o botão direito no Pasta de pesquisa no painel de navegação e clique no Nova Pasta de Pesquisa no menu do botão direito.

E esse método está disponível em todos os Microsoft Outlook 2007, 2010 e 2013.

Etapa 2: na caixa de diálogo Nova pasta de pesquisa, selecione e realce o Email não lido item e clique OK.

Agora um Email não lido pasta é criada e exibida no painel de navegação. E todas as mensagens de e-mail não lidas são coletadas nesta pasta automaticamente. Assim que uma mensagem de e-mail não lida for aberta, ela será removida da pasta Mensagens não lidas automaticamente.

Etapa 3: clique com o botão direito no Email não lido pasta e clique no Mostrar nos favoritos item no menu do botão direito.

Agora, a pasta Mensagens não lidas é copiada e adicionada aos seus favoritos na parte superior do Painel de Navegação.

Ponta: Se quiser adicionar todos os e-mails não lidos de todas as contas a uma pasta, siga as etapas abaixo:

1. Pressione Alt + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela. E noe Projeto painel, clique em Objetos do Microsoft Outlook > Esta sessão do Outlooke cole o código abaixo na seção direita.

Public WithEvents OlExplprer As Outlook.Explorer
Public WithEvents OlMailItem As Outlook.MailItem
Dim xSelMail As MailItem

Private Sub Application_NewMail()
   AddAllAccountsUnreadMailsToAFolder
   IniEvent
End Sub

Public Sub Initialize_handler()
    Set OlExplprer = Application.ActiveExplorer
    If OlExplprer.Selection.Count <> 0 Then
        Set OlMailItem = OlExplprer.Selection.Item(1)
    End If
End Sub

Private Sub OlExplprer_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean)

Dim xOlApp As Outlook.Application
Dim xNameSpace As NameSpace
Dim xMailItem, xSelMail As MailItem
Dim xTargetFld As Folder

On Error Resume Next

Set xOlApp = Outlook.Application
Set xNameSpace = xOlApp.GetNamespace("MAPI")

If NewFolder.Name = "Unread Mail" Then

    For Each xMailItem In NewFolder.Items
        
        If xMailItem.UnRead = False Then
        
            xMailItem.Delete
        
        End If
    
    Next

Else

    For Each xTargetFld In xNameSpace.Folders.Item(1).Folders

        If xTargetFld.Name = "Unread Mail" Then

            For Each xMailItem In xTargetFld.Items
                
                If (OlExplprer.Selection.Count <> 0) Then
                    
                    Set xSelMail = OlExplprer.Selection.Item(1)
    
                    If xSelMail.UnRead Then

                        xSelMail.UnRead = False
                        
                    End If
                
                End If
            Next
         
        End If
    Next
  
End If
    
Cancel = False

End Sub

Private Sub OlExplprer_FolderSwitch()

Dim xOlApp As Outlook.Application
Dim xNameSpace As NameSpace
Dim xMailItem As MailItem
Dim xAccountFld, xTargetFld, xSubFolder As MAPIFolder
Dim xObjItem As Object

On Error Resume Next
Set xOlApp = Outlook.Application
Set xNameSpace = xOlApp.GetNamespace("MAPI")

Refresh

If (OlExplprer.CurrentFolder.Name <> "Unread Mail") Then

    For Each xTargetFld In xNameSpace.Folders.Item(1).Folders

        If xTargetFld.Name = "Unread Mail" Then

            For Each xMailItem In xTargetFld.Items

                If xMailItem.UnRead = False Then

                    For Each xAccountFld In xNameSpace.Folders

                        For Each xSubFolder In xAccountFld.Folders

                            If (xSubFolder.Name <> "Deleted Items") And (xSubFolder.Name <> "Drafts") And (xSubFolder.Name <> "Outbox") And (xSubFolder.Name <> "Junk E-mail") Then

                                For Each xObjItem In xSubFolder.Items

                                    If xObjItem.Class = olMail Then

                                        If (xObjItem.Subject = xMailItem.Subject) And (xObjItem.SenderName = xMailItem.SenderName) And _
                                           (xObjItem.Body = xMailItem.Body) And (xObjItem.Attachments.Count = xMailItem.Attachments.Count) And _
                                           (xObjItem.SentOn = xMailItem.SentOn) Then
                                                
                                            xObjItem.UnRead = False

                                        End If

                                    End If

                                Next

                            End If

                        Next

                    Next

                End If

            Next

        End If

    Next

End If

End Sub

Private Sub OlExplprer_SelectionChange()

Dim xOlApp As Outlook.Application
Dim xNameSpace As NameSpace

On Error Resume Next
Set xOlApp = Outlook.Application
Set xNameSpace = xOlApp.GetNamespace("MAPI")

If (OlExplprer.CurrentFolder.Name = "Unread Mail") And (OlExplprer.Selection.Count <> 0) Then

    SelUnreadMailFld OlExplprer.CurrentFolder.Items, xNameSpace.Folders

Else

    If (OlExplprer.CurrentFolder.Name <> "Deleted Items") And (OlExplprer.CurrentFolder.Name <> "Drafts") And _
       (OlExplprer.CurrentFolder.Name <> "Outbox") And (OlExplprer.CurrentFolder.Name <> "Junk E-mail") Then
       
       SelOtherFld xNameSpace.Folders.Item(1).Folders
        
    End If

End If

End Sub

Sub SelUnreadMailFld(EMails As Outlook.Items, Flds As Folders)

Dim xMailItem As MailItem
Dim xAccountFld, xSubFolder As Folder
Dim xObjItem As Object
On Error Resume Next
For Each xMailItem In EMails 'OlExplprer.CurrentFolder.Items

    If xMailItem.UnRead = False Then

        For Each xAccountFld In Flds

            For Each xSubFolder In xAccountFld.Folders

                If (xSubFolder.Name <> "Deleted Items") And (xSubFolder.Name <> "Drafts") And (xSubFolder.Name <> "Outbox") And (xSubFolder.Name <> "Junk E-mail") Then

                    For Each xObjItem In xSubFolder.Items

                        If xObjItem.Class = olMail Then

                            If (xObjItem.Subject = xMailItem.Subject) And (xObjItem.SenderName = xMailItem.SenderName) And _
                               (xObjItem.Body = xMailItem.Body) And (xObjItem.Attachments.Count = xMailItem.Attachments.Count) And _
                               (xObjItem.SentOn = xMailItem.SentOn) Then

                                If xObjItem.UnRead Then

                                    xObjItem.UnRead = False

                                End If

                            End If

                        End If

                    Next

                End If

            Next

        Next

    End If

Next

End Sub

Sub SelOtherFld(Flds As Folders)
Dim xSelItem, xMailItem As MailItem
Dim xTargetFld As Folder
    
On Error Resume Next
If OlExplprer.Selection.Count <> 0 Then
      
    Set xSelItem = OlExplprer.Selection.Item(1)

    If xSelItem.UnRead = False Then

        For Each xTargetFld In Flds

            If xTargetFld.Name = "Unread Mail" Then

                For Each xMailItem In xTargetFld.Items

                    If (xSelItem.Subject = xMailItem.Subject) And (xSelItem.SenderName = xMailItem.SenderName) And _
                       (xSelItem.Body = xMailItem.Body) And (xSelItem.Attachments.Count = xMailItem.Attachments.Count) And _
                       (xSelItem.SentOn = xMailItem.SentOn) Then

                        xMailItem.UnRead = False

                    End If

                Next

            End If
        Next

    End If

End If

End Sub


Sub Refresh()
  
Dim xOlApp As Outlook.Application
Dim xNameSpace As NameSpace
Dim xTargetFld As MAPIFolder
Dim xAllUnreadMails As Integer

On Error Resume Next
Set xOlApp = Outlook.Application
Set xNameSpace = xOlApp.GetNamespace("MAPI")

xAllUnreadMails = AllUnreadMails()

For Each xTargetFld In xNameSpace.Folders.Item(1).Folders

    If xTargetFld.Name = "Unread Mail" Then

        If xAllUnreadMails <> xTargetFld.Items.Count Then
            
            AddAllAccountsUnreadMailsToAFolder
            
            Exit For
        
        End If
    
    End If
    
Next

End Sub

Function AllUnreadMails()

Dim xOlApp As Outlook.Application
Dim xNameSpace As NameSpace
Dim xAllUnreadMails As Integer

On Error Resume Next
Set xOlApp = Outlook.Application
Set xNameSpace = xOlApp.GetNamespace("MAPI")

xAllUnreadMails = 0
For Each xFolders In xNameSpace.Folders

   For Each xSubFolder In xFolders.Folders
   
     If xSubFolder.Name <> "Unread Mail" Then
     
     If (xSubFolder.Name <> "Deleted Items") And (xSubFolder.Name <> "Drafts") And (xSubFolder.Name <> "Outbox") And (xSubFolder.Name <> "Junk E-mail") Then

         For Each xObjItem In xSubFolder.Items
    
            If xObjItem.Class = olMail Then
    
               If xObjItem.UnRead Then
               
                 xAllUnreadMails = xAllUnreadMails + 1
    
               End If
    
            End If
         Next
         
        End If
     
     End If

   Next

Next

AllUnreadMails = xAllUnreadMails
End Function
doc todas as notícias em uma pasta 1

 

2. Em seguida, insira um novo Módulo e cole o código abaixo no script do Módulo.

Public Sub AddAllAccountsUnreadMailsToAFolder()
Dim xOlApp As Outlook.Application
Dim xNameSpace As NameSpace
Dim xFolders, xSubFolder As MAPIFolder
Dim xObjItem As Object
Dim xDelFld As Folder
Dim xUnreadMailFld, xOldUnreadMailFld As Folder
Dim xCopiedItem, xMailItem As MailItem

On Error Resume Next
Set xOlApp = Outlook.Application
Set xNameSpace = xOlApp.GetNamespace("MAPI")

For Each xOldUnreadMailFld In xNameSpace.Folders.Item(1).Folders
    If xOldUnreadMailFld.Name = "Unread Mail" Then
        xOldUnreadMailFld.Delete
        Exit For
    End If
Next

For Each xDelFld In xNameSpace.Folders.Item(1).Folders
    If xDelFld.Name = "Deleted Items" Then
        For Each xMailItem In xDelFld.Items
            xMailItem.Delete
        Next
        For Each xSubFolder In xDelFld.Folders
        'For i = xDelFld.Folders.Count To 1 Step -1
            xSubFolder.Delete
        Next
    End If
Next

Set xUnreadMailFld = xNameSpace.Folders.Item(1).Folders.Add("Unread Mail")
If xUnreadMailFld = nil Then
    Exit Sub
End If


For Each xFolders In xNameSpace.Folders

   For Each xSubFolder In xFolders.Folders
   
     If xSubFolder.Name <> xUnreadMailFld.Name Then
     
     If (xSubFolder.Name <> "Deleted Items") And (xSubFolder.Name <> "Drafts") And (xSubFolder.Name <> "Outbox") And (xSubFolder.Name <> "Junk E-mail") Then

         For Each xObjItem In xSubFolder.Items
    
            If xObjItem.Class = olMail Then
    
               If xObjItem.UnRead Then
                 
                 Set xCopiedItem = xObjItem.Copy
    
                 xCopiedItem.Move xUnreadMailFld
    
               End If
    
            End If
         Next
         
        End If
     
     End If

   Next

Next

IniEvent

End Sub

Public Sub IniEvent()
Dim xFld As ThisOutlookSession
Set xFld = ThisOutlookSession
xFld.Initialize_handler
End Sub
doc todas as notícias em uma pasta 2

 

3. Execute o código chamado AddAllAccountsUnreadMailsToAFolder. Então, todos os e-mails não lidos foram colocados em uma pasta chamada Email não lido.
doc todas as notícias em uma pasta 3

remova todos os contatos duplicados de uma ou várias pastas de contatos no Outlook

Às vezes, podemos adicionar repetidamente os mesmos contatos, como podemos remover os contatos duplicados de uma ou várias pastas de contatos? Kutools para Outlook's Duplicate Contacts A função pode localizar rapidamente todos os contatos duplicados e permitir que você remova ou mescle contatos duplicados com base em seus critérios, como encontrar contatos duplicados com o mesmo nome completo e mesmo endereço de e-mail de uma ou mais pastas de contatos.    Clique para
60
-dia cheio de recursos
60
teste grátis!
doc remova contatcs duplicados
 
Kutools for Outlook: com dezenas de suplementos úteis do Outlook, gratuitos para testar sem limitações no futuro
60
dias.

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 (31)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Obrigado!! resolve um grande problema que eu estava tendo há 2 meses !!
Este comentário foi feito pelo moderador no site
Bom artigo, ajudou muito bem.
Este comentário foi feito pelo moderador no site
muito obrigado. :-)
Este comentário foi feito pelo moderador no site
Boa tarde, segui os procedimentos exceto que quando clico com o botão direito do mouse na pasta não lida, não aparece a opção de mostrar nos favoritos. Estou usando o Outlook 2010 com o Windows 7. Obrigado.
Este comentário foi feito pelo moderador no site
Olá. Segui suas instruções novamente (depois do almoço) e funcionou como um encanto. Obrigado por publicar.
Este comentário foi feito pelo moderador no site
Você fez meu dia!!! E minha vida mais feliz!! Obrigada!! :lol:
Este comentário foi feito pelo moderador no site
Boas dicas, tem sido muito útil
Este comentário foi feito pelo moderador no site
Olá amigo, sigo o mesmo e resolvo meu problema, é muita linha de orientação gud, obrigado Friendzz
Este comentário foi feito pelo moderador no site
Ótimas dicas! . Obrigado
Este comentário foi feito pelo moderador no site
Obrigado .. Isso funciona como um encanto ..
Este comentário foi feito pelo moderador no site
Obrigado, era isso mesmo que eu estava procurando
Este comentário foi feito pelo moderador no site
Belo site! uma grande ajuda para pessoas desconhecidas como eu. Muito obrigado extendoffice
Este comentário foi feito pelo moderador no site
Mostra apenas não lidas para uma caixa de entrada específica, sem instruções para várias caixas de entrada :(
Este comentário foi feito pelo moderador no site
Obrigada. Foi realmente útil.
Este comentário foi feito pelo moderador no site
bom trabalho muito útil
Este comentário foi feito pelo moderador no site
bom trabalho... obrigado pelas instruções
Este comentário foi feito pelo moderador no site
Depois de selecionar 'mostrar favoritos', você também pode arrastar e soltar a mensagem não lida na caixa de pastas favoritas.
Este comentário foi feito pelo moderador no site
Funcionou como um encanto! Muito obrigado.
Este comentário foi feito pelo moderador no site
Super útil, obrigado
Este comentário foi feito pelo moderador no site
obrigado ! está funcionando agora :-)
Não há comentários postados aqui ainda
carregar mais
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