mailsender, etc.
This commit is contained in:
@@ -57,7 +57,7 @@ Module Mail
|
||||
|
||||
' PARAM = "MDM_IT_Verguetung"
|
||||
'PARAM = "JAHRESABRECHNUNG AG-ZS"
|
||||
'PARAM = "TETRAPAK"
|
||||
'PARAM = ""
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------
|
||||
@@ -275,6 +275,84 @@ Module Mail
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Case "KANADEVIA_DETAIL"
|
||||
|
||||
Dim von = CDate("01.01." & Now.Year)
|
||||
Dim bis As Date = New Date(Now.Year, Now.Month, 1).AddDays(-1)
|
||||
|
||||
Dim mailTo = "Julie.Garton@kanadevia-inova.com; Mark.Stauffer@kanadevia-inova.com;Sevda.Aksoy@kanadevia-inova.com; Iryna.Hauser@kanadevia-inova.com"
|
||||
Dim mailToBCC = "ml@verag.ag;al@verag.ag"
|
||||
|
||||
'mailToBCC = "d.breimaier@verag.ag;"
|
||||
'mailTo = "d.breimaier@verag.ag;"
|
||||
|
||||
|
||||
Dim ListOfKdNr As New List(Of Integer)
|
||||
Dim Body As String = "Please find attached the reports on customs declarations for the period from " & von.ToShortDateString & " to " & bis.ToShortDateString & "." &
|
||||
"<br><br>Generated on: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString &
|
||||
"<br><br><br>This is an automatically generated email. Please do not reply to this email." &
|
||||
"<br><br>VERAG SPEDITION AG"
|
||||
|
||||
ListOfKdNr.Add(770931)
|
||||
ListOfKdNr.Add(772819)
|
||||
ListOfKdNr.Add(773157)
|
||||
ListOfKdNr.Add(773143)
|
||||
|
||||
For Each kdNr As Integer In ListOfKdNr
|
||||
|
||||
Dim RPT As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchReport
|
||||
|
||||
System.Console.WriteLine("Auswertung " & PARAM & " gestartet...")
|
||||
|
||||
If SendEmail_KANADEVIA(mailTo, RPT.RunReport_VERAG_ZA_DETAIL(kdNr, von, bis, , False,, False), von, bis,, mailToBCC, PARAM, Body) Then
|
||||
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Case "KANADEVIA_GENERAL"
|
||||
|
||||
Dim von = CDate("01.01." & Now.Year)
|
||||
Dim bis As Date = New Date(Now.Year, Now.Month, 1).AddDays(-1)
|
||||
|
||||
Dim mailTo = "Julie.Garton@kanadevia-inova.com; Mark.Stauffer@kanadevia-inova.com;Sevda.Aksoy@kanadevia-inova.com; Iryna.Hauser@kanadevia-inova.com;"
|
||||
Dim mailToBCC = "ml@verag.ag;al@verag.ag;"
|
||||
|
||||
'mailToBCC = "d.breimaier@verag.ag;"
|
||||
'mailTo = "d.breimaier@verag.ag;"
|
||||
|
||||
|
||||
Dim ListOfKdNr As New List(Of Integer)
|
||||
Dim Body As String = "Please find attached the reports on customs declarations for the period from " & von.ToShortDateString & " to " & bis.ToShortDateString & "." &
|
||||
"<br><br>Generated on: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString &
|
||||
"<br><br><br>This is an automatically generated email. Please do not reply to this email." &
|
||||
"<br><br>VERAG SPEDITION AG"
|
||||
|
||||
|
||||
ListOfKdNr.Add(770931)
|
||||
ListOfKdNr.Add(772819)
|
||||
ListOfKdNr.Add(773157)
|
||||
ListOfKdNr.Add(773143)
|
||||
|
||||
For Each kdNr As Integer In ListOfKdNr
|
||||
|
||||
Dim RPT As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchReport
|
||||
System.Console.WriteLine("Auswertung " & PARAM & " gestartet...")
|
||||
|
||||
If SendEmail_KANADEVIA(mailTo, RPT.RunReport_VERAG_ZA_GENERAL(kdNr, von, bis, , False, True,, False), von, bis,, mailToBCC, PARAM, Body) Then
|
||||
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Case "ZF" 'umgebaut auf neue Mailsender-Logik
|
||||
Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year)
|
||||
Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1)
|
||||
@@ -328,7 +406,7 @@ Module Mail
|
||||
|
||||
Else
|
||||
|
||||
System.Console.WriteLine("OPTION erkannt: ZF _ Erstellt eine monaltiche Auswertung der Abfertigungen für ZF.")
|
||||
System.Console.WriteLine("OPTION erkannt: ZF _ Erstellt eine monatliche Auswertung der Abfertigungen für ZF.")
|
||||
System.Console.WriteLine("Auswertung Details gestartet...")
|
||||
|
||||
If SendEmail_ZF("teresa.elster@zf.com;manfred.lindbichler@zf.com;walter.gnadlinger@zf.com", KdNr, von, bis, "monthly") Then
|
||||
@@ -1019,6 +1097,48 @@ Module Mail
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Function SendEmail_KANADEVIA(Mailto As String, Path As String, von As Date, bis As Date, Optional cc As String = "", Optional bcc As String = "", Optional Subject As String = "", Optional Body As String = "") As Boolean
|
||||
Try
|
||||
Dim excel As String = Path
|
||||
System.Console.WriteLine("EXCEL erstellt...")
|
||||
If excel <> "" And Not excel.StartsWith("ERROR: ") Then
|
||||
|
||||
System.Console.WriteLine("Sende E-Mail...")
|
||||
|
||||
If Subject = "" Then
|
||||
Subject = "Auswertungen KANADEVIA"
|
||||
End If
|
||||
|
||||
If Body = "" Then
|
||||
Body = "Anbei befinden sich die Auswertungen Zollanmeldungen von " & von.ToShortDateString & " bis " & bis.ToShortDateString & "." &
|
||||
"<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString &
|
||||
"<br><br><br>Automatisch generiertes E-Mail. Bitte Antworten Sie nicht an dieses E-Mail." &
|
||||
"<br><br>VERAG SPEDITION AG"
|
||||
Else
|
||||
Body = replaceBodyVariable(Body, von, bis)
|
||||
End If
|
||||
|
||||
Dim anhenge As New List(Of String)
|
||||
anhenge.Add(excel)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mailto, Subject, Body, getAbsenderEmail(),, False, cc, bcc, anhenge) Then
|
||||
System.Console.WriteLine("E-Mail gesendet.")
|
||||
System.Console.WriteLine("Erfolgreich!")
|
||||
Else
|
||||
System.Console.WriteLine("ERROR BEIM SENDEN DER MAIL!")
|
||||
|
||||
End If
|
||||
|
||||
Return True
|
||||
Else
|
||||
System.Console.WriteLine(excel)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
System.Console.WriteLine(ex.Message & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Function SendEmail_ZF(Mailto As String, KdNr As String, von As Date, bis As Date, Auswertungstyp As String, Optional cc As String = "", Optional bcc As String = "", Optional Subject As String = "", Optional Body As String = "") As Boolean
|
||||
Try
|
||||
Dim excel As String = genEXCEL_ZF(KdNr, von, bis, Auswertungstyp)
|
||||
|
||||
Reference in New Issue
Block a user