Nếu bạn muốn đếm số lượng email đến vào một ngày cụ thể hoặc trong một tháng hoặc năm cụ thể, bạn có thể sử dụng các phương tiện nhanh chóng được giới thiệu trong bài viết này. Nó sẽ dạy bạn cách sử dụng VBA để có được nó trong nháy mắt.
Khi đếm số lượng email nhận được trong ngày hoặc khoảng thời gian cụ thể, nhiều người đã quen với việc sử dụng thư mục tìm kiếm Outlook, thư mục này cho phép chúng tôi thu thập tất cả email đến trong ngày hoặc phạm vi ngày cụ thể trong một thư mục tìm kiếm. Sau đó, chúng ta có thể sử dụng tính năng “hiển thị tổng số mục” cho thư mục thư để lấy nó. Tuy nhiên, không còn nghi ngờ gì nữa, phương pháp này khá rắc rối. Vì vậy, ở đây chúng tôi sẽ hướng dẫn bạn một thủ thuật khác có thể sử dụng Outlook VBA để giúp bạn tính tổng số. Bây giờ hãy đọc tiếp để tìm hiểu các bước và mã chi tiết.
Đếm email đến theo ngày
- Trước tiên, hãy khởi động chương trình Outlook của bạn đúng cách.
- Sau đó, bạn có thể chuyển sang tab “Nhà phát triển” và nhấp vào nút “Visual Basic”.
- Tiếp theo trong cửa sổ soạn thảo Outlook VBA bật lên, bạn có thể mở một mô-đun mới bằng cách “Chèn” > “Mô-đun”.
- Sau đó, sao chép các mã VBA sau vào mô-đun mới.
'The following codes are working to count by day
Sub CountReceivedEmailsbyDay()
Dim objItems As Outlook.Items
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim strDay As String
Dim dReceivedTime As Date
Dim strReceivedDate As String
Dim i, n As Long
Dim strMsg As String
Dim nPrompt As Integer
Set objItems = Outlook.Application.ActiveExplorer.CurrentFolder.Items
objItems.SetColumns ("ReceivedTime")
strDay = InputBox("Enter the specific day.(Format: yyyy-mm-dd)", "Specify Date")
If strDay <> "" Then
n = 0
For i = 1 To objItems.Count
If objItems.Item(i).Class = olMail Then
Set objMail = objItems.Item(i)
dReceivedTime = objMail.ReceivedTime
strReceivedDate = Year(dReceivedTime) & "-" & Month(dReceivedTime) & "-" & Day(dReceivedTime)
If strReceivedDate = strDay Then
n = n + 1
End If
End If
Next i
strMsg = "You have received " & n & " emails on " & strDay & "."
nPrompt = MsgBox(strMsg, vbExclamation, "Count Received Emails")
Else
nPrompt = MsgBox("Please input the specific day!", vbExclamation)
End If
End Sub
Lưu ý: Đoạn mã trên đang hoạt động để đếm các email đến theo ngày.
- Sau đó, bạn có thể thêm macro mới vào Thanh công cụ truy cập nhanh như bình thường.
- Cuối cùng, bạn có thể thử.
- Đầu tiên, chọn thư mục Hộp thư đến.
- Sau đó bấm vào nút trong Thanh công cụ truy cập nhanh.
- Tiếp theo, bạn cần nhập một ngày cụ thể theo định dạng “yyyy-mm-dd”.
- Cuối cùng, bạn sẽ nhận được lời nhắc về tổng số lượng, như hình ảnh bên dưới:
Đếm số email đến theo tháng hoặc năm
Vì đoạn mã trên được quy định để đếm theo ngày nên nếu muốn đếm theo tháng hoặc năm, bạn cần thực hiện một số thay đổi về mã.
- Đầu tiên, thay đổi tất cả “strDay” thành tháng or strNăm.
- Thứ hai, thay dòng “strDay = inputBox(“Nhập ngày cụ thể.(Định dạng: yyyy-mm-dd)”, “Specify Date”)” bằng:
- strMonth = inputBox(“Nhập tháng cụ thể.(Định dạng: yyyy-mm)”, “Chỉ định tháng”)
- strYear = inputBox(“Nhập năm cụ thể.(Định dạng: yyyy)”, “Chỉ định năm”)
- Thứ ba, thay đổi dòng “strReceivedDate = Year(dReceivedTime) & “-” & Tháng(dReceivedTime) & “-” & Day(dReceivedTime)” thành:
- strReceivedDate = Năm(dReceivedTime) & “-” & Tháng(dReceivedTime) [trong tháng]
- strReceivedDate = Năm(dReceivedTime) [trong năm].
Điều gì sẽ xảy ra sau khi Outlook gặp sự cố
Nhiều người dùng đã từng gặp phải sự cố Outlook bị treo. Trường hợp tốt nhất, sau khi khởi động lại Outlook, mọi thứ sẽ được khôi phục, nghĩa là sẽ không có gì xảy ra. Tuy nhiên, trường hợp xấu nhất, bạn có thể gặp phải các sự cố nghiêm trọng. Tham nhũng PST. Tại thời điểm đó, giả sử bạn không có bản sao lưu dữ liệu hiện tại, giải pháp cuối cùng của bạn chắc chắn là một công cụ sửa chữa đáng chú ý, chẳng hạn như DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm