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

Bugfix

Browse Source
This commit is contained in:
d.breimaier
2024-01-25 16:40:55 +01:00
parent cb395acdec
commit e2bb75972c
8 changed files with 63 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
VERAGAddIn/rbnVERAG.vb
View File

@@ -20,6 +20,9 @@ Imports System.Diagnostics
Imports VERAG_PROG_ALLGEMEIN.Kleinma.Controls
Imports System.Data.Odbc
Imports System.Reflection
Imports System.Diagnostics.Eventing
Imports System.Net.WebRequestMethods
Imports System.Xml
Public Class VERAGRibbon
Dim LOGIN_OK = False
@@ -44,7 +47,7 @@ Public Class VERAGRibbon
Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
cAllgemein.TESTSYSTEM = False
'cAllgemein.TESTSYSTEM = True
cAllgemein.TESTSYSTEM = True
LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
End Sub
@@ -123,6 +126,7 @@ Public Class AVISO_Mail_Functions
addMailToAviso(mailItem, sender)
Else
MsgBox("Die markierte Email kann nicht verarbeitet werden!" & vbNewLine & "Bitte andere Email verwenden.")
End If
End If
@@ -612,7 +616,7 @@ 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(""">") - 1))
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
@@ -622,7 +626,7 @@ Public Class AVISO_Mail_Functions
My.Computer.Network.DownloadFile(link, TMP_PATH)
If IO.File.Exists(TMP_PATH) Then
If IO.File.Exists(TMP_PATH) AndAlso TMP_PATH.Contains(".pdf") Then
ATT.Add(TMP_PATH)
End If