40tude Dialog holt E-Mails und News standardmäßig nicht von selber ab, dies mußt du von Hand erledigen. Allerdings kannst du per Script diese Aktionen automatisieren.
Zuerst binden wir dazu folgende Codezeilen in OnStartup ein. Diese bewirken, daß 40tude Dialog beim Start neue Mails und News gleich direkt abholt und es wird je ein Timer initialisiert und gestartet, der das dann in weiterer Folge und in einstellbaren Zeitintervallen unabhängig für Mails und News macht.
Program OnStartup;
Const
// Mails und News automatisch abholen lassen
// Ladeintervall in MINUTEN für Mails
Time4Mails = 15;
// Ladeintervall in MINUTEN für News
Time4News = 5;
Procedure OnStartup();
Begin
// Mails und News abrufen
ADo('GetNewEmailsForAllIdentities')
ADo('GetNewHeadersInSubscribedGroups');
// Timer für Mails stellen
With Timer1 Do
Begin
Interval := 60000 * Time4Mails;
Enabled := True;
End;
// Timer für News stellen
With Timer2 Do
Begin
Interval := 60000 * Time4News;
Enabled := True;
End;
End;
Begin
End.
So, damit wäre das Wichtigste schon mal erledigt. Jetzt müssen wir nur noch den Timern sagen, was sie tun müssen.
Der Timer1 für Mails ...
Program OnTimer1;
Procedure OnTimer1;
Begin
ADo('GetNewEmailsForAllIdentities');
End;
Begin
End.
... und der Timer2 für die News
Program OnTimer2;
Procedure OnTimer2;
Begin
ADo('GetNewHeadersInSubscribedGroups');
End;
Begin
End.
Das war's jetzt schon - die Scripte noch kompillieren und 40tude Dialog neu starten. In Zukunft werden Mails und News dann automagisch abgeholt.
