hunk ./ReplyToAll.bas 48
+Dim added As Integer: added = 0
hunk ./ReplyToAll.bas 50
-    ReplyToAll_AddButtonsTo bar.Controls
+    ReplyToAll_AddButtonsTo added, bar.Controls
hunk ./ReplyToAll.bas 52
+If added = 0 Then
+    MsgBox "Failed to find any existing Reply To All buttons to replace, please add buttons manually", vbExclamation
+Else
+    Dim s As String
+    If added = 1 Then s = "" Else s = "s"
+    MsgBox "Replaced " & added & " ReplyToAll button" & s, vbInformation
+End If
hunk ./ReplyToAll.bas 61
-Private Sub ReplyToAll_AddButtonsTo(cs As CommandBarControls)
+Private Sub ReplyToAll_AddButtonsTo(ByRef added As Integer, cs As CommandBarControls)
hunk ./ReplyToAll.bas 69
-        ReplyToAll_AddButtonsTo cpop.Controls
+        ReplyToAll_AddButtonsTo added, cpop.Controls
hunk ./ReplyToAll.bas 73
+            added = added + 1