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

Mailsender

Browse Source
This commit is contained in:
d.breimaier
2024-11-21 17:04:51 +01:00
parent 2503800d03
commit 83c60e4a2f
1 changed files with 4 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
MailSender/MAILSender.vb
View File

@@ -1,14 +1,10 @@
Imports System.Net.Mail
Imports System.Data.SqlClient
Imports System.IO
Imports System.Data.SqlClient
Imports ClosedXML.Excel
Imports DocumentFormat
Imports System.Net
Imports System.Net.Mail
Imports ClosedXML.Excel
Imports DAKOSY_Worker
Imports System.Reflection
Imports VERAG_PROG_ALLGEMEIN
Imports com.sun.xml.internal.rngom
Imports DocumentFormat.OpenXml.Bibliography
Module Mail
Dim sPath As String = System.AppDomain.CurrentDomain.BaseDirectory
@@ -39,8 +35,6 @@ Module Mail
' Dim o As String = getOption()
'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("ATILLA/VERAG", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("01.08.2021 00:00:00"), CDate("12.08.2021 23:59:59"), True)
'Dim _list As New List(Of String) : _list.Add(_erg)
'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & "ATILLA/VERAG", "*Automatic generated e-mail*",,,, "", "al@verag.ag", _list)
@@ -56,23 +50,6 @@ Module Mail
'Exit Sub
'SendEmail_QS_Auswertung("01.01.2021", "31.01.2021")
'SendEmail_QS_Auswertung("01.02.2021", "28.02.2021")
'SendEmail_QS_Auswertung("01.03.2021", "31.03.2021")
'SendEmail_QS_Auswertung("01.04.2021", "30.04.2021")
'SendEmail_QS_Auswertung("01.05.2021", "31.05.2021")
'SendEmail_QS_Auswertung("01.06.2021", "30.06.2021")
'SendEmail_QS_Auswertung("01.07.2021", "31.07.2021")
'Threading.Thread.Sleep(165000)
'Exit Sub
'PARAM = "THYSSENKRUPP_AUSWERTUNG"
'PARAM = "JAHRESABRECHNUNG AG-ZS"
PARAM = ""
@@ -83,15 +60,6 @@ Module Mail
'------------------------------------------------------------------------------------
'PARAM = "VW_DHL"
'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("VERAG/ATILLA", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("07.06.2021 00:00:00"), CDate("07.06.2021 23:59:59"), True)
'Dim _list As New List(Of String) : _list.Add(_erg)
'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & "VERAG/ATILLA test", "*Automatic generated e-mail*",,,, , , _list)
'Exit Sub
' sendTOBB("VERAG/ATILLA", Now.AddDays(-6), Now.AddDays(-1))
If PARAM = "" Then
System.Console.WriteLine("OPTION nicht erkannt!")
Exit Sub
@@ -107,26 +75,6 @@ Module Mail
System.Console.WriteLine("MailSender konnte nicht gestartet werden, da eine Instanz noch läuft...")
Else
'Select Case firma
' Case "ATILLA"
' Msg.Subject = "Kunden TR - Offene Rechnungen - ATILLA"
' ' Msg.To.Add("mestan@verag.ag")
' Msg.To.Add("verimex@verimex360.com")
' Msg.Bcc.Add("al@verag.ag")
' Case "IMEX"
' Msg.Subject = "Kunden TR - Offene Rechnungen - IMEX"
' Msg.Bcc.Add("al@verag.ag")
' Msg.To.Add("mario.hoefer@imex-group.at")
' Msg.CC.Add("viktoria.leirich@imex-group.at")
' Msg.CC.Add("verimex@verimex360.com")
' Case "VERAG"
' Msg.Subject = "Kunden TR - Offene Rechnungen"
' Msg.To.Add("mestan@verag.ag")
' Msg.CC.Add("verimex@verimex360.com")
' Msg.Bcc.Add("al@verag.ag")
' End Select
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dtParam As DataTable = SQL.loadDgvBySql("select * from tblMailsender where ms_param ='" & PARAM & "' and ms_aktiv = 1", "ADMIN")
@@ -508,7 +456,7 @@ Module Mail
Case "UNISPED" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;arda.bicakli@tobbund.com.tr;mert.koseoglu@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "Katharina.Haas@unisped.at;Sabine.Muehlboeck@unisped.at;Ernst.Stolzlechner@unisped.at", "al@verag.ag", _list)
End Select
Else
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailto, Subject & addbetreff, Body,,, False, cc, bcc, _list)
bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailto, Subject & addbetreff, Body,,, False, cc, bcc, _list)
End If