From 5101c8ca308cdfb820a3668823bf336714efa2a3 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 24 Apr 2026 17:32:16 +0200 Subject: [PATCH] =?UTF-8?q?div.=20=C3=84nderungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- initATLASAufschubkonten/frmStartOptions.vb | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index ce31e66..30b6424 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -408,12 +408,13 @@ Public Class frmStartOptions VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - If von.Contains("ebilling@uta.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Then + If (von.Contains("ebilling@uta.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag")) AndAlso betreff.ToString.ToLower.Contains("uta") Then '---------------------UTA---------------------- importFileFromUTAMailAnhang(pfad, betreff) - ElseIf von.Contains("ids.de@q8.com") Or von.Contains("@ibd.Q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Or von.Contains("q8truck.nl@q8.com") Then + ElseIf von.Contains("ids.de@q8.com") Or von.Contains("@ibd.Q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Or von.Contains("q8truck.nl@q8.com") Or von.Contains("df@verag.ag") Then '---------------------IDS---------------------- + importFileFromIDSMailAnhang(pfad, betreff, PARAM) End If @@ -2005,17 +2006,25 @@ Public Class frmStartOptions End If - ElseIf betreff.contains("Q8Truck KSeF") Then + ElseIf betreff.contains("Q8Truck") AndAlso type = "mdm_mail_attach" Then + 'Bsp: + 'ExportJob E-Invoice:processing mail: F:\vb.net\RoutineManager2\RoutineManager.exe mdm_mail_attach " + 'pfad = F:\eee_e-invoice\IV_707156_522653_CO_OBO_0060011910_GEOB00080669-PL_EI.pdf" + 'betreff = "WG: Q8Truck KSeF, 0060011910 - GEOB00080669/PL" "24.04.2026 09:37:03" " + 'von = d.breimaier@verag.ag" Dim ids As New cIDS ids.initImportPfade("IDS") Dim Zielpfad = ids.VERARBEITUNG_PFAD Dim found = False - betreff = betreff.replace("WG: ", "") - betreff = betreff.replace("FW: ", "") - moveFile(pfad, Zielpfad) + + betreff = betreff.replace("WG: ", "") + betreff = betreff.replace("FW: ", "") + moveFile(pfad, Zielpfad) + + End If