MS Fehlerhandling FormatString

This commit is contained in:
2023-05-09 15:20:58 +02:00
parent 1e98e4a9ab
commit 440303d299
10 changed files with 65 additions and 300 deletions

View File

@@ -48,17 +48,17 @@ Public Class ClassEmail
'*Send the message */
emailClient.Send(message)
If test = True Then
MsgBox("Die Test-Email wurde erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
MsgBox("TestMail sent successfully!", MsgBoxStyle.Information, "Success:")
End If
If Log = True Then
MsgBox("Die Support-Email wurde erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
MsgBox("The Support-Email has been sent successfully!", MsgBoxStyle.Information, "Success:")
End If
'LOGGER.Info(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
Next
Return True
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("### Fehler im Mailversand: " & ex.Message)
LOGGER.Info("### Error in Mailversand: " & ex.Message)
Return False
End Try
End Function