Macro from excel to outlook for tts

[Rodger]

Anybody have any luck with getting the tts engine in
excel work with outlook?

Microsoft list a few examples but they aren`t much of a
help for outlook 2003.
This one is for word and I could not get it to work.

Sub TTS()
'Declare and create an Excel object.
Dim XL_tts As Excel.Application
Set XL_tts = CreateObject("Excel.Application")
XL_tts.Speech.Speak Selection
XL_tts.Quit
Set XL_tts = Nothing
End Sub


I am sure one of you can get it right !
Thanks for any help in posting a code or syntax.

Rodger