Outlook 2003 Reply to All with message

[rwilljr]

Here is the code I copied from Microsofts site but it never fires

Function Item_ReplyAll(ByVal myResponse)
myMsg = "Do you really want to reply to all original recipients?"
myResult = MsgBox(myMsg, 289, "Flame Protector")
If myResult = 1 Then
Item_ReplyAll = True
Else
Item_ReplyAll = False
End If
End Function

Any ideas?? I'm sure I'm not the only one that has tried this.

Thanks

 

[rwilljr]

Here is the code I copied from Microsofts site but it never fires

Function Item_ReplyAll(ByVal myResponse)
myMsg = "Do you really want to reply to all original recipients?"
myResult = MsgBox(myMsg, 289, "Flame Protector")
If myResult = 1 Then
Item_ReplyAll = True
Else
Item_ReplyAll = False
End If
End Function

Any ideas?? I'm sure I'm not the only one that has tried this.

Thanks

And this other code diesn't work either

Public WithEvents myItem As MailItem

Sub Initialize_Handler()
Set myItem = Application.ActiveInspector.CurrentItem
End Sub

Private Sub myItem_ReplyAll(ByVal Response As Object, Cancel As
Boolean)
Dim mymsg As String
Dim myResult As Integer
mymsg = "Do you really want to reply to all original recipients?"
myResult = MsgBox(mymsg, vbYesNo, "Flame Protector")
If myResult = vbNo Then
Cancel = True
End If
End Sub

 

[Ken Slovak - [MVP - Outlook]]

And where are you trying to run the code? The first sample looks like a
VBScript example for a custom Outlook form, the second looks like an Outlook
VBA setup.

Is the VBA code in the ThisOutlookSession class module or in another class
module or UserForm that has scope throughout the life of the code? Is
Initialize_Handler being called at all?