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

Mailsender fix

Browse Source
This commit is contained in:
d.breimaier
2025-08-01 08:45:14 +02:00
parent 429958d2d8
commit 773ccd4162
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
MailSender/MAILSender.vb
View File

@@ -58,7 +58,7 @@ Module Mail
' PARAM = "NCTSLIST_TOBB"
' PARAM = "NCTSLIST_TOBB"
'------------------------------------------------------------------------------------
'PARAM = "ZF_QUARTER"
'PARAM = "TETRAPAK"
If PARAM = "" Then
System.Console.WriteLine("OPTION nicht erkannt!")
@@ -457,7 +457,7 @@ Module Mail
End If
Else
System.Console.WriteLine("OPTION erkannt: TETRA_PACK _ Erstellt eine monatliche Auswertung der DAKSOY/EZOLL-Abfertigungen für TETRAPAK.")
System.Console.WriteLine("OPTION erkannt: TETRA_PAK _ Erstellt eine monatliche Auswertung der DAKSOY/EZOLL-Abfertigungen für TETRAPAK.")
System.Console.WriteLine("Auswertung Details gestartet...")
If SendEmail_Tetrapak("Maria.mendez@tetrapak.com; Andrea.Ronceria@tetrapak.com", von, bis, "DE") AndAlso SendEmail_Tetrapak("Maria.mendez@tetrapak.com;Andrea.Ronceria@tetrapak.com", von, bis, "AT") Then
@@ -1734,6 +1734,8 @@ Module Mail
Subject = "Import Customs Statistics " & Report & " " & von & "-" & bis
Else
Subject = Subject.Replace("%report%", Report)
Subject = Subject.Replace("%von%", von)
Subject = Subject.Replace("%bis%", bis)
Subject = replaceBodyVariable(Subject)
End If
@@ -2982,8 +2984,8 @@ Module Mail
Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr)
System.Console.WriteLine("Vorhandene Datensätze: " & dt.Rows.Count)
Dim excelBez = "TETRAPACK_DE_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & bis.ToShortDateString.Replace(".", "-")
genExcel(dt, excelBez, "TETRAPACK")
Dim excelBez = "TETRAPAK_DE_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & bis.ToShortDateString.Replace(".", "-")
genExcel(dt, excelBez, "TETRAPAK")
Return sPath & excelBez & ".xlsx"
@@ -3023,8 +3025,8 @@ Module Mail
Dim dt As DataTable = sql.loadDgvBySql(sqlstr, "EZOLL")
System.Console.WriteLine("Vorhandene Datensätze: " & dt.Rows.Count)
Dim excelBez = "TETRAPACK_AT_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & bis.ToShortDateString.Replace(".", "-")
genExcel(dt, excelBez, "TETRAPACK")
Dim excelBez = "TETRAPAK_AT_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & bis.ToShortDateString.Replace(".", "-")
genExcel(dt, excelBez, "TETRAPAK")
Return sPath & excelBez & ".xlsx"