Come aggiungere messaggi di posta non letti alla cartella preferita in Outlook?
A volte i messaggi di posta elettronica non letti possono rimanere tra un numero di messaggi, sebbene Outlook indichi il numero di messaggi di posta elettronica non letti, ad esempio Posta in arrivo (5), non puoi scoprirli subito. In realtà puoi raccogliere tutti i messaggi di posta elettronica non letti in una cartella preferita, rendendo il tuo lavoro comodo e veloce.
La seguente guida ti aiuterà a raccogliere tutti i messaggi di posta elettronica non letti in una cartella Posta non letta ea mostrare la cartella nei preferiti.
Passaggio 1: passare alla visualizzazione Posta facendo clic su posta nel riquadro di spostamento.
Passaggio 2: crea una nuova cartella di ricerca:
- In Outlook 2010/2013, fare clic su Nuova cartella di ricerca nel pulsante New gruppo sul cartella scheda.
- In Outlook 2007, fare clic su Compila il > New > Cartella di ricerca.
In realtà esiste un metodo alternativo per creare una nuova cartella di ricerca: fare clic con il tasto destro del mouse su Cartella di ricerca nel riquadro di spostamento e fare clic su Nuova cartella di ricerca nel menu di scelta rapida.
E questo metodo è disponibile in tutti Microsoft Outlook 2007, 2010 e 2013.
Passaggio 2: nella finestra di dialogo Nuova cartella di ricerca, selezionare ed evidenziare il file Posta non letta elemento e fare clic su OK.
Adesso un Posta non letta viene creata la cartella e viene visualizzata nel riquadro di navigazione. E tutti i messaggi di posta elettronica non letti vengono raccolti automaticamente in questa cartella. Una volta aperto, un messaggio di posta elettronica non letto verrà rimosso automaticamente dalla cartella Posta non letta.
Passaggio 3: fare clic con il pulsante destro del mouse su Posta non letta cartella e fare clic su Mostra nei preferiti elemento nel menu di scelta rapida.
Ora la cartella Posta non letta viene copiata e aggiunta ai preferiti nella parte superiore del riquadro di spostamento.
Consiglio: Se desideri aggiungere tutte le e-mail non lette di tutti gli account a una cartella, puoi procedere come segue:
1. Stampa Alt + F11 tasti per abilitare il Microsoft Visual Basic, Applications Edition finestra. E in the Progetto fai clic su Oggetti di Microsoft Outlook > Questa sessione di Outlooke incolla il codice sottostante nella sezione destra.
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
2. Quindi inserire un nuovo modulo e incollare sotto il codice nello script del modulo.
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
3. Eseguire il codice denominato Aggiungi tutti gli account non letti nella cartella. Quindi tutte le e-mail non lette sono state inserite in una cartella denominata Posta non letta.
rimuovere tutti i contatti duplicati da una o più cartelle di contatti in Outlook
|
| A volte, possiamo aggiungere ripetutamente gli stessi contatti, come possiamo rimuovere i contatti duplicati da una o più cartelle di contatti? Kutools for Outlook's Duplicate Contacts la funzione può trovare rapidamente tutti i contatti duplicati e consentire di rimuovere o unire i contatti duplicati in base ai criteri forniti, come trovare contatti duplicati con lo stesso nome completo, lo stesso indirizzo e-mail da una o più cartelle di contatti. Fai clic per 60 giorni di prova gratuita completa di 60 funzionalità! |
 |
| Kutools per Outlook: con dozzine di pratici componenti aggiuntivi di Outlook, provabili gratuitamente senza limitazioni per 60 giorni futuri. |
I migliori strumenti per la produttività in ufficio
Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook
🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...
???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP) / Pianifica l'invio di e-mail / CC/BCC automatico in base alle regole durante l'invio di e-mail / Inoltro automatico (regole avanzate) / Aggiunta automatica di saluto / Suddividi automaticamente le email con più destinatari in singoli messaggi ...
📨 gestione e-mail: Richiama facilmente le email / Blocca le email truffe per soggetto e altri / Elimina email duplicate / Ricerca avanzata / Consolidare cartelle ...
📁 Allegati Pro: Salvataggio in batch / Stacca batch / Comprimi in lotti / Salvataggio automatico / Scollegamento automatico / Comprimi automaticamente ...
🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici / Aumenta la tua produttività in Outlook con le visualizzazioni a schede / Riduci a icona Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo / E-mail anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate / Dividere un gruppo di contatti in singoli gruppi / Rimuovi promemoria compleanno ...
Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.
