mail senden mit indy klappt nicht

[Matthias-k]

hi leutz,

folgendes hab ich aus nem tutorial über indy und für meine bedürfnisse angepasst:

Delphi-Quellcode:

  SMTP.Username := '********';
  SMTP.Password := '******';
  msg.Body.Add('sfdksdjfskdfhjkj skhdfksfdh skdjhfskjdfjh ksdjhfskjdfkjsdf');
  //Server-Daten
  SMTP.Host := '***********************';
  SMTP.Port := 25;

  SMTP.Connect;
  showmessage('hello');

  smtp.Send(msg);
  showmessage('gesendet');
  smtp.Disconnect;

allerdings erhalte ich eine fehlermeldung ohne inhalt!

was läuft denn da falsch???

matthias

[Matthias-k]

also die meldung lag an dem disconnect!

allerdings kommt keine mail an! aber auch kein fehler! was ist da los?

matthias

[Matthias-k]

ich hab jetzt über die status abfrage folgende nachrichten bekommen:

Resolving hostname *************.
Connecting to ***.***.***.***.
Connected.
Encoding text

[et2004]

Im Indy Projekt gibt es ein Mail Client-Beispiel. Anhand dieses Beispiels habe ich mir folgendes zusammenprogrammiert:

Code:

         try
            // Mail initialisieren
            mailMsg.ClearHeader;
            mailMsg.ClearBody;
            mailMsg.Recipients.Clear;
            mailMsg.MessageParts.Clear;

            // Mail zusammenbauen
            mailMsg.Date := now;
            mailMsg.From.Text := '';
            mailMsg.ReceiptRecipient.Address := '[e-mail]';
            mailMsg.Recipients.Add;
            mailMsg.Recipients.Items[0].Address := '[e-mail]';
            mailMsg.Recipients.Items[0].Name := '[e-mail]';
            mailMsg.Subject := 'Betreffzeile';
            mailMsg.Priority := mpHighest;
            mailMsg.Sender.Address := 'eMail@Absender';
            mailMsg.From.Address := 'eMail@Absender';
            mailSMTP.Host := 'SMTP.Mail.Server';
            mailSMTP.Port := 25;
            mailSMTP.AuthenticationType := atLogin;
            mailSMTP.Username := 'eMail@Absender';
            mailSMTP.Password := 'Passwort';

            // evtl. Dateianhang mitsenden
            if FileExists(Datei) = true then
            begin
               TIdAttachment.Create(mailMsg.MessageParts, Datei);
            end;

            // Body aufbauen und mitsenden
            try
               myText := TStringList.Create;
               myText.Add('Bla bla bla das ist eine Zeile des eMail Bodies...');  
               mailMsg.Body := myText;
            
               mailSMTP.Connect(30000);
               mailSMTP.Send(mailMsg);
               mailSMTP.Disconnect;
            finally               
               myText.Free;
               myText := nil;
            end;
         except
            on E: Exception do
            begin
               // Fehlerbehandlung
            end;
         end;

Einige kleine Änderungen sind noch notwendig.

Diesen Source in eine Funktion hineinsetzen und es sollte laufen.

[Matthias-k]

stimmt!

thx!


mfg matthias