WIP: Comservice & Zugferd

Message/Email.vb

@@ -152,14 +152,16 @@ Public Class Email
                     oTextBodyPart.ContentType = New ContentType("text", "html", "utf-8")
 
                     oTextBodyPart.ContentTransferEncoding = ContentTransferEncoding.QuotedPrintable
-                    Dim formattedBody = "<font face=""Tahoma"">" & mailBody & "<br><br>>> Service: " & SENDER_INSTANCE & "<br>" &
-                                               ">> DateTime: " & My.Computer.Clock.LocalTime.ToShortDateString.ToString("dd.MM.yyyy") & " " &
-                    My.Computer.Clock.LocalTime.ToLongTimeString.ToString("H:mm:ss") & "</font>"
+                    Dim formattedBody = mailBody
+
                     Dim thisDate1 As Date = #6/10/2011#
                     Console.WriteLine("Today is " + thisDate1.ToString("MMMM dd, yyyy") + ".")
                     oTextBodyPart.Body = formattedBody
                     oMessage.BodyParts.Add(oTextBodyPart)
+
                     If attment <> String.Empty Then
+                        _logger.Debug("Attachment Path is: {0}", attment)
+
                         If System.IO.File.Exists(attment) Then
                             Dim attachment1 As New Attachment(attment)
                             If attment.ToLower.EndsWith("pdf") Then