Imports System.Net
Imports System.Net.Mail
 
' ...
 
Dim server As New SmtpClient("smtp.XXX.de")
Dim cred As New NetworkCredential("username", "password")
server.Credentials = cred
server.Send("von", "an", "betreff", "nachricht")

Ralf