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

VERAGAddIn/VERAGAddIn.vbproj

@@ -36,7 +36,7 @@
     <PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl>
     <InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
     <TargetCulture>de</TargetCulture>
-    <ApplicationVersion>1.0.1.100</ApplicationVersion>
+    <ApplicationVersion>1.0.1.102</ApplicationVersion>
     <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
     <UpdateEnabled>true</UpdateEnabled>
     <UpdateInterval>0</UpdateInterval>

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

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

VERAGAddIn/rbnVERAG.vb

@@ -84,7 +84,7 @@ Public Class VERAGRibbon
         If connection.getValueTxtBySql("SELECT 1", "FMZOLL") = 1 Then
             Return True
         Else
-            MsgBox("ACHTUNG: Server nicht erreichbar!" & vbCrLf & "VERAG ADD In wird beendet")
+            MsgBox("ACHTUNG: Server nicht erreichbar!" & vbCrLf & "VERAG Addin wird beendet")
             Return False
         End If