Mailsender und startOptions (AMBAR)

MailSender/MAILSender.vb

@@ -5,6 +5,7 @@ Imports ClosedXML.Excel
 Imports DocumentFormat
 Imports System.Net
 Imports DAKOSY_Worker
+Imports System.Reflection
 
 Module Mail
     Dim sPath As String = System.AppDomain.CurrentDomain.BaseDirectory
@@ -70,7 +71,7 @@ Module Mail
 
             'PARAM = "THYSSENKRUPP_AUSWERTUNG"
             'PARAM = "JAHRESABRECHNUNG AG-ZS"
-            'PARAM = "ZF"
+            'PARAM = "AMBAR_Datev_Mailversand_to_HK"
 
             '------------------------------------------------------------------------------------
             '   PARAM = "NCTSLIST_TOBB"
@@ -277,11 +278,14 @@ Module Mail
                         End If
                         System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
 
+                    Case "AMBAR_Datev_Mailversand_to_HK"
+                        System.Console.WriteLine("OPTION erkannt: AMBAR-Datev Versand")
+                        System.Console.WriteLine("Vorgang gestartet...")
+                        SendEmail_AMBARTOHKT()
+                        System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
+
                     Case Else
                         System.Console.WriteLine("OPTION nicht erkannt!")
-
-
-
                 End Select
 
             End If
@@ -1217,6 +1221,80 @@ Module Mail
         Return False
     End Function
 
+    Private Function SendEmail_AMBARTOHKT() As Boolean
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+
+        Dim Msg As New MailMessage
+        Dim myCredentials As New System.Net.NetworkCredential
+        myCredentials.UserName = "support@verag.ag"
+        myCredentials.Password = supportPWD
+
+        Msg.IsBodyHtml = False
+        Dim mySmtpsvr As New SmtpClient()
+
+        mySmtpsvr.Host = "owa.verag.ag"
+        mySmtpsvr.Port = 587 '25 '587 '25
+        mySmtpsvr.UseDefaultCredentials = False
+        mySmtpsvr.Credentials = myCredentials
+        System.Console.WriteLine("E-Mail Daten initialisiert...")
+
+
+        Try
+            System.Console.WriteLine("Erstelle Buchungsdateien...")
+            Dim Pathlist As New List(Of String)
+            If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL("AMBAR", False, True, True,, Pathlist) Then
+                System.Console.WriteLine("Buchungsdateien erstellt...")
+            Else
+                System.Console.WriteLine("Keine Buchungsdaten vorhanden...")
+                Return False
+            End If
+
+            System.Console.WriteLine("Sende E-Mail...")
+
+            Msg.To.Add("T.Wesolowski@hkt-tax.de")
+            Msg.CC.Add("C.Tuendermann@hkt-tax.de")
+            Msg.CC.Add("D.Horneber@hkt-tax.de")
+            Msg.CC.Add("IO@ambarlog.de")
+
+            Msg.From = New MailAddress("support@verag.ag")
+
+            Msg.Body = "Sehr geehrte Damen und Herren," & vbNewLine & vbNewLine & " im Anhang befinden sich die Exportdaten für die Buchhaltung!" & vbNewLine & vbNewLine & "Mit freundlichen Grüßen" & vbNewLine & "automatisch generiertes E-Mail"
+
+            Msg.Subject = "DATEV-Buchungsdaten AMBAR " & Now.Date.ToShortDateString
+
+            For Each path In Pathlist
+                Dim attachment As Attachment = New Attachment(path)
+                Msg.Attachments.Add(attachment)
+            Next
+
+            mySmtpsvr.Send(Msg)
+            System.Console.WriteLine("E-Mail gesendet.")
+            System.Console.WriteLine("Erfolgreich!")
+            Return True
+
+        Catch ex As Exception
+            Try
+                mySmtpsvr.Port = 25
+                mySmtpsvr.Send(Msg)
+
+            Catch ex2 As Exception
+                Try
+                    mySmtpsvr.Host = "192.168.0.107"
+                    mySmtpsvr.Port = 25
+                    mySmtpsvr.Send(Msg)
+
+                Catch ex3 As Exception
+                    MsgBox(ex3.Message & ex3.StackTrace)
+                    Return False
+                End Try
+            End Try
+
+
+        End Try
+        Return False
+    End Function
+
 
     Function getDateFromFile() As String
         Try