SMTP - Datei wird nicht mehr versendet

[albert1985]

Hm, hab nochmal deine Änderungen für die Funktion mit reingenommen, aber das Problem bleibt bestehen
(wie du ja selbst schon erwartet hast .

Was ich vergessen hatte zu erwähnen ist, das die Datei ohne die eigentlich vorgesehene Einbindung
von DeleteFile GELÖSCHT wird (nach dem Teil für das Versenden der Mail wollte ich das einbauen), wenn die festgelegte dateigröße erreicht ist, eben ohne aber tatsächlich eine mail zu versenden !!!

PS: Wenn ich den Code folgendermaßen schreibe nachdem ich ein edit-feld zur ausgabe eingefügt habe...

Delphi-Quellcode:

GetFileSize('dateiname');
  edit1.Text := Inttostr(GetFileSize('dateiname'));
  if Inttostr(GetFileSize('dateiname')) > '5000' then

dann wird eine mail versendet ... jedoch nicht erst bei etwa 5 kb wie verlangt, sondern bereits bei 0 byte bzw.
sobald die datei existiert -.-
In Hoffnung auf Hilfe ... MfG Albert