Thema: Delphi Socket Error # 10022

Einzelnen Beitrag anzeigen

Benutzerbild von wicht
wicht

Registriert seit: 15. Jan 2006
Ort: Das schöne Enger nahe Bielefeld
809 Beiträge
 
Delphi XE Professional
 
#4

Re: Socket Error # 10022

  Alt 24. Sep 2007, 15:59
Hi!

Also, diese TIdSMTP und TIdMessage habe ich noch nie benutzt. Weiß also nicht, was da für Dinge passieren können
Um das Connect würde ich noch ein try...except drumbauen. Der Host auch? (Frage die dumme Frage, weil du oben nur geschrieben hast der Port passt)..
Sorry, so richtig kann ich dir nicht helfen.. Vielleicht teste ich das ganze aber selbst später mal und melde mich dann nochmal..

Edit: Also, ich habe deinen Code mal getestet. Bei mir sieht das jetzt so aus:

Delphi-Quellcode:
    with idmessage1 do
    begin
      Clear;
      From.Text := Trim('meine@email.de'); {Absender}
      Recipients.Add.Text := Trim('meine@email.de'); {Empfänger}
      Subject := Trim('Ich habe leider keinen Betreff'); {Betreff}
      Body.Assign(msg.Lines); {Hier kommt die Nachricht hinein}
    end;

    with IDSmtp1 do
    begin
      Host := Trim('smtp.email.de');
      Port := 25;
      try
        Connect;
        Send(idmessage1);
      except
        on e: Exception do
        begin
          ShowMessage(e.Message + e.ClassName);
        end;
      end;
    end;
Das Funktioniert hier einfach nur. Den Benutzernamen und das Passwort habe ich rausgemacht, im IdSMTP1 AutoType auf atNone gesetzt. Ich muss halt vorher mein Konto abfragen, dann ist es für x Minuten zum Mail senden freigeschaltet. Liegt da eventuell bei dir der Fehler? Das try...except könnte dir auch weiterhelfen. So, das wars von mir
http://streamwriter.org

"I make hits. Not the public. I tell the DJ’s what to play. Understand?"
  Mit Zitat antworten Zitat