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

so

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-07-04 13:57:50 +02:00
parent 20ed7a8730
commit 6420279517
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -316,10 +316,13 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
If von.Contains("@q8.com") Or betreff.Contains("IDSPRD: Platts Price Report") Then If von.Contains("@q8.com") Or betreff.Contains("IDSPRD: Platts Price Report") Then
importFileFromIDSMailAnhang(pfad, betreff) '---------------------IDS----------------------
'importFileFromIDSMailAnhang(pfad, betreff)
ElseIf von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then ElseIf von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then
importFileFromMICMailAnhang(pfad, betreff) '---------------------MIC----------------------
'importFileFromMICMailAnhang(pfad, betreff)
Else Else
'---------------------DAKOSY----------------------
importFileFromDyMailAnhang(pfad, betreff) importFileFromDyMailAnhang(pfad, betreff)
End If End If
End If End If