Private Sub SendMail()
Dim MailClient As new SmtpClient("SMTPServer")
Dim MailCredentials As new NetworkCredential("Benutzername für den Server", "PW" & _
  "für Server")
Dim MailMessage As new MailMessage("Absenderaddy", "Empfängeraddy", "Betreff", _
"Nachrichtentext")
 
MailClient.Credentials = MailCredentials
 
'Falls du noch eine Datei anhängen möchtest:
MailMessage.Attachments.Add(New Attachment("Dateipfad"))
 
MailClient.Send(MailMessage)