无法修改Outlook 2016中拦截的回复事件的主体

Question

我正在创建一个宏，每当用户单击“答复”按钮回复电子邮件时，拦截回复事件并修改回复的BCC /主题/正文。

BCC和主题正在修改，但身体不想改变。

下面是宏我使用：

Private WithEvents oExpl As Explorer 
Private WithEvents oItem As mailItem 
Private bDiscardEvents As Boolean 

Private Sub Application_Startup() 
    Set oExpl = Application.ActiveExplorer 
    bDiscardEvents = False 
End Sub 

Private Sub oExpl_SelectionChange() 
    On Error Resume Next 
    Set oItem = oExpl.Selection.Item(1) 
End Sub 

Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean) 
    Dim responseItem As mailItem 
    Set responseItem = Response 

    ' Both work fine 
    responseItem.BCC = "example@example.com" 
    responseItem.Subject = "this is reply subject" 

    ' None of them works 
    responseItem.HTMLBody = "this is reply html body" 
    responseItem.Body = "this is reply text body" 
End Sub 

Answer 1

显示它之前，你可以编辑...

例

' None of them works 
' responseItem.HTMLBody = "this is reply html body" 
    responseItem.display 
    responseItem.body = "this is reply text body" & responseItem.body