[Visual Basic] E-Mail senden (SMTP) über GMX

    Private Sub VTButton_Click(sender As Object, e As EventArgs) Handles VTButton.Click
        Dim Msg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = EMTextBox.Text 'Meine GMX E-Mail'
        myCredentials.Password = PWTextBox.Text 'Mein PW'
        Msg.IsBodyHtml = False
        Dim mySmtpsvr As New SmtpClient()
        mySmtpsvr.Host = ASTextBox.Text 'Der Antwortserver SMTP (mail.gmx.net)'
        mySmtpsvr.Port = PortTextBox.Text 'Der Port (587)'
        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials
        mySmtpsvr.DeliveryMethod = SmtpDeliveryMethod.Network
        Try
            Msg.From = New MailAddress(EMTextBox.Text) 'Nochmals meine E-Mail'
            Msg.To.Add(EMTextBox.Text) 'E-Mail des Empfängers'
            Msg.Subject = "Bla Bla" 'Betreff'
            Msg.Body = "Bla Bla Blub" 'Nachricht'
            mySmtpsvr.Send(Msg)
            MsgBox("Der Verbindungstest war erfolgreich.", MsgBoxStyle.Information, "Info")
        Catch ex As Exception
            MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
        End Try
    End Sub