Wie kann ich eine Email zeitversetzt senden.

Das normale Versenden mit Button.Onclick hab ich schon fertig und es funktioniert auch,

müßte nur noch , vermutlich mit TTimer , eine Zeit einstellen und dann verschicken.

z.B in 15 Minuten oder 21:00 Uhr

Hi,

wo ist nun dein Problem? Wenn du das Timer-Intervall auf 1000 ms setzt, kannst du eine Variable hochzählen lassen und nach x Sekunden eine Aktion ausführen. Die DateTime-Funktionen kannst du zum Vergleichen mit der Systemzeit verwenden.

Grüße, Matze

Zitat von Matze:

Hi,

wo ist nun dein Problem? Wenn du das Timer-Intervall auf 1000 ms setzt, kannst du eine Variable hochzählen lassen und nach x Sekunden eine Aktion ausführen. Die DateTime-Funktionen kannst du zum Vergleichen mit der Systemzeit verwenden.

Grüße, Matze

Die Differenz aus Systemzeit und Versende_Zeit ermitteln, und dann mit dem Timer hochzählen.

In 15 Minuten -> Timer.Interval := 15000, zu einer bestimmten Uhrzeit könntest Du im Timer die aktuelle Zeit pollen und vergleichen (natürlich mit einer gewissen Toleranz).

DeddyH
dir ist aber schon bewusst, dass 15.000 Millisekunden 15 Sekunden sind, oder ?
Wenn dann 900.000 ms

klar

Zitat von DeddyH:

In 15 Minuten -> Timer.Interval := 15000, zu einer bestimmten Uhrzeit könntest Du im Timer die aktuelle Zeit pollen und vergleichen (natürlich mit einer gewissen Toleranz).

markieren

Delphi-Quellcode:

procedure TForm1.Zeitversetzt_Senden;
var Systemzeit,Systemzeit_Datum,Versende_Zeit_Datum,Versende_Zeit,Differenz:TDatetime;
begin
Systemzeit:=Time;
Systemzeit_Datum:=Date;
Versende_Zeit:= Datetimepicker2.Time;
Versende_Zeit_Datum:=Datetimepicker1.Date;
If Systemzeit_Datum = Versende_Zeit_Datum then
Differenz:= Versende_Zeit - Systemzeit;
end;

aber wie rechnet man die Differenz in Timer1.Intervall um , wenn Timer1.Intervall:=1000 ist ?????

Musst Du doch gar nicht. Wie schon beschrieben, merk Dir die "Startzeit" und schau im Timer nach, ob sie erreicht ist.

Zitat von DeddyH:

Musst Du doch gar nicht. Wie schon beschrieben, merk Dir die "Startzeit" und schau im Timer nach, ob sie erreicht ist.

Achso, jetzt hab ichs kapiert.....

markieren

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:= 1000;
if Systemzeit = Versende_Zeit then
Zeitversetzt_Senden;

end;

Das wird so wahrscheinlich nicht funktionieren, Du solltest auf größer oder gleich abfragen.