Zitat:

Kann evtl. sonst noch jemand die Funktion meines Scriptes bei einem anderen Provider bestätigen? Würde gerne wissen, ob der Fehler auf meiner Seite liegt?

  Private Sub SendeMail(absender As MailAddress, empfänger As MailAddress, _
    betreff As String, inhalt As String)
    Try
      Dim nachricht As New MailMessage(absender, empfänger)
      nachricht.Subject = betreff
      nachricht.Body = inhalt
      '-----------------------------------------------------------------
      Dim client As New SmtpClient("mail.gmx.net")
      client.Credentials = New NetworkCredential("ich@gmx.de", "*******")
      client.EnableSsl = True
      client.Send(nachricht)
      client.Dispose()
      nachricht.Dispose()
      MsgBox("E-Mail gesendet...")
    Catch ex As Exception
      MsgBox(ex.Message)
    End Try
  End Sub