ScriptFetchByInterval

From 40tude Dialog Wiki

A script to download all headers and emails on startup and to get mails at 5 and headers at 30 minute intervals.

Here is the first part for OnStartup:

program OnStartup;
procedure OnStartup;
begin
ADo('GetNewHeadersInSubscribedGroups');
ADo('GetNewEmailsForAllIdentities');
//Mails
timer1.interval:=60000*5;
timer1.enabled:=true;
//News
timer2.interval:=60000*30;
timer2.enabled:=true;
end;
begin
end.

And the second part for OnTimer1 (getting the mails):

program OnTimer1;

procedure OnTimer1;
begin
ADo('GetNewEmailsForAllIdentities');
end;

begin
end.

And the third part for OnTimer2 (getting the news):

program OnTimer2;
procedure OnTimer2;
begin
ADo('GetNewHeadersInSubscribedGroups');
end;
begin
end.