Ausertung, Formulare

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -4,6 +4,7 @@ Imports System.Net.Mail
 Imports System.Text
 Imports System.Windows.Forms
 Imports ClosedXML.Excel
+Imports Microsoft.Office.Interop
 
 Public Class cProgramFunctions
 
@@ -380,7 +381,9 @@ Public Class cProgramFunctions
 
         Try
             'SENDEN::::::::::::::::::::::
-            mySmtpsvr.Send(Msg)
+            Dim mailItem As Outlook.MailItem = TryCast(Msg, Outlook.MailItem)
+            mailItem.Display()
+            'mySmtpsvr.Send(Msg)
 
         Catch ex As Exception
             Try 'Falls Fehler nicht beim Senden, sonder was anderes.