带有投票选项的Outlook邮件-包括原始邮件以进行回复

Question

我想在oulook使用投票选项，但是我需要包括原始msg进行回复。默认情况下，不包含原始消息。据我了解，没有VBA是不可能做到的。

我已经创建了一些可以创建投票电子邮件的东西。

Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
Set objOlActionYes = objOutlookMsg.Actions.Add
Set objOlActionNo = objOutlookMsg.Actions.Add
objOlActionYes.ReplyStyle = olIncludeOriginalText
objOlActionNo.ReplyStyle = olIncludeOriginalText

With objOutlookMsg
    Set objOutlookRecip = .Recipients.Add("me")
    objOutlookRecip.Type = olTo
    .Subject = "Testing vote email"
    .Body = strBody
    .Importance = olImportanceHigh
    .VotingOptions = "Approved;Disapproved"
    .Display
End With

Set objOutlook = Nothing

End Sub

它可以正常工作，但答复仍不包括原始消息。
有什么技巧可以使这项工作吗？
预先非常感谢