*Thomas Barghahn* schrieb:
> *Wolfgang Bauer* meinte:
>> Thomas Barghahn schrieb:
>>> Schau erst einmal in die Ferne (TV). Morgen ist auch noch ein Tag. Wobei
>>> du jetzt ja eigentlich "Post von Thomas" hören solltest.
>> Wenn, müßte ich post.wav "Sie haben Post" hören, ist aber nicht.
>> Für Sound6 = 'post.wav'; //{ *BITTE KONTROLLIEREN* }
>> ist keine Bedingung definiert. Die Sounds werden nach der jeweiligen MID
>> ausgewählt, wenn ich eine Mail bekomme geht das nicht per MID.
>> In meiner Unkenntnis habe ich versucht
>> If (Pos('
wolfgan...@gmx.eu', TO) > 0) then begin
>> PlaySound(Sound6, 1);
>> Sleep(2450);
>> end;
>> Kompilieren fehlgeschlagen
>> [Error] OnXOver.ds(130:30): Syntax error
> Das kann so auch nicht funktionieren, da der Type "TXOverData" die
> öffentliche Konstante "To" nicht unterstützt! Siehe hierzu auch die
> Hilfe von Dialog.
> Allerdings habe ich hier ein Script gebastelt, welches einen Sound bei
> eintreffenden Mails ausgibt.
> Dazu müsste ich aber wissen, wie dein "OnBeforeSaveM" ausschaut.
> Freundliche Grüße
> Thomas Barghahn 😷
OnBeforeSaveM gibt es nicht bzw. es ist leer. Im Dialog mit Basis_Modul
macht es das Script
program OnEmailChecked;
Uses TextFile;
{$i Basis_Modul_include}
procedure OnEmailChecked(Identity:string; FetchedCount,
TotalOnServerBefore, TotalOnServerAfter: integer);
begin
if FetchedCount>0 then begin
//nur abspielen, wenn mindestens eine Mail heruntergeladen
BM_PlaySound(BM_Sound6, 1);
end;
end;
begin
end.
Freundliche Grüße
Wolfgang 😷
--
Natürlicher Verstand kann fast jeden Grad von Bildung ersetzen,
aber keine Bildung den natürlichen Verstand.
Arthur Schopenhauer