update nlog, finish email service

DD_CommunicationService/MyComService.vb

@@ -241,6 +241,7 @@ Public Class MyComService
                     Dim oMailFrom, oMailSMTP, oMailport, oMailUser, oMailPW, oAuthType, oAttachment
 
                     Dim oACCOUNT_MATCH As Boolean = False
+
                     For Each oAccountRow As DataRow In oDT_EMAIL_ACCOUNT.Rows
                         If oAccountRow.Item("GUID") = oEMAILACCOUNT_ID Then
                             oACCOUNT_MATCH = True
@@ -251,8 +252,6 @@ Public Class MyComService
                             oAuthType = oAccountRow.Item("AUTH_TYPE")
                             oMailPW = oAccountRow.Item("EMAIL_PW")
 
-
-
                             Dim owrapper As New clsEncryption("!35452didalog=")
 
                             Dim oPWPlain = owrapper.DecryptData(oMailPW)
@@ -264,6 +263,7 @@ Public Class MyComService
                             End If
                         End If
                     Next
+
                     If IsNothing(oMailFrom) Or IsNothing(oMailPW) Then
                         If oACCOUNT_MATCH = True Then
                             myLogger.Warn("ACCOUNT-Infos are nothing!")