Dim Msg As New MailMessage

Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName =" [email protected]"
myCredentials.Password ="Password"

Msg.IsBodyHtml = False

Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host ="smtp.web.de"
mySmtpsvr.Port = 25

mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials

Try
  Msg.From = New MailAddress("[email protected]")
  Msg.To.Add("entchen@empf?nger.de")
  Msg.Subject ="Betreff"
  Msg.Body ="Inhalt"
  mySmtpsvr.Send(Msg)
  MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
Catch ex As Exception
  MsgBox (Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
End Try