Outlook内嵌活动响应问题：剪贴板HTML插入代码仅弹窗可用求助

Got it, let's fix this issue where your script only works with standalone Outlook windows but fails for inline email edits. The core problem with your original code is that it only targets the active inspector (the pop-out window), while inline replies live in the main Outlook explorer's inline response context. Here's the updated, robust version:

Sub PrependClipboardHTML()
    Dim email As Outlook.MailItem
    Dim cBoard As DataObject
    Dim exp As Outlook.Explorer
    
    ' Check for active standalone inspector window first
    If Not Application.ActiveInspector Is Nothing Then
        Set email = Application.ActiveInspector.CurrentItem
    Else
        ' Check for inline response in the main explorer
        Set exp = Application.ActiveExplorer
        If Not exp.ActiveInlineResponse Is Nothing Then
            Set email = exp.ActiveInlineResponse
        Else
            MsgBox "No active email (standalone or inline) found!", vbExclamation
            GoTo Cleanup
        End If
    End If
    
    ' Handle clipboard HTML prepend
    Set cBoard = New DataObject
    cBoard.GetFromClipboard
    
    ' Ensure email uses HTML format to avoid formatting issues
    If email.BodyFormat <> olFormatHTML Then
        email.BodyFormat = olFormatHTML
    End If
    
    email.HTMLBody = cBoard.GetText & email.HTMLBody
    
Cleanup:
    Set cBoard = Nothing
    Set email = Nothing
    Set exp = Nothing
End Sub

Key Improvements: #

• Dual Context Support: Now detects both ActiveInspector (standalone windows) and ActiveExplorer.ActiveInlineResponse (inline edits) to grab the active email, no matter how it's being edited.
• Error Prevention: Adds a fallback message if no active email is found, so you get clear feedback instead of a confusing runtime error.
• HTML Safety Check: Ensures the email is set to HTML format before modifying HTMLBody—this avoids glitches if the email was originally in plain text or rich text mode.

Quick Setup Tip: #

Make sure you've enabled the Microsoft Forms 2.0 Object Library in the VBA editor (go to Tools > References, find and check this option) to use the DataObject for clipboard access.

内容的提问来源于stack exchange，提问作者Prgrm.celeritas