[NEW] Sound bei eingehender E-Mail

29/11/2008 - 21:26 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 Wolfgang Bauer
29/11/2008 - 21:42 | Warnen spam
Servus DiDi.
Dietmar Vollmeier wrote:

Äh Dietmar das ist nun wirklich nicht [NEW]
Dieses Script hatte ich schon vor vielen Jahren als ich Dialog noch als
Mailclient nutzte eingesetzt.

8<->8
program OnEmailChecked;

function MessageBox( hWnd: LongWord; lpText, lpCaption: PChar;
uType: LongWord ): Integer;
external ' stdcall';

function PlaySound( Filename: PChar; Options: LongWord ): Boolean;
external ' 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\post.wav', 1 );

s := 'Still none from Meg Ryan, but '
+ inttostr(FetchedCount) + ' from others!';
// MessageBox( 0, s, 'You''ve Got Mail!', $40 );
end;

begin
end.
8<->8

Freundliche Grüße
Wolfgang
http://www.wolfgang-bauer.at
40tude-Dialog DER Newsreader unter Windows http://dialog.datalist.org/
news:de.comm.software.40tude-dialog
40tude-Dialog Forum http://4ds.siteboard.eu/

Ähnliche fragen