From da8c599ec30b5606c51988462bf0bb4065ac1b5e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 9 Apr 2026 13:01:47 +0200 Subject: [PATCH] gesamtsicherheiten, Ref, Mail, etc. --- VERAGAddIn/VERAGAddIn.vbproj | 7 +++--- VERAGAddIn/app.config | 2 +- VERAGAddIn/rbnMailItem.Designer.vb | 38 +++++++++++++++--------------- VERAGAddIn/rbnVERAG.vb | 4 ++-- 4 files changed, 26 insertions(+), 25 deletions(-) diff --git a/VERAGAddIn/VERAGAddIn.vbproj b/VERAGAddIn/VERAGAddIn.vbproj index f200e43..bec699a 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.139 + 1.0.1.140 true true 0 @@ -392,10 +392,11 @@ true - AL20231110.pfx + + - 75156A186435E8542612CE6E7E26CA9FCE0A5BAF + D21E170FE10FFCC8532FBDEFB75A35DB90661CC0 false diff --git a/VERAGAddIn/app.config b/VERAGAddIn/app.config index ac224fb..c96acaf 100644 --- a/VERAGAddIn/app.config +++ b/VERAGAddIn/app.config @@ -52,7 +52,7 @@ - + diff --git a/VERAGAddIn/rbnMailItem.Designer.vb b/VERAGAddIn/rbnMailItem.Designer.vb index 093d550..e892df6 100644 --- a/VERAGAddIn/rbnMailItem.Designer.vb +++ b/VERAGAddIn/rbnMailItem.Designer.vb @@ -44,9 +44,6 @@ 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.btnInfo = Me.Factory.CreateRibbonButton - Me.btnUnsichtbar = Me.Factory.CreateRibbonButton Me.btnAVISOUnleashed = Me.Factory.CreateRibbonButton Me.Button1 = Me.Factory.CreateRibbonButton Me.btnAvisoMail2 = Me.Factory.CreateRibbonButton @@ -54,6 +51,9 @@ 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() @@ -76,22 +76,6 @@ Me.Group1.Label = "AVISO" Me.Group1.Name = "Group1" ' - 'NotifyIcon1 - ' - Me.NotifyIcon1.Text = "NotifyIcon1" - Me.NotifyIcon1.Visible = True - ' - 'btnInfo - ' - Me.btnInfo.Label = "?" - Me.btnInfo.Name = "btnInfo" - ' - 'btnUnsichtbar - ' - Me.btnUnsichtbar.Label = "i" - Me.btnUnsichtbar.Name = "btnUnsichtbar" - Me.btnUnsichtbar.Visible = False - ' 'btnAVISOUnleashed ' Me.btnAVISOUnleashed.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge @@ -145,6 +129,22 @@ Me.btnGestellungsgarantien.Name = "btnGestellungsgarantien" Me.btnGestellungsgarantien.ShowImage = True ' + 'btnInfo + ' + Me.btnInfo.Label = "?" + Me.btnInfo.Name = "btnInfo" + ' + 'btnUnsichtbar + ' + Me.btnUnsichtbar.Label = "i" + Me.btnUnsichtbar.Name = "btnUnsichtbar" + Me.btnUnsichtbar.Visible = False + ' + 'NotifyIcon1 + ' + Me.NotifyIcon1.Text = "NotifyIcon1" + Me.NotifyIcon1.Visible = True + ' 'rbnMailItem ' Me.Name = "rbnMailItem" diff --git a/VERAGAddIn/rbnVERAG.vb b/VERAGAddIn/rbnVERAG.vb index d2c350c..000e1d6 100644 --- a/VERAGAddIn/rbnVERAG.vb +++ b/VERAGAddIn/rbnVERAG.vb @@ -801,7 +801,7 @@ Public Class AVISO_Mail_Functions If String.IsNullOrWhiteSpace(linkRaw) Then Continue For - If linkRaw.Contains("dfdsdocumentservice/download") Then + If linkRaw.Contains("dfdsdocumentservice/download") Or linkRaw.Contains("quadronet.dfds.com/link") Then Dim link As String = linkRaw.Trim() @@ -825,7 +825,7 @@ Public Class AVISO_Mail_Functions Dim filename As String = sendungsNr & "_" & counter & If(descr <> "", "_" & descr, "") - Dim file = VERAG_PROG_ALLGEMEIN.cFormularManager.getFile_FromURLStream(link, filename,, False) + Dim file = VERAG_PROG_ALLGEMEIN.cFormularManager.getFile_FromURLStream_NEW(link, filename,, False) If IO.File.Exists(file) Then ATT.Add(file)