Outlook撰写/回复邮件触发VBA方法及实时监控方案咨询

Great question! To get real-time readability scores while drafting emails in Outlook without manual spell check steps, we can combine Outlook's Inspector event tracking with Word's document events (since Outlook uses Word as its default email editor). Here's a practical, step-by-step implementation:

Step 1: Set Up the Class Module for Inspector Tracking #

First, we need a class module to monitor when email compose windows (Inspectors) open and hook into their underlying Word document.

1. Open Outlook's VBA Editor (Alt + F11).
2. Right-click your project in the Project Explorer > Insert > Class Module.
3. Rename the module clsInspector (use the Properties Window F4 to update the name).
4. Paste this code into the class module:

Option Explicit
Public WithEvents objInspector As Outlook.Inspector
Private WithEvents objWordDoc As Word.Document
Private lastCalculationTime As Date

Private Sub objInspector_Activate()
    ' Hook into the Word editor when the compose window is activated
    If objInspector.CurrentItem.Class = olMail Then
        Set objWordDoc = objInspector.WordEditor
    End If
End Sub

Private Sub objWordDoc_WindowSelectionChange(ByVal Sel As Word.Selection)
    ' Throttle calculations to avoid performance hits (run every 0.5 seconds)
    If Now() - lastCalculationTime > TimeValue("00:00:00.5") Then
        lastCalculationTime = Now()
        CalculateReadability objWordDoc
    End If
End Sub

Step 2: Add the Inspector Tracking Module #

Next, create a standard module to track all open and new compose windows:

1. Insert a new standard module (Insert > Module).
2. Paste this code:

Option Explicit
Public colInspectors As New Collection

Sub InitializeInspectorTracking()
    Dim objInspector As Outlook.Inspector
    ' Track all already open compose windows
    For Each objInspector In Outlook.Application.Inspectors
        AddInspector objInspector
    Next objInspector
End Sub

Sub AddInspector(objInspector As Outlook.Inspector)
    Dim clsInspect As clsInspector
    Set clsInspect = New clsInspector
    Set clsInspect.objInspector = objInspector
    colInspectors.Add clsInspect
End Sub

Private Sub Application_NewInspector(ByVal Inspector As Outlook.Inspector)
    ' Track new compose windows as they open
    AddInspector Inspector
End Sub

Step 3: Implement the Readability Calculation #

Add this subroutine to the same standard module to calculate and display readability scores:

Sub CalculateReadability(doc As Word.Document)
    Dim readabilityStats As Word.ReadabilityStatistics
    Dim stat As Word.ReadabilityStatistic
    Dim statusMsg As String
    
    On Error Resume Next ' Skip if document is empty or stats can't be calculated
    Set readabilityStats = doc.ReadabilityStatistics
    
    statusMsg = "Readability: "
    ' Extract key scores (adjust based on your needs)
    For Each stat In readabilityStats
        Select Case stat.Name
            Case "Flesch-Kincaid Grade Level"
                statusMsg = statusMsg & "Grade: " & stat.Value & " | "
            Case "Flesch Reading Ease"
                statusMsg = statusMsg & "Ease: " & stat.Value
        End Select
    Next stat
    
    ' Update Outlook's status bar with the scores (non-intrusive)
    Outlook.Application.StatusBar = Trim(statusMsg)
    
    On Error GoTo 0
End Sub

Step 4: Enable Required References #

To make this work, you need to reference the Word object library:

1. In the VBA Editor, go to Tools > References.
2. Check the box for Microsoft Word xx.x Object Library (xx.x matches your Office version).

Step 5: Start Tracking on Outlook Launch #

Ensure the tracking starts automatically when Outlook opens:

1. Open the ThisOutlookSession module (double-click it in the Project Explorer).
2. Add this code:

Private Sub Application_Startup()
    InitializeInspectorTracking()
End Sub

How It Works #

• Inspector Events: We monitor when new email compose windows open and hook into their Word editor.
• Word Selection Change: The WindowSelectionChange event fires whenever the user types (since the cursor moves), triggering the readability calculation.
• Throttling: We added a 0.5-second delay between calculations to avoid slowing down Outlook with frequent checks.
• Readability Stats: We use Word's built-in ReadabilityStatistics object, which gives the same scores as Outlook's spell check—no manual steps needed!

Customization Tips #

• Display Location: Instead of the status bar, you could create a custom task pane to show scores more prominently.
• Scores to Show: Adjust the Select Case block in CalculateReadability to include other stats like "Gunning Fog Index" or "Coleman-Liau Index".
• Threshold Alerts: Add logic to highlight scores that fall below a desired threshold (e.g., show a warning if Flesch Reading Ease is below 60).

内容的提问来源于stack exchange，提问作者Tiago Cardoso