AddIn

VERAGAddIn/rbnMailItem.vb

@@ -41,11 +41,11 @@ Public Class rbnMailItem
         End If
     End Sub
 
-    Private Sub Button2_Click(sender As Object, e As RibbonControlEventArgs) Handles Button2.Click
+    Private Sub Button2_Click(sender As Object, e As RibbonControlEventArgs) Handles btnAvisoMail2.Click
         If LOGIN_OK Then
             Try
                 Dim INSPECTOR As Outlook.Inspector = e.Control.Context
-                AVISO_Mail_Functions.addMailToAviso(INSPECTOR.CurrentItem)
+                AVISO_Mail_Functions.addMailToAviso(INSPECTOR.CurrentItem, sender)
                 'Me.Context
             Catch ex As Exception
                 MsgBox(ex.Message & ex.StackTrace)