ไปยังเนื้อหาหลัก

จะนับจำนวนข้อความที่ถูกตั้งค่าสถานะใน Outlook ได้อย่างไร?

ใน Outlook คุณสามารถตั้งค่าสถานะข้อความที่ติดต่อหรืองานเพื่อทำให้โดดเด่น แต่บางครั้งคุณต้องนับจำนวนรายการที่ถูกตั้งค่าสถานะใน Outlook ของคุณ คุณจะจัดการกับงานนี้ใน Outlook ได้อย่างไร?

นับจำนวนข้อความที่ถูกตั้งค่าสถานะในบัญชีเดียวด้วย Search Folders

นับจำนวนข้อความ / รายชื่อ / งานที่ถูกตั้งค่าสถานะแยกกันในทุกบัญชีด้วยรหัส VBA


นับจำนวนข้อความที่ถูกตั้งค่าสถานะในบัญชีเดียวด้วย Search Folders

ในการนับจำนวนอีเมลที่ถูกตั้งค่าสถานะในบัญชี Outlook ให้ใช้ไฟล์ ค้นหาโฟลเดอร์ คุณสมบัติสามารถช่วยคุณได้โปรดทำตามนี้:

1. คลิกขวา ค้นหาโฟลเดอร์ ภายใต้บัญชีอีเมลของคุณจากนั้นเลือก โฟลเดอร์การค้นหาใหม่ดูภาพหน้าจอ:

doc นับรายการที่ถูกตั้งค่าสถานะ 1

2. จากนั้นก โฟลเดอร์การค้นหาใหม่ กล่องโต้ตอบปรากฏขึ้นให้คลิก จดหมายถูกตั้งค่าสถานะสำหรับการติดตาม ตัวเลือกใน กำลังอ่านจดหมาย ส่วนดูภาพหน้าจอ:

doc นับรายการที่ถูกตั้งค่าสถานะ 2

3. จากนั้นคลิก OKและข้อความที่ตั้งค่าสถานะทั้งหมดจะถูกคัดลอกไปยังไฟล์ สำหรับการติดตาม โฟลเดอร์และจำนวนอีเมลที่ตั้งค่าสถานะทั้งหมดจะแสดงดังภาพหน้าจอต่อไปนี้:

doc นับรายการที่ถูกตั้งค่าสถานะ 3


นับจำนวนข้อความ / รายชื่อ / งานที่ถูกตั้งค่าสถานะแยกกันในทุกบัญชีด้วยรหัส 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

doc นับรายการที่ถูกตั้งค่าสถานะ 4

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อแจ้งให้คุณทราบจำนวนรวมของรายการที่ตั้งค่าสถานะทั้งหมดดังภาพด้านล่างที่แสดง:

doc นับรายการที่ถูกตั้งค่าสถานะ 5


นับจำนวนวันนี้เมื่อวานอ่านยังไม่ได้อ่านรายการทั้งหมด ... ใน Outlook

กับ Kutools สำหรับ Outlookมีพลัง สถิติ คุณลักษณะนี้คุณจะได้รับจำนวนรายการตามวันที่รายการที่เลือกอ่านยังไม่ได้อ่านและอื่น ๆ ตามที่คุณต้องการ

doc นับรายการที่ถูกตั้งค่าสถานะ 6

Kutools สำหรับ Outlook: มีโปรแกรมเสริม Excel ที่ใช้งานง่ายมากกว่า 100+ รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

🤖 ผู้ช่วยจดหมาย AI: ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Das ist ja jetzt wohl nicht die Wahrheit. Ich brauche VBA oder soll umständliche Ordneraktionen durchführen um die Zahl der aktuell gewählten Kontakte zu lesen? So lange es solche Zumutungen bei Office gibt wird Arbeiten mit dieser Suite keinen Spaß machen. Ich stoße immer wieder auf Funktionen, die man als Anwender bei einem Officeprogramm voraussetzt und muß dann leidvoll erfahren, dass man einfachste Vorgängen nur mit Kopfständen oder eben VBA erledigen kann. Super, Microsoft!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations