Txt-Datei automatisch als E-Mail versenden

[Jens Hartmann]

Hallo zusammen,

So ich habe die Lösung geknackt. Also mit der Indy 10.1.1 wird das ein bißchen anders gemacht. Wenn es jemand interessiert, hier die funktionierende Lösung. Wenn noch jemand Verbesserungsvorschläge hat, nehme ich die gerne an.

Delphi-Quellcode:

procedure TMailSendenForm.butnSendMailClick(Sender: TObject);
var
  FileName : String;
  FileData : TIdAttachmentFile;
begin
  FileName := FileEdit.Text;
  butnSendMail.Enabled := False; try
    with mesgMessage do begin
      Clear;
      From.Text := FromMailEdit.Text;      // von welchem account aus
      Recipients.Add.Text := AddMailEdit.Text;  // an welche addi
      Subject := 'Datensatz vom '+ DateToStr(Now);  // betreff
      Body.Assign(MemoVortext.Lines);           // die nachricht aus dem memo
      if FileExists(FileName) then
      begin
        FileData := TIdAttachmentFile.Create(MessageParts, FileName);
      end                                           //Body.LoadFromFile('.\29.03.2009.txt');
    end;
    with smtpSendMail do begin
      smtpSendMail.Username := FromMailEdit.Text;
      smtpSendMail.Password := PasswortEdit.Text;
      Host := SMTPEdit.Text;                //smtp-server hier web
      Connect; try
        Send(mesgMessage);
      finally Disconnect; end;
    end;
    showmessage('Mail wurde erfolgreich an [email][e-mail][/email] gesendet');
  finally butnSendMail.Enabled := True; end;
end;

Besten Dank trotzdem für die Hilfe.

Gruß Jens