Imports System.Web.Mail           
.
.
Dim mail As New MailMessage()
mail.To = toem
mail.From = empfaenger
mail.Subject = Betreff
mail.Body = WebBrowser1.DocumentText.ToString
mail.BodyFormat = MailFormat.Html
mail.BodyEncoding = System.Text.Encoding.UTF8
   Attach = New MailAttachment(anlage)
   mail.Attachments.Add(Attach)
End If
SmtpMail.SmtpServer = smtpserver
SmtpMail.Send(mail)