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

2
VERAGAddIn/VERAGAddIn.vbproj
View File

@@ -36,7 +36,7 @@
<PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl> <PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl>
<InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl> <InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
<TargetCulture>de</TargetCulture> <TargetCulture>de</TargetCulture>
<ApplicationVersion>1.0.1.93</ApplicationVersion> <ApplicationVersion>1.0.1.96</ApplicationVersion>
<AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision> <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
<UpdateEnabled>true</UpdateEnabled> <UpdateEnabled>true</UpdateEnabled>
<UpdateInterval>0</UpdateInterval> <UpdateInterval>0</UpdateInterval>

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 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=""http://web01.ekol.com/documentservice/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
@@ -492,7 +492,7 @@ 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=""http://web01.ekol.com/documentservice/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}
@@ -502,7 +502,7 @@ 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 = ("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") Dim TMP_PATH = GetTempFilePathWithExtension(".pdf")
My.Computer.Network.DownloadFile(link, TMP_PATH) My.Computer.Network.DownloadFile(link, TMP_PATH)