Anhänge öffnen

VERAGAddIn/rbnVERAG.vb

@@ -167,7 +167,9 @@ Public Class AVISO_Mail_Functions
 
                 If isMail_Barsan(mailItem) Then
                     If vbYes = MsgBox("Barsan-Anhänge laden?", vbYesNoCancel) Then
+
                         getATT_Barsan(mailItem, ATTACHMENTS_LIST)
+
                     End If
                 End If
 
@@ -648,6 +650,7 @@ Public Class AVISO_Mail_Functions
 
 
     Shared Function getATT_Barsan(mailItem As Outlook.MailItem, Optional ByRef ATT As List(Of String) = Nothing, Optional ByRef LKW_Nr As String = "", Optional ByRef RefNr As String = "", Optional ByRef INFO As String = "") As List(Of String)
+
         If ATT Is Nothing Then ATT = New List(Of String)
         Try
 
@@ -664,7 +667,7 @@ Public Class AVISO_Mail_Functions
                 ' Dim sp = html.ToString.Split(srch.ToString)
                 Dim cnt = 0
                 For Each l In sp
-                    If cnt > 0 AndAlso l.Contains(""">") AndAlso cnt < 5 Then ' ENDE
+                    If cnt > 0 AndAlso l.Contains(""">") Then ' ENDE
                         Dim link = ("https://portal.barsan.com/Dokuman/DokumanGoster.aspx" & l.ToString.Substring(0, l.ToString.IndexOf(""">")))
 
 
@@ -676,6 +679,7 @@ Public Class AVISO_Mail_Functions
 
                             If IO.File.Exists(pdf) Then
                                 ATT.Add(pdf)
+                                Return ATT
                             End If
                         End If