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

Sut i ychwanegu e-byst heb eu darllen at eich hoff ffolder yn Outlook?

Weithiau gall negeseuon e-bost heb eu darllen aros ymhlith nifer o negeseuon, er bod y Camre yn nodi nifer y negeseuon e-bost heb eu darllen, fel Mewnflwch (5), ni allwch eu darganfod ar unwaith. Mewn gwirionedd gallwch chi gasglu'r holl negeseuon e-bost heb eu darllen mewn hoff ffolder, gan wneud eich gwaith yn gyfleus ac yn gyflym.

Bydd y canllawiau canlynol yn eich helpu i gasglu'r holl negeseuon e-bost heb eu darllen i mewn i ffolder Mail Unread, a dangos y ffolder yn eich ffefrynnau.

Cam 1: Newid i olwg y Post trwy glicio ar y bost yn y Pane Llywio.

Cam 2: Creu ffolder chwilio newydd:

  1. Yn Outlook 2010/2013, cliciwch y Ffolder Chwilio Newydd botwm yn y Newydd grŵp ar y Ffolder tab.
  2. Yn Outlook 2007, cliciwch y ffeil > Newydd > Chwilio Ffolder.

Mewn gwirionedd mae yna ddull arall i greu ffolder chwilio newydd: de-gliciwch y Chwilio Ffolder yn Navigation Pane, a chliciwch ar y Ffolder Chwilio Newydd yn y ddewislen de-gliciwch.

Ac mae'r dull hwn ar gael ym mhob un o Microsoft Outlook 2007, 2010, a 2013.

Cam 2: Yn y blwch deialog Ffolder Chwilio Newydd, dewiswch ac amlygwch y Post heb ei ddarllen eitem, a chlicio OK.

Nawr an Post heb ei ddarllen ffolder yn cael ei greu ac yn dangos yn y cwarel llywio. Ac mae'r holl negeseuon e-bost heb eu darllen yn cael eu casglu i'r ffolder hon yn awtomatig. Unwaith y bydd neges e-bost heb ei darllen yn cael ei hagor, bydd yn cael ei thynnu o'r ffolder Unread Mail yn awtomatig.

Cam 3: Cliciwch ar y dde ar y Post heb ei ddarllen ffolder, a chliciwch ar y Sioe yn Ffefrynnau eitem yn y ddewislen clic dde.

Nawr mae'r ffolder Unread Mail wedi'i gopïo a'i ychwanegu at eich ffefrynnau ar frig Navane Pane.

Tip: Os ydych chi am ychwanegu pob e-bost heb ei ddarllen o'r holl gyfrifon at ffolder, gallwch chi wneud fel isod gamau:

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. Ac yn the Prosiect pane, cliciwch Gwrthrychau Microsoft Outlook > SesiwnOragolygon hon, a'i gludo o dan y cod i'r adran dde.

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 yr holl newyddion mewn ffolder 1

 

2. Yna mewnosodwch Fodiwl newydd, a'i gludo o dan y cod i sgript y Modiwl.

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 yr holl newyddion mewn ffolder 2

 

3. Rhedeg y cod a enwir AddAllAccountsUnreadMailToAFolder. Yna rhoddwyd ffolder o'r enw pob e-bost heb ei ddarllen Post heb ei ddarllen.
doc yr holl newyddion mewn ffolder 3

tynnwch yr holl gysylltiadau dyblyg o un neu fwy o ffolderau cysylltiadau mewn rhagolwg

Weithiau, efallai y byddwn yn ychwanegu'r un cysylltiadau dro ar ôl tro, sut allwn ni dynnu'r cysylltiadau dyblyg o un neu fwy o ffolderau cysylltiadau? Kutools ar gyfer Rhagolwg's Duplicate Contacts gall swyddogaeth ddod o hyd i'r holl gysylltiadau dyblyg yn gyflym a'ch galluogi i dynnu neu uno cysylltiadau dyblyg yn seiliedig ar eich meini prawf penodol, megis dod o hyd i gysylltiadau dyblyg yn yr un enw llawn, yr un cyfeiriad e-bost gan un neu fwy o ffolderau cysylltiadau.    Cliciwch ar gyfer treial 60 diwrnod llawn sylw 60 am ddim!
doc dileu contatcs dyblyg
 
Kutools ar gyfer Outlook: gyda dwsinau o ychwanegion Outlook defnyddiol, yn rhad ac am ddim i geisio heb unrhyw gyfyngiad yn 60 diwrnod llawn yn y dyfodol.

Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (31)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch!! datrys problem fawr roeddwn i'n ei chael am 2 fis nawr!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Erthygl neis, wedi helpu'n dda iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr. :-)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Prynhawn da, rwyf wedi dilyn y gweithdrefnau ac eithrio pan fyddaf yn clicio ar y dde ar y ffolder heb ei ddarllen, nid yw'r opsiwn i ddangos yn ffefrynnau yno. Rwy'n defnyddio Outlook 2010 gyda ffenestri 7. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Wedi dilyn eich cyfarwyddiadau eto (ar ôl cinio) ac roedd yn gweithio fel swyn. Diolch am bostio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe wnaethoch chi fy niwrnod !!! A fy mywyd yn hapusach!! Diolch!! :lol:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Awgrymiadau da, mae wedi bod yn ddefnyddiol iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ffrind, rwy'n dilyn yr un peth ac yn datrys fy mhroblem, ei linell canllaw gormodol, Diolch Friendzz
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cynghorion Gwych! . Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch .. Mae hyn yn gweithio fel swyn ..
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, dyna'r union beth roeddwn i'n edrych amdano
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Safle neis! help mawr i bobl anghyfarwydd fel fi. Diolch yn fawr iawn extendoffice
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim ond yn dangos heb ei ddarllen ar gyfer mewnflwch penodol, dim cyfarwyddiadau ar gyfer mewnflychau lluosog :(
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch. Roedd yn ddefnyddiol iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
swydd dda yn ddefnyddiol iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gwaith da... diolch am y cyfarwyddiadau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Unwaith y byddwch wedi dewis 'dangos ffefrynnau' gallwch hefyd lusgo a gollwng neges heb ei darllen i mewn i'r blwch Ffolderi ffefrynnau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi gweithio fel swyn! Diolch criw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cymwynasgar iawn, diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch! mae'n gweithio nawr :-)
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir