Import System.IO
      Imports System.Net.Mail
 
Dim Msg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = "addy@web.de" ' Absender
        myCredentials.Password = "pw" ' Passwort
 
        Msg.IsBodyHtml = False
 
        Dim mySmtpsvr As New SmtpClient()
        mySmtpsvr.Host = "smtp.web.de" ' SMTP Server
        mySmtpsvr.Port = 25 ' SMTP Port
 
        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials
 
        Try
            Msg.From = New MailAddress("addy@web.de") ' Absender noch einmal
            Msg.To.Add("addy@hotmail.de") ' Empfänger
            Msg.Subject = "test" ' Der Betreff
            Msg.Body = "test2" ' Der Inhalt auch genannt body
            mySmtpsvr.Send(Msg)
            MsgBox("Yeah", MsgBoxStyle.Information, "Yeah")
 
        Catch ex As Exception
            MsgBox(ex.Message) ' Fehlermeldung wird ausgegeben in messagebox
        End Try