Was ist an diesem Code falsch? Hier der Code:

Private Sub SendMail() Dim Msg As New MailMessage Dim myCredentials As New System.Net.NetworkCredential myCredentials.UserName = "ZinarEti@web.de" myCredentials.Password = "zensiert"

Msg.IsBodyHtml = False

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

mySmtpsvr.UseDefaultCredentials = False mySmtpsvr.Credentials = myCredentials

Try Msg.From = New MailAddress("ZinarEti@web.de") Msg.To.Add("ZinarEti@web.de") Msg.Subject = "Glückwunsch" Msg.Body = "Neues Mitglied" mySmtpsvr.Send(Msg) MsgBox("Username: " & TextBox1.Text & vbCrLf & "Passwort: " & TextBox2.Text) Catch ex As Exception MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)

Fehler: 5Fehler beim Senden von Mail. bei System.Net.Mail.SmtpClient.Send(MailMessage message) bei WindowsApplication1.Fotm99.Send_Mail() in Dokoment... und so weiter...und dann zumschluss steht da: "Zeile46" usw... Ich hoffe du/ihr kannst/könnt mir weiterhelfen!