จะเพิ่มอีเมลที่ยังไม่ได้อ่านไปยังโฟลเดอร์โปรดใน Outlook ได้อย่างไร?
บางครั้งข้อความอีเมลที่ยังไม่ได้อ่านอาจอยู่ในหลาย ๆ ข้อความแม้ว่า Outlook จะระบุจำนวนข้อความอีเมลที่ยังไม่ได้อ่านเช่น กล่องจดหมาย (5) คุณไม่สามารถค้นหาได้ในคราวเดียว จริงๆแล้วคุณสามารถรวบรวมข้อความอีเมลที่ยังไม่ได้อ่านทั้งหมดไว้ในโฟลเดอร์โปรดทำให้การทำงานของคุณสะดวกและรวดเร็ว
คำแนะนำต่อไปนี้จะช่วยคุณรวบรวมข้อความอีเมลที่ยังไม่ได้อ่านทั้งหมดลงในโฟลเดอร์ Unread Mail และแสดงโฟลเดอร์ในรายการโปรดของคุณ
ขั้นตอนที่ 1: เลื่อนไปที่มุมมองจดหมายโดยคลิกที่ไฟล์ จดหมาย ในบานหน้าต่างนำทาง
ขั้นตอนที่ 2: สร้างโฟลเดอร์การค้นหาใหม่:
- ใน Outlook 2010/2013 คลิกไฟล์ โฟลเดอร์การค้นหาใหม่ ปุ่มใน ใหม่ กลุ่มใน โฟลเดอร์ แถบ
- ใน Outlook 2007 คลิกไฟล์ เนื้อไม่มีมัน > ใหม่ > ค้นหาโฟลเดอร์.
จริงๆแล้วมีวิธีอื่นในการสร้างโฟลเดอร์ค้นหาใหม่: คลิกขวาที่ไฟล์ ค้นหาโฟลเดอร์ ในบานหน้าต่างนำทางแล้วคลิกไฟล์ โฟลเดอร์การค้นหาใหม่ ในเมนูคลิกขวา
และวิธีนี้มีอยู่ใน Microsoft Outlook 2007, 2010 และ 2013 ทั้งหมด
ขั้นตอนที่ 2: ในกล่องโต้ตอบ New Search Folder เลือกและไฮไลต์ไฟล์ จดหมายที่ยังไม่ได้อ่าน รายการแล้วคลิก OK.
ตอนนี้ a จดหมายที่ยังไม่ได้อ่าน โฟลเดอร์ถูกสร้างขึ้นและแสดงในบานหน้าต่างนำทาง และข้อความอีเมลที่ยังไม่ได้อ่านทั้งหมดจะถูกรวบรวมไว้ในโฟลเดอร์นี้โดยอัตโนมัติ เมื่อเปิดข้อความอีเมลที่ยังไม่ได้อ่านข้อความนั้นจะถูกลบออกจากโฟลเดอร์ Unread Mail โดยอัตโนมัติ
ขั้นตอนที่ 3: คลิกขวาที่ไฟล์ จดหมายที่ยังไม่ได้อ่าน แล้วคลิกไฟล์ แสดงในรายการโปรด รายการในเมนูคลิกขวา
ตอนนี้โฟลเดอร์ Unread Mail จะถูกคัดลอกและเพิ่มลงในรายการโปรดของคุณที่ด้านบนของบานหน้าต่างนำทาง
ปลาย: หากคุณต้องการเพิ่มอีเมลที่ยังไม่ได้อ่านของทุกบัญชีลงในโฟลเดอร์คุณสามารถทำได้ตามขั้นตอนด้านล่างนี้:
1 กด Alt + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. และใน the โครงการ บานหน้าต่างคลิก วัตถุ Microsoft Outlook > OutlookSession นี้และวางโค้ดด้านล่างลงในส่วนด้านขวา
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. จากนั้นใส่โมดูลใหม่และวางโค้ดด้านล่างลงในสคริปต์โมดูล
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. เรียกใช้รหัสที่ชื่อว่า เพิ่ม AllAccountsUnreadMailsToAFolder. จากนั้นอีเมลที่ยังไม่ได้อ่านทั้งหมดจะถูกใส่ชื่อโฟลเดอร์ จดหมายที่ยังไม่ได้อ่าน.
ลบผู้ติดต่อที่ซ้ำกันทั้งหมดออกจากโฟลเดอร์ผู้ติดต่อหนึ่งหรือหลายโฟลเดอร์ใน Outlook
|
ในบางครั้งเราอาจเพิ่มรายชื่อเดิมซ้ำแล้วซ้ำอีกจะลบผู้ติดต่อที่ซ้ำกันออกจากโฟลเดอร์รายชื่อเดียวหรือหลายโฟลเดอร์ได้อย่างไร? Kutools สำหรับ Outlook's Duplicate Contacts ฟังก์ชันสามารถค้นหาผู้ติดต่อที่ซ้ำกันทั้งหมดได้อย่างรวดเร็วและช่วยให้คุณสามารถลบหรือรวมผู้ติดต่อที่ซ้ำกันตามเกณฑ์ที่คุณกำหนดเช่นค้นหาผู้ติดต่อที่ซ้ำกันในชื่อนามสกุลเดียวกันที่อยู่อีเมลเดียวกันจากโฟลเดอร์ผู้ติดต่อหนึ่งโฟลเดอร์ขึ้นไป คลิกเพื่อทดลองใช้ฟรี 60 วันเต็ม 60 วัน! |
Kutools for Outlook: ด้วยโปรแกรมเสริมของ Outlook ที่มีประโยชน์มากมาย ให้ทดลองใช้ฟรีโดยไม่มีข้อจำกัดในอนาคต 60 วันเต็ม |
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ
🤖 ผู้ช่วยจดหมาย AI: ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...
📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP) / กำหนดการส่งอีเมล / Auto CC/BCC ตามกฎเมื่อส่งอีเมล / ส่งต่ออัตโนมัติ (กฎขั้นสูง) / เพิ่มคำทักทายอัตโนมัติ / แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...
📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย / บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ / ลบอีเมลที่ซ้ำกัน / การค้นหาขั้นสูง / รวมโฟลเดอร์ ...
📁 ไฟล์แนบโปร: บันทึกแบทช์ / การแยกแบทช์ / การบีบอัดแบบแบตช์ / บันทึกอัตโนมัติ / ถอดอัตโนมัติ / บีบอัดอัตโนมัติ ...
🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น / เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ / ลดขนาด Outlook แทนที่จะปิด ...
???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา / อีเมลต่อต้านฟิชชิ่ง / 🕘 แสดงโซนเวลาของผู้ส่ง ...
👩🏼🤝👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก / แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม / ลบการแจ้งเตือนวันเกิด ...
เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม