Mailversand AMBAR

Aviso/frmHauptfenster.vb

@@ -15,6 +15,7 @@ Imports System.Runtime.InteropServices
 Imports GrapeCity.Viewer.Common.Model
 Imports System.Drawing.Drawing2D
 Imports SDL
+Imports Microsoft.Office.Interop
 
 
 'Imports UID
@@ -4545,11 +4546,48 @@ Public Class frmHauptfenster
     End Sub
 
     Private Sub DatevBuchungsexportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatevBuchungsexportToolStripMenuItem.Click
-        If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True) Then
-            MsgBox("Buchungen wurden erfolgreich exportiert!")
-        Else
-            MsgBox("Es wurden keine Buchungen exportiert!")
-        End If
+
+        Try
+            Dim Pathlist As New List(Of String)
+
+            If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist) Then
+                MsgBox("Buchungen wurden erfolgreich exportiert!")
+            Else
+                MsgBox("Es wurden keine Buchungen exportiert!")
+                Exit Sub
+            End If
+
+            Dim outl As New Outlook.Application
+            Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+            Mail = outl.CreateItem(0)
+
+            Mail.To = "T.Wesolowski@hkt-tax.de"
+            Mail.CC = "C.Tuendermann@hkt-tax.de;D.Horneber@hkt-tax.de"
+
+
+            Dim TextHTML = ""
+            TextHTML &= "Sehr geehrte Damen und Herren, <br> im Anhang befinden sich die Exportdaten für die Buchhaltung!"
+            TextHTML &= "<br>"
+                TextHTML &= "<br>"
+                TextHTML &= "Mit freundlichen Grüßen<br>"
+                TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
+                TextHTML &= "<br>"
+            TextHTML &= cFakturierung.getSignature("DE", 24, True, True)
+
+            Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
+
+            Mail.Subject = "DATEV-Buchungsdaten AMBAR " & Now.Date.ToShortDateString
+
+            For Each path In Pathlist
+                Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+            Next
+
+            Mail.Display()
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
     End Sub
 
     Private Sub APIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles APIToolStripMenuItem.Click