ich erprobe gerade einen SMTP-Client mit der Klasse SMTPClient der Komponente gb.net.smtp. Gegenwärtig kann ich problemlos EMails von meiner EMail hans@gambas-buch.de mit der o.a. Klasse mit (Text-)Anhang an EMail-Adressen vieler bekannter Provider (darunter auch an Freenet-EMail-Adressen!) ohne Probleme verschicken. Nur beim Provider Freenet gelingt es mir nicht mit meiner Freenet-EMail-Adresse.
Frage: Hat jemand schon einmal erfolgreich mit der o.a. Klasse eine EMail mit einer korrekten Freenet-EMail-Adresse über den Freenet-SMTP-Server verschickt?
Hier der verwendete Quelltext-Ausschnitt in einem Versuchs-Projekt:
gambas code
Public Sub btnFreenet_Click() hSMTP = New SMTPClient hSMTP.Host = "mx.freenet.de" ' Net.Format("195.4.92.212", Net.IPv4, True) ' "mx.freenet.de" hSMTP.Port = 587 hSMTP.Encrypt = Net.SSL hSMTP.User = "xxx@freenet.de" hSMTP.Password = "xxxyyyzzz" hSMTP.From = hSMTP.User hSMTP.To.Add("hans@gambas-buch.de") hSMTP.MessageId = "0815" hSMTP.Subject = "Test" hSMTP.AddHeader("Date ", hSMTP.FormatDate(Now)) hSMTP.AddHeader("From ", hSMTP.From) hSMTP.AddHeader("To ", "hans@gambas-buch.de") ' hSMTP.InReplyTo = hSMTP.From hSMTP.Body = "Das ist ein Test!\nGruß Honsek" hSMTP.Add("Ich bin nur der klitzekleine Anhang...", "text/plain", "Anhang 1") hSMTP.Send EndEs gibt auch keine Fehlermeldung. Ich habe keine Idee, wie man den Fehler - der ja offensichtlich irgendwo steckt - aufdecken könnte. Was nun - was tun?
Mit freundlichem Gruß
Honsek