Outlook 中的可写主动内联响应

Question

我有一些博客中的以下代码，它将剪贴板中的 HTML 插入到 Outlook 电子邮件中。

Sub PrependClipboardHTML()
Dim email As Outlook.MailItem
Dim cBoard As DataObject

Set email = Application.ActiveInspector.CurrentItem
Set cBoard = New DataObject


cBoard.GetFromClipboard
email.HTMLBody = cBoard.GetText + email.HTMLBody

Set cBoard = Nothing
Set email = Nothing

End Sub

它工作得很好，除了电子邮件在它自己的窗口中（即弹出），否则它会失败。

我四处查看文档，发现Application.ActiveExplorer.ActiveInlineResponsehere。

但是文档说它是只读的，实际上它不起作用。有没有办法获得内联响应的可写版本？

Answer 1

它很好用，只是电子邮件在它自己的窗口中（即弹出），否则它会失败。

那是因为你在代码中有如下语句：

Set email = Application.ActiveInspector.CurrentItem

但是文档说它是只读的，实际上它不起作用。

尝试使用以下代码：

Set email = Application.ActiveExplorer.ActiveInlineResponse

ActiveInlineResponse 属性是只读的，但不是您要使用的对象的属性。这意味着您不能将另一个邮件项设置为内联响应，但可以设置检索项的属性。

Answer 2

也许您正在尝试使用 ActiveExplorer + Selection.Item Method (Outlook)

例子

Option Explicit
Public Sub Example()    
    Dim email  As Outlook.MailItem
    Set email = Application.ActiveExplorer.Selection.Item(1)
        Debug.Print email.Subject ' print on immediate window    
End Sub

Or Work with both opened and selected items

Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application

    Set objApp = Application

    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select

    Set objApp = Nothing
End Function

Answer 3

您不能连接两个 HTML 字符串并期望返回一个有效的 HTML。两者必须合并。

话虽如此，使用 Word 对象模型从剪贴板粘贴：

Application.ActiveEXplorer.ActiveInlineResponseWordEditor.Application.Selection.Paste()