mail senden mit indy klappt nicht

[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.