Jeśli wysłałeś wiadomość e-mail z przyciskami do głosowania, po wysłaniu przez odbiorców odpowiedzi możesz policzyć i wyeksportować statystyki głosowania do arkusza programu Excel. Więc na tym strost, nauczymy Cię, jak szybko to osiągnąć.
Outlook jest tak potężny, że oferuje nawet funkcję „Głosowania”. Mój poprzedni artykuł „Umiejętne wykorzystanie programu MS Outlook do głosowania”Nauczył, jak skutecznie go wykorzystać. Również m. Inost Po zakończeniu głosowania możesz z pewnych powodów przystąpić do eksportowania statystyk głosowania do arkusza programu Excel, np. chcesz wydrukować statystyki. Ale Outlook nie obsługuje tego domyślnie. Dlatego w dalszej części nauczymy Cię, jak realizować to jak korek.
Eksportuj statystyki głosowania w wiadomości e-mail do arkusza programu Excel
- Na samym początku uruchom aplikację Outlook.
- Następnie należy w głównym oknie Outlooka wcisnąć klawisze „Alt + F11”.
- Następnie w oknie „Microsoft Visual Basic for Applications” należy włączyć „Microsoft Excel Object Library ”. Kliknij „Narzędzia”> „Odniesienie”. Następnie w wyskakującym oknie dialogowym zaznacz pole wyboru przed „Microsoft Excel Object Library ”i na końcu naciśnij„ OK ”.
- Następnie możesz wstawić nowy moduł lub otworzyć nieużywany moduł.
- Następnie skopiuj i wklej następujące kody VBA do tego modułu.
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
- Następnie, aby uzyskać wygodny dostęp, lepiej dodaj nowe makro do paska narzędzi szybkiego dostępu.
- W końcu możesz spróbować.
- Najpierw wybierz źródłową wiadomość e-mail, która zawiera przyciski do głosowania.
- Następnie kliknij przycisk makra na pasku narzędzi szybkiego dostępu.
- Po zakończeniu działania tego makra możesz przejść do wstępnie zdefiniowanego folderu lokalnego, w którym zobaczysz nowy skoroszyt programu Excel.
- Otwórz ten skoroszyt programu Excel. Teraz zobaczysz statystyki głosowania, pokazane na poniższym obrazku:
Nikt nie może dokładnie uniknąć błędów programu Outlook
Chociaż program Outlook jest wyposażony w różne funkcje, nie ma takiej funkcji, która pomogłaby nam uniknąć błędów programu Outlook. Przyczyną błędów programu Outlook mogą być różne czynniki. Na przykład, jeśli często nieprawidłowo zamykasz Outlooka, prawdopodobnie ucierpi na tym Korupcja PST. W takim scenariuszu nie masz innego wyjścia, jak tylko użyć potężnych narzędzi do ratowania pliku PST, takich jak DataNumen Outlook Repair. Zyskał wiele uznania ze względu na wysoki wskaźnik odzysku.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com