Leaving a voice message !

[Mimo]

Leaving a voice message !

How to dial a number and when answered, leave a voice message and hang up.

Conditions:

1-The message is a wave sound
2-Voice modem


PLZ HELP!!
Thanks a lot!!

you can download socketwrench at http://www.catalyst.com its a freeware OCX. look for socketwrench. socket tools is the one that you buy.
socketwrench comes with a dialer, I dont think i can help you with the code, I am not much into dialing the phone, and using wav's in VB..

[HeSaidJoe]

..have never tried the 1st part of your question
but this is the second.
'Play A sound
'Paste this code into a bas module
'
'API Function to play the sound
'
Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
'
' play synchronously (default)
Public Const SND_SYNC = &H0
' play asynchronously
Public Const SND_ASYNC = &H1
' loop the sound until next
Public Const SND_LOOP = &H8

'=====================================================

'Paste this code into the main
'from your main program (button or load or whatever):
'call the function using your wave file & location..replace "A:\whoosh.wav"
'
Call sndPlaySound(ByVal "a:\whoosh.wav", SND_ASYNC)

[coox]

Yo Joe, just thought I'd point out that, whilst your bit of code there does indeed play sound (and it's a nice bit of code, doesn't need any silly components or anything) it only plays it through the soundcard, and not, as Mimo requested, through the modem. So whadya say to that then? :-)