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

Schulungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-07-18 09:26:59 +02:00
parent 565e1f9942
commit 699f867e73
5 changed files with 100 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
MailSender/MAILSender.vb
View File

@@ -67,8 +67,8 @@ Module Mail
'Exit Sub
PARAM = "THYSSENKRUPP_AUSWERTUNG"
PARAM = "RED_BULL"
'PARAM = "THYSSENKRUPP_AUSWERTUNG"
'PARAM = "RED_BULL"
'------------------------------------------------------------------------------------
' PARAM = "NCTSLIST_TOBB"
@@ -200,7 +200,7 @@ Module Mail
Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1)
Dim KdNr As String = "756313"
System.Console.WriteLine("OPTION erkannt: RED_BULL _ Erstellt eine monaltiche Auswertung der DAKSOY-Abfertigungen für RED_BULL.")
System.Console.WriteLine("OPTION erkannt: RED_BULL _ Erstellt eine monaltiche Auswertung der DAKSOY-Abfertigungen für RED_BULL/Alpha Tauri.")
System.Console.WriteLine("Auswertung Details gestartet...")
If SendEmail_RED_BULL("customs.documents.ata@redbull.com", KdNr, von, bis) Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
@@ -537,7 +537,7 @@ Module Mail
Dim anhenge As New List(Of String)
anhenge.Add(excel)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mailto, Subject, Body,,, False,, "d.breimaier@verag.ag", anhenge) Then
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mailto, Subject, Body,,, False,, "d.breimaier@verag.ag;schulung@verag.ag", anhenge) Then
System.Console.WriteLine("E-Mail gesendet.")
System.Console.WriteLine("Erfolgreich!")
Else