Imports System.Web.Mail
 
Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
 
  ' Neues MailMessage-Objekt
  Dim oMail As New MailMessage()
 
  ' SMTP-Server
  SmtpMail.SmtpServer = "Ihr_Mailserver"
 
  With oMail
    ' Absender
    .From = "Ihre_Mailadresse"
 
    ' Empfänger
    .To = "Empfänger_Mailadresse"
 
    ' Betreff
    .Subject = "Test-Nachricht"
 
    ' Nachricht
    .Body = "Dies ist eine Test-Nachricht"
 
    ' Anlagen hinzufügen
    .Attachments.Add(New MailAttachment("pfad_und_dateiname"))
 
    ' Erweiterte Mail-Einstellungen
    With .Fields
      ' SMTP-AUTH aktivieren
      .Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
 
      ' Benutzername und Kennwort festlegen
      .Add("http://schemas.microsoft.com/cdo/configuration/sendusername", _
        "username")
      .Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", _
      "password")
 
      ' ggf. noch Server-Port festlegen
      .Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
    End With
  End With
 
  Try
    ' Nachricht senden
    SmtpMail.Send(oMail)
    MsgBox("Nachricht wurde versandt.")
 
  Catch oEx As Exception
    MsgBox("Fehler: " & oEx.Message.ToString)
 
  End Try
End Sub