abrechnung, BH, Fakt, Auswertung, etc.

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -12,6 +12,7 @@ Imports com.sun.xml.internal.rngom
 Imports GrapeCity.ActiveReports
 Imports GrapeCity.ActiveReports.SectionReportModel
 Imports GrapeCity.Documents.Imaging
+Imports iText.IO.Util
 Imports Microsoft.Office.Interop
 Imports ThoughtWorks.QRCode.Codec
 
@@ -885,6 +886,21 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
         End Try
     End Function
 
+    Public Shared Sub createMail(eMailTo As String, betreff As String, text As String, Optional email_CC As String = "", Optional email_BCC As String = "")
+        Dim outl As New Outlook.Application
+        Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+        Mail = outl.CreateItem(0)
+
+        Mail.To = eMailTo
+        Mail.CC = email_CC
+        Mail.BCC = email_BCC
+        Mail.HTMLBody = text
+        Mail.Subject = betreff
+
+        Mail.Display()
+
+    End Sub
+
     Public Shared Function sendMail(eMailTo, betreff, text, Optional eMailfrom = "support@verag.ag", Optional prio = False, Optional uhrzeitAngeben = True, Optional cc = "", Optional bcc = "", Optional anhaenge = Nothing, Optional art = 0, Optional furtherMailAdress = "")
         Dim Msg As New MailMessage
         Dim myCredentials As New System.Net.NetworkCredential