From 389575ff56cd2a253cb08377fceaddac9b05ae31 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Mon, 26 May 2025 07:38:23 +0200
Subject: [PATCH] EKOL Link

---
 VERAGAddIn/rbnVERAG.vb | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/VERAGAddIn/rbnVERAG.vb b/VERAGAddIn/rbnVERAG.vb
index c082f9f..1886f89 100644
--- a/VERAGAddIn/rbnVERAG.vb
+++ b/VERAGAddIn/rbnVERAG.vb
@@ -572,7 +572,8 @@ 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=""https://web01.ekol.com/documentservice/download/"
+                Dim srch As String = "<a href=""https://web01.ekoltransport.com.tr/dfdsdocumentservice/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
@@ -600,7 +601,8 @@ Public Class AVISO_Mail_Functions
             If mailItem Is Nothing Then Return ATT
 
             Dim html = mailItem.HTMLBody
-            Dim srch As String = "<a href=""https://web01.ekol.com/documentservice/download/"
+            Dim srch As String = "<a href=""https://web01.ekoltransport.com.tr/dfdsdocumentservice/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}
@@ -610,7 +612,8 @@ Public Class AVISO_Mail_Functions
                 Dim cnt = 0
                 For Each l In sp
                     If cnt > 0 AndAlso l.Contains(""">") Then ' ENDE
-                        Dim link = ("https://web01.ekol.com/documentservice/download/" & l.ToString.Substring(0, l.ToString.IndexOf(""">")))
+                        Dim link = ("https://web01.ekoltransport.com.tr/dfdsdocumentservice/download/" & l.ToString.Substring(0, l.ToString.IndexOf(""">")))
+                        'Dim link = ("https://web01.ekol.com/documentservice/download/" & l.ToString.Substring(0, l.ToString.IndexOf(""">")))
 
                         'Ansonten stüzt der Webservice-Aufruf ab! ABER -> For .NET 4.7 or later, the System.Net.ServicePointManager.SecurityProtocol should not be set manualy!
                         System.Net.ServicePointManager.SecurityProtocol = System.Net.ServicePointManager.SecurityProtocol Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12