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

VERAGAddIn/rbnMailItem.Designer.vb

@@ -44,11 +44,15 @@
         Me.components = New System.ComponentModel.Container()
         Me.Tab1 = Me.Factory.CreateRibbonTab
         Me.Group1 = Me.Factory.CreateRibbonGroup
+        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
         Me.Button1 = Me.Factory.CreateRibbonButton
         Me.btnAvisoMail2 = Me.Factory.CreateRibbonButton
+        Me.SplitButton1 = Me.Factory.CreateRibbonSplitButton
+        Me.btnVollmachten = Me.Factory.CreateRibbonButton
+        Me.btnVertraege = Me.Factory.CreateRibbonButton
+        Me.btnGestellungsgarantien = Me.Factory.CreateRibbonButton
         Me.btnInfo = Me.Factory.CreateRibbonButton
         Me.btnUnsichtbar = Me.Factory.CreateRibbonButton
-        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
         Me.Tab1.SuspendLayout()
         Me.Group1.SuspendLayout()
         Me.SuspendLayout()
@@ -64,11 +68,17 @@
         '
         Me.Group1.Items.Add(Me.Button1)
         Me.Group1.Items.Add(Me.btnAvisoMail2)
+        Me.Group1.Items.Add(Me.SplitButton1)
         Me.Group1.Items.Add(Me.btnInfo)
         Me.Group1.Items.Add(Me.btnUnsichtbar)
         Me.Group1.Label = "AVISO"
         Me.Group1.Name = "Group1"
         '
+        'NotifyIcon1
+        '
+        Me.NotifyIcon1.Text = "NotifyIcon1"
+        Me.NotifyIcon1.Visible = True
+        '
         'Button1
         '
         Me.Button1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
@@ -85,6 +95,34 @@
         Me.btnAvisoMail2.Name = "btnAvisoMail2"
         Me.btnAvisoMail2.ShowImage = True
         '
+        'SplitButton1
+        '
+        Me.SplitButton1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
+        Me.SplitButton1.Image = Global.VERAGAddIn.My.Resources.Resources.pdf
+        Me.SplitButton1.Items.Add(Me.btnVollmachten)
+        Me.SplitButton1.Items.Add(Me.btnVertraege)
+        Me.SplitButton1.Items.Add(Me.btnGestellungsgarantien)
+        Me.SplitButton1.Label = "Formulare anhängen"
+        Me.SplitButton1.Name = "SplitButton1"
+        '
+        'btnVollmachten
+        '
+        Me.btnVollmachten.Label = "Vollmachten"
+        Me.btnVollmachten.Name = "btnVollmachten"
+        Me.btnVollmachten.ShowImage = True
+        '
+        'btnVertraege
+        '
+        Me.btnVertraege.Label = "Verträge/Unterlagen"
+        Me.btnVertraege.Name = "btnVertraege"
+        Me.btnVertraege.ShowImage = True
+        '
+        'btnGestellungsgarantien
+        '
+        Me.btnGestellungsgarantien.Label = "Gestellungsgarantien"
+        Me.btnGestellungsgarantien.Name = "btnGestellungsgarantien"
+        Me.btnGestellungsgarantien.ShowImage = True
+        '
         'btnInfo
         '
         Me.btnInfo.Label = "?"
@@ -96,11 +134,6 @@
         Me.btnUnsichtbar.Name = "btnUnsichtbar"
         Me.btnUnsichtbar.Visible = False
         '
-        'NotifyIcon1
-        '
-        Me.NotifyIcon1.Text = "NotifyIcon1"
-        Me.NotifyIcon1.Visible = True
-        '
         'rbnMailItem
         '
         Me.Name = "rbnMailItem"
@@ -123,6 +156,10 @@
     Friend WithEvents btnInfo As Microsoft.Office.Tools.Ribbon.RibbonButton
     Friend WithEvents NotifyIcon1 As Windows.Forms.NotifyIcon
     Friend WithEvents btnUnsichtbar As Microsoft.Office.Tools.Ribbon.RibbonButton
+    Friend WithEvents SplitButton1 As Microsoft.Office.Tools.Ribbon.RibbonSplitButton
+    Friend WithEvents btnVollmachten As Microsoft.Office.Tools.Ribbon.RibbonButton
+    Friend WithEvents btnVertraege As Microsoft.Office.Tools.Ribbon.RibbonButton
+    Friend WithEvents btnGestellungsgarantien As Microsoft.Office.Tools.Ribbon.RibbonButton
 End Class
 
 Partial Class ThisRibbonCollection