Outlook 2007 - VB6 - reply to all ribbon button onclick event

Option Explicit
 
Dim OutApp As New Outlook.Application
 
Public WithEvents myItem As Outlook.MailItem
Public WithEvents EmailHandler As Outlook.Inspectors
 
Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As _
AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
    On Error GoTo error_handler
 
    Set EmailHandler = OutApp.Inspectors
 
    Exit Sub
 
error_handler:
    
    MsgBox Err.Description
    
End Sub
 
Private Sub EmailHandler_NewInspector(ByVal Inspector As Outlook.Inspector)
 
On Error GoTo AddButton_Error
 
'checks if this is an email.
If Inspector.CurrentItem.Class <> olMail Or Inspector.CurrentItem.Sent = False Then
    Exit Sub
End If
 
Set myItem = Inspector.CurrentItem ' Application.ActiveInspector.CurrentItem
 
   On Error GoTo 0
   Exit Sub
 
AddButton_Error:
 
    Select Case Err
        Case 13, 438
            Resume Next
        Case Else
            MsgBox Err & " " & Err.Description, vbCritical, "Rename Attachment"
    End Select
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

Select allOpen in new window