จะนับจำนวนข้อความที่ถูกตั้งค่าสถานะใน Outlook ได้อย่างไร?
ใน Outlook คุณสามารถตั้งค่าสถานะข้อความที่ติดต่อหรืองานเพื่อทำให้โดดเด่น แต่บางครั้งคุณต้องนับจำนวนรายการที่ถูกตั้งค่าสถานะใน Outlook ของคุณ คุณจะจัดการกับงานนี้ใน Outlook ได้อย่างไร?
นับจำนวนข้อความที่ถูกตั้งค่าสถานะในบัญชีเดียวด้วย Search Folders
นับจำนวนข้อความ / รายชื่อ / งานที่ถูกตั้งค่าสถานะแยกกันในทุกบัญชีด้วยรหัส VBA
นับจำนวนข้อความที่ถูกตั้งค่าสถานะในบัญชีเดียวด้วย Search Folders
ในการนับจำนวนอีเมลที่ถูกตั้งค่าสถานะในบัญชี Outlook ให้ใช้ไฟล์ ค้นหาโฟลเดอร์ คุณสมบัติสามารถช่วยคุณได้โปรดทำตามนี้:
1. คลิกขวา ค้นหาโฟลเดอร์ ภายใต้บัญชีอีเมลของคุณจากนั้นเลือก โฟลเดอร์การค้นหาใหม่ดูภาพหน้าจอ:
2. จากนั้นก โฟลเดอร์การค้นหาใหม่ กล่องโต้ตอบปรากฏขึ้นให้คลิก จดหมายถูกตั้งค่าสถานะสำหรับการติดตาม ตัวเลือกใน กำลังอ่านจดหมาย ส่วนดูภาพหน้าจอ:
3. จากนั้นคลิก OKและข้อความที่ตั้งค่าสถานะทั้งหมดจะถูกคัดลอกไปยังไฟล์ สำหรับการติดตาม โฟลเดอร์และจำนวนอีเมลที่ตั้งค่าสถานะทั้งหมดจะแสดงดังภาพหน้าจอต่อไปนี้:
นับจำนวนข้อความ / รายชื่อ / งานที่ถูกตั้งค่าสถานะแยกกันในทุกบัญชีด้วยรหัส VBA
หากคุณต้องการนับจำนวนรายการที่ถูกตั้งค่าสถานะทั้งหมดเช่นอีเมลผู้ติดต่อและงานใน Outlook แยกกันรหัส VBA ต่อไปนี้สามารถช่วยคุณได้
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลว่างที่เปิดดูภาพหน้าจอ:
รหัส VBA: นับจำนวนครั้งที่ถูกตั้งค่าสถานะใน Outlook:
Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
For Each xFolder In xStore.GetRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
Set xItem = CurFolder.Items.item(i)
Select Case xItem.Class
Case olMail, olPost, olSharing
If xItem.IsMarkedAsTask = True Then
GMailCount = GMailCount + 1
End If
Case olContact, olDistList
If xItem.IsMarkedAsTask = True Then
GContactCount = GContactCount + 1
End If
Case olTask
If CurFolder.DefaultItemType = olTaskItem Then
GTaskCount = GTaskCount + 1
End If
End Select
Next i
If CurFolder.Folders.Count > 0 Then
For k = CurFolder.Folders.Count To 1 Step -1
Set xSubfolder = CurFolder.Folders.item(k)
Call ProcessFolders(xSubfolder)
Next k
End If
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อแจ้งให้คุณทราบจำนวนรวมของรายการที่ตั้งค่าสถานะทั้งหมดดังภาพด้านล่างที่แสดง:
นับจำนวนวันนี้เมื่อวานอ่านยังไม่ได้อ่านรายการทั้งหมด ... ใน Outlook
กับ Kutools สำหรับ Outlookมีพลัง สถิติ คุณลักษณะนี้คุณจะได้รับจำนวนรายการตามวันที่รายการที่เลือกอ่านยังไม่ได้อ่านและอื่น ๆ ตามที่คุณต้องการ Kutools สำหรับ Outlook: มีโปรแกรมเสริม Excel ที่ใช้งานง่ายมากกว่า 100+ รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!
|
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ
🤖 ผู้ช่วยจดหมาย AI: ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...
📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP) / กำหนดการส่งอีเมล / Auto CC/BCC ตามกฎเมื่อส่งอีเมล / ส่งต่ออัตโนมัติ (กฎขั้นสูง) / เพิ่มคำทักทายอัตโนมัติ / แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...
📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย / บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ / ลบอีเมลที่ซ้ำกัน / การค้นหาขั้นสูง / รวมโฟลเดอร์ ...
📁 ไฟล์แนบโปร: บันทึกแบทช์ / การแยกแบทช์ / การบีบอัดแบบแบตช์ / บันทึกอัตโนมัติ / ถอดอัตโนมัติ / บีบอัดอัตโนมัติ ...
🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น / เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ / ลดขนาด Outlook แทนที่จะปิด ...
???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา / อีเมลต่อต้านฟิชชิ่ง / 🕘 แสดงโซนเวลาของผู้ส่ง ...
👩🏼🤝👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก / แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม / ลบการแจ้งเตือนวันเกิด ...
เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม