Dim oMail As New MailMessage("mailadresse", "mailadresse")
 
        ' SMTP-Server
        Dim oSMTP As New SmtpClient
        With oSMTP
            ' Mailserver
            .Host = "mailserver"
            .Port = 25
 
            ' Erweiterte Mail-Einstellungen
            .UseDefaultCredentials = False
            .DeliveryMethod = SmtpDeliveryMethod.Network
 
            ' SMTP-AUTH mit UserName und Kennwort
            .Credentials = New Net.NetworkCredential("benutzer", "password")
        End With
 
        With oMail
            ' Betreff
            .Subject = "Betreff"
 
            ' Nachricht (kein HTML)
            .IsBodyHtml = True
            .Body = "Betreff"
 
            ' ggf. Kopie-Empfänger hinzufügen
 
            '.CC.Add(New MailAddress(MailAdresse))
 
 
            ' ggf. BCC-Empfänger hinzufügen
            .Bcc.Add(New MailAddress("mailadresse"))
 
            ' Anlagen hinzufügen
 
 
 
            .Attachments.Add(New Attachment(("C:\Test.txt")))
 
 
            ' Priorität einstellen
            .Priority = MailPriority.Normal
        End With
 
        Try
            ' Nachricht senden
            oSMTP.Send(oMail)
            MsgBox("Nachricht wurde versandt.")
 
        Catch oEx As Exception
            MsgBox("Fehler: " & oEx.Message.ToString)
        End Try
    End Sub