MS: Conversations

Modules.Messaging/Email.vb

@@ -10,6 +10,8 @@ Imports System.IO
 Public Class Email
     Private ReadOnly _logger As Logging.Logger
     Private ReadOnly _logConfig As Logging.LogConfig
+    Public Err_Message As String
+    Public _msg_Send As Boolean
 
     Public Sub New(LogConfig As Logging.LogConfig)
         _logger = LogConfig.GetLogger()
@@ -365,6 +367,8 @@ Public Class Email
                                                      from_mailaddress As String, from_name As String, mailsmtp As String, mailport As Integer, mailUser As String, mailPW As String,
                                                      AUTH_TYPE As String, SENDER_INSTANCE As String, Optional attment As String = "")
         Try
+            Err_Message = ""
+            _msg_Send = False
             ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
             _logger.Debug($"in Email_Send_Independentsoft..")
             Dim empfaenger As String()
@@ -440,6 +444,7 @@ Public Class Email
                         client.Connect()
                     Catch ex As Exception
                         _logger.Warn("clsEmail.Client.Connect: " & ex.Message)
+                        Err_Message = "clsEmail.Client.Connect: " & ex.Message
                         _error = True
                         ' Continue For
                     End Try
@@ -473,9 +478,11 @@ Public Class Email
                     Try
                         client.Send(oMessage)
                         _logger.Info("Message to " & _mailempfaenger & " has been send.")
+                        _msg_Send = True
                         _error = False
                     Catch ex As Exception
                         _logger.Warn("clsEmail.Client.Send: " & ex.Message)
+                        Err_Message = ex.Message
                         _error = True
                         client.Disconnect()
                         Continue For
@@ -483,7 +490,12 @@ Public Class Email
                     client.Disconnect()
 
                 Catch ex As Exception
-                    _logger.Error(ex)
+                    Err_Message = ex.Message
+                    If _msg_Send = True Then
+                        _logger.Info($"Error Closing Connection [{ex.Message}]")
+                    Else
+                        _logger.Error(ex)
+                    End If
                     _error = True
                 End Try
             Next
@@ -495,6 +507,7 @@ Public Class Email
             End If
         Catch ex As Exception
             _logger.Error(ex)
+            Err_Message = ex.Message
             Return False
         End Try
     End Function

Modules.Messaging/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>
+<Assembly: AssemblyVersion("1.1.0.0")>
+<Assembly: AssemblyFileVersion("1.1.0.0")>