[NEW] Sound bei eingehender E-Mail

29/11/2008 - 21:23 von Dietmar Vollmeier | Report spam
Servus allerseits!

Hier ein kurzes Script, welches einen Sound bei eingehender E-Mail
abspielt.

Kopiere folgenden Code als Ganzes in *OnEmailChecked*. Falls dort schon
was steht, dann bitte Code veröffentlichen, ich binde dir dann die
Funktion ein.

8<--[ *OnEmailChecked* ]>8
{*******************************************************************************
* OnEmailChecked *
********************************************************************************

Dieses Ereignisscript wird ausgeführt, wenn eine E-Mail empfangen oder geprüft
wird.

*******************************************************************************}

Program OnEmailChecked;

Const
{}
{ Anwenderspezifische Einstellungen }
{}

// Pfad und Name der Sounddatei
Sound = 'sounds\post.wav';

{}
{ Ende der Einstellungen }
{}

//--[ Function PlaySound ]-\\
Function PlaySound(Filename: PChar; Options: LongWord) : Boolean;
external 'sndPlaySoundA@winmm.dll stdcall';
//--[ Procedure OnEmailChecked ]-\\
Procedure OnEmailChecked(
Identity : String;
FetchedCount,
TotalOnServerBefore,
TotalOnServerAfter : Integer
);
Begin
// Sound abspielen
PlaySound(Sound, 1)
End;
//-\\
Begin
End.
8<->8

Hier noch die Dame von der Post, die dich über eintreffende Nachrichten
informiert: http://4d.vollmeier.at/downloads/post.zip

Kopiere die entpackte WAV-Datei nach 40tude-Programmverzeichnis/sounds/
Falls du die Datei woanders hin entpackst, passe bitte noch den Pfad im
Script an.

und tschüss,
Didi
Signatur? Klar, hat doch jeder.
 

Lesen sie die antworten

#1 Dietmar Vollmeier
29/11/2008 - 21:25 | Warnen spam
*Dietmar "INGRID" Vollmeier* schrieb am 29.11.2008 um 21:23 Uhr...
[Script]

Sorry, sollte hier nicht hin!

und tschüss,
Didi
"Email is a totally unsaleable product."

Ähnliche fragen