addIn

VERAGAddIn/rbnVERAG.vb

@@ -583,6 +583,9 @@ Public Class AVISO_Mail_Functions
     End Function
 
     Shared Function isMail_Barsan(mailItem As Outlook.MailItem) As Boolean
+        '--------------------- WIRD NICHT MEHR GENUTZT
+        Return False
+        '--------------------- WIRD NICHT MEHR GENUTZT
         Try
             If mailItem IsNot Nothing Then
                 Dim srch As String = "<a href=""https://portal.barsan.com/Dokuman/DokumanGoster.aspx"
@@ -619,13 +622,14 @@ Public Class AVISO_Mail_Functions
                         System.Net.ServicePointManager.SecurityProtocol = System.Net.ServicePointManager.SecurityProtocol Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12
 
                         Dim TMP_PATH = GetTempFilePathWithExtension(".pdf")
+                        Try
+                            My.Computer.Network.DownloadFile(link, TMP_PATH)
+                            If IO.File.Exists(TMP_PATH) AndAlso TMP_PATH.Contains(".pdf") Then
+                                ATT.Add(TMP_PATH)
+                            End If
+                        Catch ex As Exception
 
-                        My.Computer.Network.DownloadFile(link, TMP_PATH)
-
-
-                        If IO.File.Exists(TMP_PATH) AndAlso TMP_PATH.Contains(".pdf") Then
-                            ATT.Add(TMP_PATH)
-                        End If
+                        End Try
 
                     End If
                     cnt += 1