From 19aff8dd13a1a5774e94e3ebb56028d92e604845 Mon Sep 17 00:00:00 2001
From: ms <ms@verag.ag>
Date: Wed, 3 Feb 2021 13:41:18 +0100
Subject: [PATCH] Aviso und SDL Update

---
 VERAGAddIn/VERAGAddIn.vbproj | 2 +-
 VERAGAddIn/rbnVERAG.vb       | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/VERAGAddIn/VERAGAddIn.vbproj b/VERAGAddIn/VERAGAddIn.vbproj
index 8da183a..1a0e9a9 100644
--- a/VERAGAddIn/VERAGAddIn.vbproj
+++ b/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.93</ApplicationVersion>
+    <ApplicationVersion>1.0.1.96</ApplicationVersion>
     <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
     <UpdateEnabled>true</UpdateEnabled>
     <UpdateInterval>0</UpdateInterval>
diff --git a/VERAGAddIn/rbnVERAG.vb b/VERAGAddIn/rbnVERAG.vb
index 59409d1..40b4d30 100644
--- a/VERAGAddIn/rbnVERAG.vb
+++ b/VERAGAddIn/rbnVERAG.vb
@@ -476,7 +476,7 @@ Public Class AVISO_Mail_Functions
     Shared Function isMail_EKOL(mailItem As Outlook.MailItem) As Boolean
         Try
             If mailItem IsNot Nothing Then
-                Dim srch As String = "<a href=""http://web01.ekol.com/documentservice/download/"
+                Dim srch As String = "<a href=""https://web01.ekol.com/documentservice/download/"
                 Return mailItem.HTMLBody.ToString.Contains(srch)
             End If
         Catch ex As Exception
@@ -492,7 +492,7 @@ Public Class AVISO_Mail_Functions
             If mailItem Is Nothing Then Return ATT
 
             Dim html = mailItem.HTMLBody
-            Dim srch As String = "<a href=""http://web01.ekol.com/documentservice/download/"
+            Dim srch As String = "<a href=""https://web01.ekol.com/documentservice/download/"
             If html.ToString.Contains(srch) Then
 
                 Dim myDelims As String() = New String() {srch}
@@ -502,7 +502,7 @@ Public Class AVISO_Mail_Functions
                 Dim cnt = 0
                 For Each l In sp
                     If cnt > 0 AndAlso l.Contains(""">") Then ' ENDE
-                        Dim link = ("http://web01.ekol.com/documentservice/download/" & l.ToString.Substring(0, l.ToString.IndexOf(""">")))
+                        Dim link = ("https://web01.ekol.com/documentservice/download/" & l.ToString.Substring(0, l.ToString.IndexOf(""">")))
 
                         Dim TMP_PATH = GetTempFilePathWithExtension(".pdf")
                         My.Computer.Network.DownloadFile(link, TMP_PATH)