Dim Msg As New System.Net.Mail.MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = "*****@******.de"
        myCredentials.Password = "******"
 
        Msg.IsBodyHtml = False
 
        Dim mySmtpsvr As New SmtpClient()
        mySmtpsvr.EnableSsl = True 'SSL aktivieren
        mySmtpsvr.Host = "smtp.strato.de"
        mySmtpsvr.Port = 465
 
        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials
 
        Try
            Msg.From = New MailAddress("*****@******.de")
            Msg.To.Add("empfaenger@*****.de")
            Msg.Subject = "Betreff"
            Msg.Body = "Inhalt"
            mySmtpsvr.Send(Msg)
        Catch ex As Exception
            MsgBox(Err.Number & vbCrLf & ex.Message & vbCrLf & _
              ex.StackTrace.ToString)
        End Try