edv/VERAGAddin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EKOL Link

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-05-26 07:38:23 +02:00
parent 795aa72ac6
commit 389575ff56
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
VERAGAddIn/rbnVERAG.vb
View File

@@ -572,7 +572,8 @@ Public Class AVISO_Mail_Functions
Shared Function isMail_EKOL(mailItem As Outlook.MailItem) As Boolean Shared Function isMail_EKOL(mailItem As Outlook.MailItem) As Boolean
Try Try
If mailItem IsNot Nothing Then 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) Return mailItem.HTMLBody.ToString.Contains(srch)
End If End If
Catch ex As Exception Catch ex As Exception
@@ -600,7 +601,8 @@ Public Class AVISO_Mail_Functions
If mailItem Is Nothing Then Return ATT If mailItem Is Nothing Then Return ATT
Dim html = mailItem.HTMLBody 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 If html.ToString.Contains(srch) Then
Dim myDelims As String() = New String() {srch} Dim myDelims As String() = New String() {srch}
@@ -610,7 +612,8 @@ Public Class AVISO_Mail_Functions
Dim cnt = 0 Dim cnt = 0
For Each l In sp For Each l In sp
If cnt > 0 AndAlso l.Contains(""">") Then ' ENDE 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! '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 System.Net.ServicePointManager.SecurityProtocol = System.Net.ServicePointManager.SecurityProtocol Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12