Add a reference to the SAPI
Create a general procedure to use.
Public Sub say(sTerm As String)
Dim spv As Object
Set spv = CreateObject("SAPI.SpVoice")
spv.Speak sTerm
Set spv = Nothing
End Sub
Use it
In this case, A tagCloud in Outlook will say the tagCloud, as well as displaying it.
With mailItem
.Subject = tg.tagJob.key
.BodyFormat = olFormatHTML
.HTMLBody = tg.htmlResults
.Display (False)
say .Body
End With