Uta, Mailsender

initATLASAufschubkonten/frmStartOptions.vb

@@ -342,7 +342,7 @@ Public Class frmStartOptions
 
                 If (parameter.Count - 1) >= 3 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
 
-                    'mdm_mail_attach %file% %subject% %datetimereceived% %from% -  testsubject test@uta.com"
+                    'mdm_mail_attach %file% %subject% %datetimereceived% %from%"
 
                     pfad = parameter(2)
                     betreff = parameter(3)
@@ -350,7 +350,7 @@ Public Class frmStartOptions
 
                     VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
 
-                    If von.Contains("@uta.com") Or betreff.ToLower.Contains("UTA") Then
+                    If von.Contains("ebilling@uta.com") Then
                         '---------------------UTA----------------------
                         importFileFromUTAMailAnhang(pfad, betreff)
                     End If
@@ -4692,7 +4692,14 @@ Public Class frmStartOptions
         Else
 
             Dim totalPages = 1
-            Dim batchrequestNr = IIf(txtBatchNr.Text <> "", CInt(txtBatchNr.Text), CInt(cbxMSEBatchNr._value))
+            Dim batchrequestNr As Integer
+
+            If txtBatchNr.Text <> "" Then
+                batchrequestNr = CInt(txtBatchNr.Text)
+            Else
+                batchrequestNr = CInt(cbxMSEBatchNr._value)
+            End If
+
 
             fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, 0)
             If fehler <> "" Then
@@ -4714,8 +4721,6 @@ Public Class frmStartOptions
                     End If
                 Next
 
-
-
             End If
 
             MsgBox("DONE")