Mails mit Indy10

[Marco Steinebach]

Hallo Leute,
ich bin zu blöd, mit indy 10, release 5328, mails zu verschicken...
Folgender Code - SSL vergessen wir jetzt erstmal:
ich hab den Mail-Versand in eine Klasse gepackt, da ich das mit den gleichen Daten im Programm öfter brauche.

Delphi-Quellcode:

constructor TeMail.create;
begin
  inherited create;
  smtp := TIdSmtp.Create (Application);
//  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(Application);
//  SSLHandler.MaxLineAction := maException;
//  SSLHandler.SSLOptions.Method := sslvTLSv1;
//  SSLHandler.SSLOptions.Mode := sslmUnassigned;
//  SSLHandler.SSLOptions.VerifyMode := [];
//  SSLHandler.SSLOptions.VerifyDepth := 0;
  SMTP.IOHandler := nil; // SSLHandler;
  smtp.host := 'bla';
  smtp.port := 25;
//  SMTP.UseTLS := utUseExplicitTLS;
  SMTP.AuthType := satDefault;
  smtp.username := 'x';
  smtp.password := 'x';
  smtp.connect;
  if not smtp.Connected then
    fehler ('Mail is nich - der Server will mich nicht...');
end;

procedure TeMail.senden (mitBCC: boolean);
var
  m: TIdMessage;
begin
  m := TIdMessage.create (Application);
  m.clear;
  m.from.text := '"<[e-mail]>';
  M.Recipients.EMailAddresses := fEmpfaenger;
  m.subject := fBetreff;
  m.body.text := fMailtext;
  // im fEmpfaenger, fBetreff und fMailtext steht was drin.
  smtp.send (m);
  m.free;
end;

So schwer ist's doch gar nicht, ..., hätte ich gedacht.
Es knallt, mit der üblichen Windows-Exception lesen von Addresse 000x bla bla an folgender Stelle:
smtp.send (m)
ruft
TIdSMTPBase.Send
auf, dann
send zum zweiten,
TSMTP.internalSend
und bei der Zeile
  AMsg.ExtraHeaders.Values[XMAILER_HEADER] := MailAgent; rappelt's, und mir ist echt nicht klar, warum.

Kann mir hier bitte jemand helfen, ist die 5328 evtl. buggey, oder was hab ich hier übersehen?
mit der alten 10.0.52 ging alles noch...
Viele Grüße
Marco

[Sir Rufo]

Schau mal hier

http://www.delphipraxis.net/1318744-post20.html