Converting text to speech in VBA
Public Sub say(sTerm As String) Dim spv As Object Set spv = CreateObject("SAPI.SpVoice") spv.Speak sTerm Set spv = Nothing End Sub
With mailItem .Subject = tg.tagJob.key .BodyFormat = olFormatHTML .HTMLBody = tg.htmlResults .Display (False) say .Body End With
bruce mcpherson is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Based on a work at http://www.mcpher.com. Permissions beyond the scope of this license may be available at code use guidelines