MS V2.7 .Net Logger etc

This commit is contained in:
2021-06-15 16:28:55 +02:00
parent e2619eb3ad
commit e796ae91cb
109 changed files with 295499 additions and 8793 deletions

View File

@@ -63,17 +63,11 @@ Public Class ClassEmail
"<br>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & _
My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
' create and add the attachment(s) */
Dim logfile = ClassLogger.logDateiname
If logfile Is Nothing Then
MsgBox("Logging was not initiated", MsgBoxStyle.Exclamation)
Return False
End If
If logfile.Contains("\\") Then
logfile = logfile.Replace("\\", "\")
End If
If IO.File.Exists(logfile) Then
Dim Attachment As Attachment = New Attachment(logfile)
If IO.File.Exists(LOGCONFIG.LogFile) Then
Dim Attachment As Attachment = New Attachment(LOGCONFIG.LogFile)
message.Attachments.Add(Attachment)
End If
@@ -93,7 +87,7 @@ Public Class ClassEmail
'*Send the message */
emailClient.Send(message)
'ClassLogger.Add(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
'Logger.Warn("Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
Next
Return True
Catch ex As Exception