H
Heinz-Josef Bomanns
Hi,
i hook into MailItems via Explorer_SelectionChange:
Private Sub objExpl_SelectionChange()
Set explMail = objExpl.Selection(1)
End Sub
"explMail" is declared as "Private WithEvents explMail As
Outlook.MailItem".
In the "Reply" event of "explMail" i get a 'Response' object that, if
i got it rigth, should be the answer to the original message, thus a
modified copy of the original message. If i do something like
Private Sub explMail_Reply(ByVal Response As Object, _
Cancel As Boolean)
On Error Resume Next
Response.Body = "Test!" & vbCrLf & Response.Body
Err.Clear
End Sub
this is correctly displayed in the inspector for editing the reply,
but my modifications are also taken into the original message ;-(
Thanks for any hints...
i hook into MailItems via Explorer_SelectionChange:
Private Sub objExpl_SelectionChange()
Set explMail = objExpl.Selection(1)
End Sub
"explMail" is declared as "Private WithEvents explMail As
Outlook.MailItem".
In the "Reply" event of "explMail" i get a 'Response' object that, if
i got it rigth, should be the answer to the original message, thus a
modified copy of the original message. If i do something like
Private Sub explMail_Reply(ByVal Response As Object, _
Cancel As Boolean)
On Error Resume Next
Response.Body = "Test!" & vbCrLf & Response.Body
Err.Clear
End Sub
this is correctly displayed in the inspector for editing the reply,
but my modifications are also taken into the original message ;-(
Thanks for any hints...