Outlook 2003 Reply to All with message

  • Thread starter Thread starter rwilljr
  • Start date Start date
R

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
 
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
 
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?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Back
Top