Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Mails mit Indy10 (https://www.delphipraxis.net/187947-mails-mit-indy10.html)

Marco Steinebach 18. Jan 2016 18:04

Mails mit Indy10
 
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 := '"<info@l-becker.de>';
  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
Delphi-Quellcode:
  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 18. Jan 2016 18:13

AW: Mails mit Indy10
 
Schau mal hier

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:02 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz