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

Aviso und SDL Update

Browse Source
This commit is contained in:
ms
2021-02-03 13:41:18 +01:00
parent b6e7d634b7
commit 19aff8dd13
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAGAddIn/rbnVERAG.vb
View File

@@ -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)