MS Interfaces Update GDPicture

Messaging/Mail/MailSender.vb

@@ -40,7 +40,6 @@ Namespace Mail
             Try
                 Dim oSuccessfulSends As New List(Of String)
                 Dim oFailedSends As New List(Of String)
-
                 For Each oSendToAddress In pSendTo
                     Dim oResult = SendMailTo(oSendToAddress, pSendFrom, pSubject, pBody, pCreationTime, pAttachments, pTest)
 
@@ -54,8 +53,11 @@ Namespace Mail
                 Logger.Debug("Sent [{0}] mails.", pSendTo.Count)
                 Logger.Debug("Successful [{0}]", oSuccessfulSends.Count)
                 Logger.Debug("Failed [{0}]", oFailedSends.Count)
-
-                Return True
+                If oFailedSends.Count > 0 Then
+                    Return False
+                Else
+                    Return True
+                End If
             Catch ex As Exception
                 Logger.Warn("Error in SendMail()  - while sending mail [{0} - Subject: {1}]", pSendTo, pSubject)
                 Logger.Error(ex)
@@ -74,7 +76,7 @@ Namespace Mail
                     Return False
                 End If
 
-                Logger.Debug("Preparing to send mail to [{0}]", pSendTo)
+                Logger.Debug("Preparing to send mail: {0} ...", pSendTo + "|" + pSubject)
 
                 Dim oMailBuilder As New Limilabs.Mail.MailBuilder()
                 oMailBuilder.From.Add(New Limilabs.Mail.Headers.MailBox(pSendFrom))
@@ -87,16 +89,17 @@ Namespace Mail
                 Logger.Debug("Adding [{0}] attachments to mail", pAttachments.Count)
                 oMailBuilder = AddAttachments(oMailBuilder, pAttachments)
 
-                Logger.Debug("Now sending mail..")
+                Logger.Debug("Now sending mail...")
                 Dim oMail = oMailBuilder.Create()
                 oClient.SendMessage(oMail)
-                Logger.Info("Mail to [{0}] has been sent.", pSendTo + "|" + pSubject)
+                Logger.Info("Mail [{0}] has been sent.", pSendTo + "|" + pSubject)
 
                 Return True
 
             Catch ex As Exception
-                Logger.Warn("Error in SendMailTo() to [{0} - Subject: {1}]", pSendTo, pSubject)
+                Logger.Warn("Error in SendMailTo() - Mailinfo: {0} - Subject: {1}", pSendTo, pSubject)
                 Logger.Error(ex)
+                MailSession.DisconnectFromServer()
 
                 Return False
             End Try

Messaging/Mail/MailSession.vb

@@ -177,6 +177,7 @@ Namespace Mail
 
                 Catch ex As Exception
                     Logger.Warn("Error while connecting with Auth type SSL!")
+                    Logger.Warn($"Error-message: {ex.Message}")
                     Logger.Error(ex)
 
                     Session.Error = ex