From 9252a2adc80be5ee747edb2efbab74f9f78db48e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 20 Jun 2023 15:00:40 +0200 Subject: [PATCH] =?UTF-8?q?Formular=20einf=C3=BCgen=20nun=20auch=20bei=20g?= =?UTF-8?q?e=C3=B6ffneter=20Mail=20m=C3=B6glich.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- VERAGAddIn/VERAGAddIn.vbproj | 2 +- VERAGAddIn/rbnMailItem.Designer.vb | 49 ++++++++++++++++++++++++++---- VERAGAddIn/rbnMailItem.vb | 13 ++++++++ VERAGAddIn/rbnVERAG.vb | 2 +- 4 files changed, 58 insertions(+), 8 deletions(-) diff --git a/VERAGAddIn/VERAGAddIn.vbproj b/VERAGAddIn/VERAGAddIn.vbproj index 852f951..7c15e41 100644 --- a/VERAGAddIn/VERAGAddIn.vbproj +++ b/VERAGAddIn/VERAGAddIn.vbproj @@ -36,7 +36,7 @@ \\ftps.verag.ag\g\ftp\programme\VERAGAddin\ http://ftps.verag.ag/VERAGAddin/ de - 1.0.1.100 + 1.0.1.102 true true 0 diff --git a/VERAGAddIn/rbnMailItem.Designer.vb b/VERAGAddIn/rbnMailItem.Designer.vb index fc0836f..65c2238 100644 --- a/VERAGAddIn/rbnMailItem.Designer.vb +++ b/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 diff --git a/VERAGAddIn/rbnMailItem.vb b/VERAGAddIn/rbnMailItem.vb index 3eb0567..369cd0b 100644 --- a/VERAGAddIn/rbnMailItem.vb +++ b/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 diff --git a/VERAGAddIn/rbnVERAG.vb b/VERAGAddIn/rbnVERAG.vb index f743ce8..e7ff14e 100644 --- a/VERAGAddIn/rbnVERAG.vb +++ b/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