Formular einfügen nun auch bei geöffneter Mail möglich.

VERAGAddIn/rbnMailItem.vb

@@ -76,4 +76,17 @@ Public Class rbnMailItem
             ThisAddIn.MailChanged(sender, ThisMail)
         End If
     End Sub
+
+    Private Sub Button3_Click(sender As Object, e As RibbonControlEventArgs) Handles btnVollmachten.Click, btnGestellungsgarantien.Click, btnVertraege.Click
+        If LOGIN_OK Then
+            Try
+                Dim INSPECTOR As Outlook.Inspector = e.Control.Context
+                AVISO_Mail_Functions.addMailToAviso(INSPECTOR.CurrentItem, sender)
+                'Me.Context
+            Catch ex As Exception
+                MsgBox(ex.Message & ex.StackTrace)
+            End Try
+        End If
+
+    End Sub
 End Class