Τρόπος γρήγορης εξαγωγής στατιστικών ψηφοφορίας από ένα Outlook Outlook σε ένα φύλλο εργασίας του Excel

Εάν έχετε στείλει ένα email με κουμπιά ψηφοφορίας, αφού οι παραλήπτες σας στείλουν τις απαντήσεις τους, ίσως θελήσετε να μετρήσετε και να εξαγάγετε τα στατιστικά στοιχεία ψηφοφορίας σε ένα φύλλο εργασίας του Excel. Έτσι, σε αυτό το σελost, θα σας διδάξουμε πώς να το επιτύχετε γρήγορα.

Το Outlook είναι τόσο ισχυρό που προσφέρει ακόμη και μια δυνατότητα «Ψηφοφορίας». Το προηγούμενο άρθρο μου «Επιδέξια χρήση του MS Outlook για την ψηφοφορίαΈχει διδάξει πώς να το χρησιμοποιήσει αποτελεσματικά. Επίσης, μost με την πάροδο του χρόνου, μετά την ψηφοφορία, μπορείτε να προχωρήσετε στην εξαγωγή των στατιστικών ψηφοφορίας σε ένα φύλλο εργασίας του Excel για ορισμένους λόγους, όπως η επιθυμία εκτύπωσης των στατιστικών. Αλλά το Outlook δεν το υποστηρίζει από προεπιλογή. Έτσι, στα ακόλουθα, θα σας διδάξουμε πώς να το συνειδητοποιήσετε σαν φελλό.

Εξαγωγή στατιστικών ψηφοφορίας σε email σε φύλλο εργασίας του Excel

1. Στην αρχή, ξεκινήστε την εφαρμογή Outlook.
2. Στη συνέχεια, πρέπει να πατήσετε τα πλήκτρα "Alt + F11" στο κύριο παράθυρο του Outlook.
3. Στη συνέχεια, στο παράθυρο "Microsoft Visual Basic for Applications", θα πρέπει να ενεργοποιήσετε το "Microsoft Excel Object Librarγ ». Κάντε κλικ στο "Εργαλεία"> "Αναφορά". Στη συνέχεια, στο αναδυόμενο παράθυρο διαλόγου, σημειώστε το πλαίσιο ελέγχου μπροστά από το "Microsoft Excel Object Library "και πατήστε" OK "επιτέλους.
4. Μετά από αυτό, μπορείτε να εισαγάγετε μια νέα λειτουργική μονάδα ή να ανοίξετε μια που δεν χρησιμοποιείται.
5. Στη συνέχεια, αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς VBA σε αυτήν την ενότητα.

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

5. Μετά από αυτό, για εύκολη πρόσβαση, καλύτερα να προσθέσετε τη νέα μακροεντολή στη Γραμμή εργαλείων γρήγορης πρόσβασης.
6. Τελικά, μπορείτε να δοκιμάσετε.

• Πρώτον, επιλέξτε ένα email προέλευσης που περιέχει κουμπιά ψηφοφορίας.
• Στη συνέχεια, κάντε κλικ στο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
• Αφού ολοκληρωθεί η εκτέλεση αυτής της μακροεντολής, μπορείτε να περιηγηθείτε στον προκαθορισμένο τοπικό φάκελο, στον οποίο θα δείτε ένα νέο βιβλίο εργασίας του Excel.
• Ανοίξτε αυτό το βιβλίο εργασίας του Excel. Τώρα θα δείτε τα στατιστικά στοιχεία ψηφοφορίας, όπως φαίνεται παρακάτω:

Κανείς δεν μπορεί να αποτρέψει τα σφάλματα του Outlook σε βάθος

Παρόλο που το Outlook διαθέτει πολλές δυνατότητες, δεν υπάρχει τέτοια δυνατότητα που να μας βοηθά να αποφύγουμε τα σφάλματα του Outlook. Όλα τα είδη παραγόντων μπορεί να προκαλέσουν σφάλματα στο Outlook. Για παράδειγμα, εάν βγείτε συχνά από το Outlook ακατάλληλα, είναι πιθανό να υποφέρετε Διαφθορά PST. Σε ένα τέτοιο σενάριο, δεν έχετε άλλη επιλογή από το να χρησιμοποιήσετε μερικά ισχυρά εργαλεία για να σώσετε το αρχείο PST, όπως DataNumen Outlook Repair. Έχει κερδίσει πολλά kudos λόγω του υψηλού ποσοστού ανάκαμψης.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com