Nếu bạn đã gửi email có các nút biểu quyết, sau khi người nhận gửi cho bạn câu trả lời của họ, bạn có thể muốn đếm và xuất thống kê biểu quyết sang trang tính Excel. Vì vậy, trong p nàyost, chúng tôi sẽ hướng dẫn bạn cách đạt được điều đó một cách nhanh chóng.
Outlook mạnh đến nỗi nó thậm chí còn cung cấp tính năng “Bỏ phiếu”. Bài viết trước của tôi “Sử dụng khéo léo MS Outlook để bỏ phiếu” đã dạy cách sử dụng nó một cách hiệu quả. Ngoài ra, tôiost Theo thời gian, sau khi biểu quyết, bạn có thể tiến hành xuất số liệu thống kê biểu quyết sang trang tính Excel vì một số lý do, chẳng hạn như muốn in số liệu thống kê. Nhưng Outlook không hỗ trợ điều này theo mặc định. Vì vậy, trong phần tiếp theo, chúng tôi sẽ hướng dẫn bạn cách nhận ra điều này giống như nút chai.
Xuất thống kê biểu quyết trong email sang bảng tính Excel
- Ngay từ đầu, hãy khởi chạy ứng dụng Outlook của bạn.
- Sau đó, bạn phải nhấn các nút phím “Alt + F11” trong cửa sổ chính của Outlook.
- Tiếp theo trong cửa sổ “Microsoft Visual Basic for Applications”, bạn nên kích hoạt “Microsoft Excel Object Library”. Nhấp vào “Công cụ” > “Tham khảo”. Sau đó, trong hộp thoại bật lên, đánh dấu hộp kiểm phía trước “Microsoft Excel Object Library” và nhấn “OK” cuối cùng.
- Sau đó, bạn có thể chèn một mô-đun mới hoặc mở một mô-đun không sử dụng.
- Sau đó, sao chép và dán các mã VBA sau vào mô-đun này.
Sub ExportVotingStatistics _Excel ()
Dim objMail As Outlook.MailItem
Dim objRecipient As Outlook.recipient
Dim objVoteDictionary As Object
Dim varVotingCounts As Variant
Dim varVotingOptions As Variant
Dim varVotingOption As Variant
Dim i As Long
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim nRow As Integer
Set objMail = Application.ActiveExplorer.Selection(1)
'Create a new excel worksheet
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Add
Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
'Fill in the predefined values
With objExcelWorksheet
.Cells.Font.Name = "Cambria"
.Cells(1, 1) = "Voting Results for Email:"
.Cells(1, 2) = Chr(34) & objMail.Subject & Chr(34)
.Cells(3, 1) = "Voting Options"
.Cells(3, 2) = "Voting Counts"
End With
Set objVoteDictionary = CreateObject("Scripting.Dictionary")
'get the default voting options
varVotingOptions = Split(objMail.VotingOptions, ";")
'Add the voting responses to the dictionary
For Each varVotingOption In varVotingOptions
objVoteDictionary.Add varVotingOption, 0
Next
'Add a custom voting response - "No Reply"
objVoteDictionary.Add "No Reply", 0
'Process the all voting responses
For Each objRecipient In objMail.Recipients
If objRecipient.TrackingStatus = olTrackingReplied Then
If objVoteDictionary.Exists(objRecipient.AutoResponse) Then
objVoteDictionary.Item(objRecipient.AutoResponse) = objVoteDictionary.Item(objRecipient.AutoResponse) + 1
Else
objVoteDictionary.Add objRecipient.AutoResponse, 1
End If
Else
objVoteDictionary.Item("No Reply") = objVoteDictionary.Item("No Reply") + 1
End If
Next
'Get the voting options and vote counts
varVotingOptions = objVoteDictionary.Keys
varVotingCounts = objVoteDictionary.Items
'Fill in the values in specific cells
nRow = 4
For i = LBound(varVotingOptions) To UBound(varVotingOptions)
With objExcelWorksheet
.Cells(nRow, 1) = varVotingOptions(i)
.Cells(nRow, 2) = varVotingCounts(i)
End With
nRow = nRow + 1
Next
'Save the new Excel file
objExcelWorksheet.Columns("A:B").AutoFit
strExcelFile = "E:\Voting Results " & Format(Now, "YYYY-MM-DD hh-mm-ss") & ".xlsx"
objExcelWorkbook.Close True, strExcelFile
MsgBox "Complete!", vbExclamation
End Sub
- Sau đó, để truy cập thuận tiện, bạn nên thêm macro mới vào Thanh công cụ truy cập nhanh.
- Cuối cùng, bạn có thể thử.
- Đầu tiên, chọn một email nguồn có chứa các nút bỏ phiếu.
- Sau đó nhấp vào nút macro trong Thanh công cụ truy cập nhanh.
- Sau khi macro này chạy xong, bạn có thể duyệt đến thư mục cục bộ được xác định trước, trong đó bạn sẽ thấy sổ làm việc Excel mới.
- Mở sổ làm việc Excel này. Bây giờ bạn sẽ thấy số liệu thống kê bình chọn, được hiển thị như hình bên dưới:
Không ai có thể ngăn chặn các lỗi Outlook một cách triệt để
Mặc dù Outlook được ưu đãi với nhiều khả năng, nhưng không có tính năng nào như vậy để giúp chúng tôi tránh các lỗi Outlook. Tất cả các loại yếu tố có thể gây ra lỗi Outlook. Chẳng hạn, nếu bạn thường xuyên thoát Outlook không đúng cách, bạn sẽ có khả năng bị Tham nhũng PST. Trong trường hợp như vậy, bạn không có lựa chọn nào khác ngoài việc sử dụng một số công cụ mạnh mẽ để giải cứu tệp PST của mình, chẳng hạn như DataNumen Outlook Repair. Nó đã kiếm được rất nhiều danh tiếng do tỷ lệ thu hồi cao.
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 mdf 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