Imports System.Net.Mail
 
 
Public Class Form1
 
    Dim vEMailVon As String = "sender@meinmail.net"
    Dim vEMailAn As String = "emfaenger@seinmail.net"
 
    'Mailbox-Einstellungen:
    Dim mUser As String = "sender@meinmail.net"
    Dim mPass As String = "passwort"
    Dim smtpServ As String = "smtp.meinmail.net"
 
 
    Dim vAdressFrom As New System.Net.Mail.MailAddress(vEMailVon)
    Dim vAdressTo As New System.Net.Mail.MailAddress(vEMailAn)
    Dim vMail As New System.Net.Mail.MailMessage(vAdressFrom, vAdressTo) _
      'MailMessage()
 
 
    Dim vTitel As String
    Dim vText As String
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        vTitel = TextBox1.Text
        vText = TextBox2.Text
 
        vMail.IsBodyHtml = True
        vMail.IsBodyHtml = True 'vMail.BodyFormat = MailFormat.Html
 
        'TITEL+TEXT
        vMail.Subject = vTitel
        Dim s = "<STYLE>BODY { FONT-SIZE: 9pt; FONT-FAMILY: arial ;}</STYLE>"
        s &= vText
        vMail.Body = s
 
 
        'SENDEN
 
        Try
            Button1.Enabled = False
 
            Dim objMailClient As New System.Net.Mail.SmtpClient(smtpServ)
 
            objMailClient.UseDefaultCredentials = False
            objMailClient.Credentials = New Net.NetworkCredential(mUser, mPass)
            objMailClient.Send(vMail)
 
        Catch
            MsgBox("Beim Versenden der Mail ist ein Fehler aufgetreten." & _
              "Eventuell sind Sie nicht mit dem Internet verbunden oder Ihr" & _
              "Virenschutz blockt den Versand der Mail.")
        End Try
 
        Button1.Enabled = True
 
    End Sub
End Class