Ausertung, Formulare

This commit is contained in:
2023-12-06 08:17:56 +01:00
parent 2f160c793d
commit 1eff800e1f
6 changed files with 27 additions and 14 deletions

View File

@@ -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.