*******************Code I am using from Sample*****************
Dim FileName As String
Dim FileStream As New SpFileStream
Dim Voice As SpVoice
'Create SAPI voice
Set Voice = New SpVoice
'Assume that ttstemp.txt exists
FileName = "c:\ttstemp.txt"
'Open the text file
FileStream.Open FileName, SSFMOpenForRead, True
'Select Microsoft Sam voice
Set Voice.Voice = Voice.GetVoices("Name=Microsoft Mary",
"Language=500").Item(0)
'Speak the file stream
Voice.SpeakStream FileStream
'Close the Stream
FileStream.Close
'Release the objects
Set FileStream = Nothing
Set Voice = Nothing
******************************************************************************
Bye,
Viki.
--
This posting is provided "AS IS" with no warranties, and confers no rights.
"Vikrama Sanjeeva" <vikrama...@hotmail.com> wrote in message
news:19d67fc7.03121...@posting.google.com...