Bạn đã bao giờ được yêu cầu đếm số lượng tệp đính kèm email trong các email được chọn chưa? Sẽ rất tẻ nhạt nếu bạn đếm chúng theo cách thủ công. Ở đây chúng tôi sẽ giúp bạn đếm dễ dàng hơn và nhanh hơn với Outlook VBA.
Vì một số lý do, bạn có thể cần đếm số lượng tệp đính kèm trong email Outlook. Nếu bạn chỉ muốn đếm số lượng tệp đính kèm trong một email duy nhất, việc này sẽ khá dễ dàng. Nhưng nếu bạn muốn đếm số lượng tệp đính kèm trong nhiều email khác nhau, việc đếm thủ công sẽ rất rắc rối. Nói chung, một trong những cách phổ biến nhất là lưu tất cả các tệp đính kèm vào một thư mục cục bộ trên máy tính của bạn. Sau đó chọn chúng, và Windows Explorer sẽ hiển thị số lượng các mục đã chọn trên thanh trạng thái.
Tuy nhiên, không thể phủ nhận rằng phương pháp này vẫn còn khá rườm rà. Trên thực tế, bằng Outlook VBA, bạn có thể nhanh chóng nhận được tổng số tệp đính kèm trong các email Outlook đã chọn. Đọc tiếp để tìm hiểu các bước và mã VBA chi tiết.
Lấy nhanh tổng số tệp đính kèm trong các email đã chọn
- Đầu tiên, hãy khởi chạy ứng dụng Outlook và chuyển đến tab “Nhà phát triển”.
- Sau đó, bạn có thể nhấp vào nút “Visual Basic”. Nó sẽ đưa bạn đến cửa sổ “Microsoft Visual Basic for Applications”.
- Tiếp theo, bạn nên mở một mô-đun mới không được sử dụng. Chọn “Chèn” > “Mô-đun”.
- Sau đó, bạn phải sao chép và dán các mã VBA sau vào đó.
Sub CountAttachmentsinSelectedEmails()
Dim olSel As Selection
Dim oMail As Object
Dim AttCount As Long
Dim strMsg As String
Set olSel = Outlook.Application.ActiveExplorer.Selection
For Each oMail In olSel
'To confirm if the selected items are all emails
If oMail.Class <> olMail Then
strMsg = "Please select mail items only!"
nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
Exit Sub
End If
'Get the total number of the attachments in selected emails
AttCount = oMail.Attachments.Count + AttCount
Next
strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub
- Sau đó, bạn có thể thoát khỏi cửa sổ “Visual Basic” và quay lại cửa sổ chính của Outlook. Sau đó, bạn nên tìm và nhấn mũi tên xuống trong Thanh công cụ truy cập nhanh và chọn “Lệnh khác” từ danh sách thả xuống.
- Sau đó làm theo các bước được hiển thị trong hình bên dưới.
- Cuối cùng bạn có thể có một thử.
- Sau khi chọn một số email, bạn có thể nhấn nút mới trong Thanh công cụ truy cập nhanh. Sau đó, bạn sẽ nhận được một thông báo cho bạn biết số lượng tệp đính kèm trong các email đã chọn. Nó trông giống như hình ảnh sau đây:
- Nhưng nếu bạn chọn bất kỳ mục nào đang đáp ứng yêu cầu hoặc phản hồi giống nhau thay vì email, bạn sẽ nhận được cảnh báo, giống như hình bên dưới:
Phản ứng với các sự cố thỉnh thoảng về Outlook
Nếu bạn đã sử dụng Outlook trong nhiều thập kỷ, chắc hẳn bạn đã gặp phải nhiều sự cố, bao gồm Outlook không phản hồi, Outlook bị đóng băng, thông báo lỗi thường xuyên và Tham nhũng email Outlook PST vân vân. Bạn đã nắm vững bất kỳ thủ thuật nào để giải quyết chúng chưa? Nói chung, bạn có thể khởi động Outlook ở chế độ an toàn, tạo hồ sơ Outlook mới, sửa chữa Office và vô hiệu hóa các tiện ích bổ sung của bên thứ ba, v.v. Ngoài ra, bạn cũng nên giữ một công cụ sửa chữa mạnh mẽ bên cạnh, chẳng hạn như... DataNumen Outlook Repair. Nó sẽ có ích khi cả bản sao lưu và công cụ sửa chữa hộp thư đến đều bị lỗi.
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 sửa chữa dữ liệu SQL bị hỏng 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