Dim Message As New MailMessage("X@exaple.com", "E@example.com")
        With Message
            .IsBodyHtml = True
            .Subject = "Test-Mail"
            .Body = WebBrowser1.DocumentText
        End With
        WebBrowser1.DocumentText = Message.Body