MS V2.7 .Net Logger etc
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user