40tude fragt Mails nicht automatisch ab

08/07/2010 - 12:49 von franc walter | Report spam
Hallo,

mir fàllt auf, dass 40tude (2.0.15.84 b38) zwar meine abonnierten Newsgroups
regelmàßig abfragt, nicht aber meinen Mailaccount.
Nur beim Neustart wird der zwar erfolgreich abgefragt, nicht aber beim
OnTimer1.

Ich habe die Skripte ordentlich eingestellt und auch die Skriptausführung
aktiviert, vielleicht fàllt einem fachkundigen da was auf:

Skriptverwaltung / Ereignisskripte / OnStartup:

program OnStartup;
procedure OnStartup;
begin
ADo('GetNewHeadersInSubscribedGroups');
ADo('GetNewEmailsForAllIdentities');
//Mails
timer1.interval:`000*2; //Intervalllànge in Minuten mit letzter Ziffer
àndern
timer1.enabled:=true;
//News
timer2.interval:`000*10; //Intervalllànge in Minuten mit letzter Ziffer
àndern
timer2.enabled:=true;
end;
begin
end.

OnTimer1:

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

OnTimer2:

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

OnEmailChecked:

program OnEmailChecked;

function MessageBox( hWnd: LongWord; lpText, lpCaption: PChar;
uType: LongWord ): Integer;
external 'MessageBoxA@user32.dll stdcall';

function PlaySound( Filename: PChar; Options: LongWord ): Boolean;
external 'sndPlaySoundA@winmm.dll stdcall';

procedure OnEmailChecked(Identity:string; FetchedCount, TotalOnServerBefore,
TotalOnServerAfter: integer);

var s: String;
begin
if FetchedCount = 0 then exit; // no new mails

PlaySound( 'c:\windows\media\tada.wav', 1 );

s := 'Neue Nachrichten! ' + inttostr(FetchedCount) + ' Mail(s)';
MessageBox( 0, s, 'Nachrichten', $40 );

end;

begin
end.


Danke,
: franc walter
 

Lesen sie die antworten

#1 Wolfgang Bauer
08/07/2010 - 14:43 | Warnen spam
franc walter schrieb:

Hallo,

mir fàllt auf, dass 40tude (2.0.15.84 b38) zwar meine abonnierten Newsgroups
regelmàßig abfragt, nicht aber meinen Mailaccount.
Nur beim Neustart wird der zwar erfolgreich abgefragt, nicht aber beim
OnTimer1.

Ich habe die Skripte ordentlich eingestellt und auch die Skriptausführung
aktiviert, vielleicht fàllt einem fachkundigen da was auf:

Skriptverwaltung / Ereignisskripte / OnStartup:

program OnStartup;
procedure OnStartup;
begin
ADo('GetNewHeadersInSubscribedGroups');
ADo('GetNewEmailsForAllIdentities');
//Mails
timer1.interval:`000*2; //Intervalllànge in Minuten mit letzter Ziffer
àndern


^
timer1.enabled:=true;



Ich gehe davon aus, daß Du im Script selbst keine Zeilenumbrüche hast.
(Die lassen sich mit Shift+Ctrl+O verhindern)

Hast Du OnStartup und OnTimer1 danach auch kompiliert?

Mit freundlichen Grüßen
Wolfgang Bauer
*Wichtig*
Neueinrichtung von de.comp.office-pakete.ms-office.[excel/outlook/powerpoint]
Infos und Termine: news:de.admin.news.announce. Mach mit und schau nicht weg!
Die 40tude-Dialog FAQ http://www.wolfgang-bauer.at/4td_faq/

Ähnliche fragen