update nlog, finish email service

DD_CommunicationService/DD_CommunicationService.vbproj

@@ -143,5 +143,11 @@
     </None>
     <None Include="App.config" />
   </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\Modules.Messaging\Messaging.vbproj">
+      <Project>{AF664D85-0A4B-4BAB-A2F8-83110C06553A}</Project>
+      <Name>Messaging</Name>
+    </ProjectReference>
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

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!")