Messaging: Prepare new email lib

Modules.Messaging/Email.vb

@@ -125,7 +125,7 @@ Public Class Email
     ''' May break in future versions of .NET
     ''' </summary>
     Public Function WriteMessageToFile(Message As MailMessage, Filename As String) As Boolean
-        Dim oAssembly As Assembly = GetType(Mail.SmtpClient).Assembly
+        Dim oAssembly As Assembly = GetType(System.Net.Mail.SmtpClient).Assembly
         Dim oMailWriterType As Type = oAssembly.[GetType]("System.Net.Mail.MailWriter")
 
         Try

Modules.Messaging/Mail.vb

@@ -0,0 +1,3 @@
+Public Class Mail
+
+End Class

Modules.Messaging/Messaging.vbproj

@@ -46,6 +46,10 @@
     <Reference Include="Independentsoft.Email">
       <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Email .NET\Bin\Independentsoft.Email.dll</HintPath>
     </Reference>
+    <Reference Include="Mail">
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\Limilabs\Mail.dll\Mail.dll</HintPath>
+      <EmbedInteropTypes>False</EmbedInteropTypes>
+    </Reference>
     <Reference Include="Microsoft.CSharp" />
     <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
       <HintPath>..\packages\NLog.4.7.10\lib\net45\NLog.dll</HintPath>
@@ -80,6 +84,7 @@
   <ItemGroup>
     <Compile Include="Email.vb" />
     <Compile Include="EventBus.vb" />
+    <Compile Include="Mail.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>