Imports System.Net.Mail
Public Sub SendSMTP() 
        Dim smtp As SmtpClient
        smtp = New SmtpClient("smtp.XXXXXX")' 
        Dim msg As MailMessage
        msg = New MailMessage("sender@sender.de", "Empfänger@online.de")
        msg.Subject = "meine Nachricht"
        msg.Body = "Test"
        'msg.Attachments.Add(New Attachment("Dateianhang"))
        smtp.DeliveryMethod = SmtpDeliveryMethod.Network
        smtp.Credentials = New System.Net.NetworkCredential("Benutzer", "PW")
        smtp.Send(msg)
    End Sub