在 OUTLOOK 中自动朗读发件人和邮件主题

引言

你是否想过，Outlook 是否具有朗读新邮件的功能？ 这具有挑战性，因为 Outlook 中的文本转语音集成不够灵活，但是可以通过利用 Microsoft Excel 应用程序对象来实现。

是的，可以通过创建一个简单的宏来调用 Excel 文本转语音集成，并将其与规则关联，如下所示。

使用代码

打开 Outlook 电子邮件客户端并按“Alt + F11”，这将加载 VBA 编辑器。 请创建如下朗读方法。

Public Sub AnnounceMail(Item As Outlook.MailItem)

    Dim xlApp As Object
 
    Dim strFrom As String
    Dim strMessageType As String
    Dim ReadOutText As String
    
    Set xlApp = CreateObject("Excel.Application")
    
    strFrom = Split(Item.Sender, " ")(0)
    strMessageType = Right(Item.Subject, 3)
            
     ReadOutText = "Master,"
     
Select Case strMessageType
    Case "RE:"
        ReadOutText = ReadOutText & strFrom & " replied to an email regarding, " & Item.ConversationTopic
    Case "FW:"
       ReadOutText = ReadOutText & strFrom & " Forwarded an email regarding, " & Item.ConversationTopic
    Case Else
      ReadOutText = ReadOutText & "You have an email from " & strFrom & " regarding, " & Item.ConversationTopic
End Select
    
     ReadOutText = ReadOutText & "."
     
    xlApp.Speech.Speak ReadOutText
    xlApp.Quit
    
    Set xlApp = Nothing

End Sub

关注点

Set xlApp = CreateObject("Excel.Application")

“Annouse mail”方法将利用 Excel 访问文本转语音引擎。

xlApp.Speech.Speak ReadOutText

这段代码将调用 Windows 语音引擎！

步骤 2

下一步是创建如下 Outlook 电子邮件规则，并将其与 AccountMail 方法关联。

规则应在消息到达此计算机时运行。

 

 

完成！ Outlook 将开始朗读你所有的新邮件。