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

Kako dodati neprebrano pošto v priljubljeno mapo v Outlooku?

Včasih lahko neprebrana e-poštna sporočila ostanejo med številnimi sporočili, čeprav vam Outlook prikazuje število neprebranih e-poštnih sporočil, na primer Prejeto (5), ne morete jih takoj odkriti. Pravzaprav lahko vsa neprebrana e-poštna sporočila zberete v priljubljeno mapo, tako da je vaše delo priročno in hitro.

Naslednja navodila vam bodo pomagala zbrati vsa neprebrana e-poštna sporočila v mapo Neprebrana pošta in prikazati mapo med priljubljenimi.

1. korak: s klikom gumba preklopite na pogled pošte mail v podoknu za krmarjenje.

2. korak: Ustvarite novo mapo za iskanje:

  1. V programu Outlook 2010/2013 kliknite Nova iskalna mapa gumb v Novo skupina na Mapa tab.
  2. V programu Outlook 2007 kliknite file > Novo > Iskanje mape.

Pravzaprav obstaja nova metoda za ustvarjanje nove iskalne mape: z desno miškino tipko kliknite Iskanje mape v podoknu za krmarjenje in kliknite Nova iskalna mapa v meniju z desnim klikom.

Ta metoda je na voljo v vseh Microsoft Outlook 2007, 2010 in 2013.

2. korak: V pogovornem oknu Nova iskalna mapa izberite in označite Neprebrana pošta in kliknite OK.

Sedaj Neprebrana pošta mapa je ustvarjena in prikazana v podoknu za krmarjenje. Vsa neprebrana e-poštna sporočila se samodejno zberejo v tej mapi. Ko se odpre neprebrano e-poštno sporočilo, se samodejno odstrani iz mape Neprebrana pošta.

3. korak: Z desno miškino tipko kliknite Neprebrana pošta mapo in kliknite Pokaži med priljubljenimi v meniju z desnim klikom.

Zdaj je mapa Neprebrana pošta kopirana in dodana med priljubljene na vrhu podokna za krmarjenje.

Nasvet: Če želite v mapo dodati vsa neprebrana e-poštna sporočila vseh računov, lahko storite spodnja navodila:

1. Pritisnite Alt + F11 tipke, da omogočite Microsoft Visual Basic za aplikacije okno. In v the Projekt podokno, kliknite Predmeti Microsoft Outlook > TaOoutlookSessionin prilepite spodnjo kodo v desni del.

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
vse novice v mapi 1

 

2. Nato vstavite nov modul in prilepite spodnjo kodo v skript modula.

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
vse novice v mapi 2

 

3. Zaženite kodo z imenom DodajAllAccountsUnreadMailsToAFolder. Nato je bila vsem neprebranim e-poštnim sporočilom dodana mapa z imenom Neprebrana pošta.
vse novice v mapi 3

odstranite vse podvojene stike iz ene ali več map stikov v Outlooku

Včasih lahko večkrat dodamo iste stike, kako odstraniti podvojene stike iz ene ali več map stikov? Kutools za Outlook's Duplicate Contacts Funkcija lahko hitro poišče vse podvojene stike in vam omogoča, da odstranite ali združite podvojene stike na podlagi danih meril, na primer poiščite podvojene stike z istim polnim imenom in istim e-poštnim naslovom iz ene ali več map stikov.    Kliknite za 60-dnevno 60-dnevno brezplačno preizkusno različico!
doc odstraniti podvojene kontakte
 
Kutools za Outlook: z desetimi priročnimi dodatki za Outlook, ki jih lahko brezplačno preizkusite v prihodnjih 60 dneh.

Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (31)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala!! rešuje velik problem, ki sem ga imel že 2 meseca!!
Ta komentar je moderator na spletnem mestu minimiziral
Lep članek, zelo lepo je pomagal.
Ta komentar je moderator na spletnem mestu minimiziral
najlepša hvala. :-)
Ta komentar je moderator na spletnem mestu minimiziral
Dober dan, upošteval sem postopke, le da ko z desno tipko miške kliknem neprebrano mapo, možnosti za prikaz med priljubljenimi ni. Uporabljam Outlook 2010 z operacijskim sistemom Windows 7. Hvala.
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo. Spet sem sledil vašim navodilom (po kosilu) in delovalo je kot čar. Hvala za objavo.
Ta komentar je moderator na spletnem mestu minimiziral
Polepšal si mi dan!!! In moje življenje je srečnejše!! Hvala vam!! :lol:
Ta komentar je moderator na spletnem mestu minimiziral
Dobri nasveti, res so bili v pomoč
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni prijatelj, sledim istemu in rešim svojo težavo, to je preveč gud vodilo, hvala Friendzz
Ta komentar je moderator na spletnem mestu minimiziral
Odlični nasveti! . Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Hvala.. To deluje kot čar..
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, ravno to sem iskal
Ta komentar je moderator na spletnem mestu minimiziral
Lepo spletno mesto! v veliko pomoč neznanim ljudem, kot sem jaz. Najlepša hvala extendoffice
Ta komentar je moderator na spletnem mestu minimiziral
Prikaže samo neprebrano za določeno mapo »Prejeto«, brez navodil za več nabiralnikov :(
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam. Res je bilo v pomoč.
Ta komentar je moderator na spletnem mestu minimiziral
dobro delo zelo koristno
Ta komentar je moderator na spletnem mestu minimiziral
dobro opravljeno...hvala za navodila
Ta komentar je moderator na spletnem mestu minimiziral
Ko izberete »prikaži priljubljene«, lahko neprebrano sporočilo povlečete in spustite v polje za priljubljene mape.
Ta komentar je moderator na spletnem mestu minimiziral
Deloval kot čar! Hvala lepa.
Ta komentar je moderator na spletnem mestu minimiziral
Super koristno, hvala
Ta komentar je moderator na spletnem mestu minimiziral
hvala! zdaj deluje :-)
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije