title image


Smiley Einfach über einen Agent der die Ansicht/den Ordner in dem die ...
eingehenden Mails drin stehen abfragt und für jedes Mail den entsprechnden Ton ausgibt. Mit Script gibt es da sogar die Möglichkeit entsprechende mp3 Files abzuspielen.



Das stammt micht von mir sondern ursprünglich von Allan Reinhold Kildeby.



(1.) Declare the Function



Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpszCommand As String, ByVal lpszReturnString As String, ByVal cchReturnLength As Long, ByVal hwndCallback As Long) As Long



(2.) Use "mciSendString" to invoke the commands:



Syntax: mciSendString(sCommand, 0, 0, 0)

where sCommand is:

Load the mp3 file:= "open " & sMp3FileLocation & " type MPEGVideo alias Mp3File"

Play the mp3 file (Now you can use the Alias):= "play Mp3File" from 0"

Pause:= "pause Mp3File""

Stop:= "stop Mp3File"

and unload from mem, unlock file:= "close Mp3File"

(3.) put the commands into a button for testing purpose



Sub Click(Source As Button)

Dim sCommand As String

Dim sMP3FileLocation As String

sMP3FileLocation = "whateverMP3youlike.mp3"

sCommand = "Open " & sMP3FileLocation & " type MPEGVideo alias MP3File"

Call mciSendString(sCommand, 0, 0, 0)







scommand = "play MP3File from 0"

Call mciSendString(sCommand, 0, 0, 0)

Msgbox "OK"

scommand = "stop MP3File"

Call mciSendString(sCommand, 0, 0, 0)

scommand ="close MP3File"

Call mciSendString(sCommand, 0, 0, 0)

End Sub



Thomas




Notes und Exchange, das ist wie Ferrari und Lada. Dreimal darfst du raten was der Ferrari ist.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: