如何确定使用 VBA 编写电子邮件的语言

Question

在我的项目中，我想在我的工作场所自动化以下任务：

• 邮件分类 此任务包括阅读电子邮件、检测电子邮件的语言并将电子邮件发送到 Outlook 中的特定文件夹。 假设收件箱有两封电子邮件，一封是英文，另一封是法文。

程序应将电子邮件发送给例如 Jack EN 用于英语电子邮件，Julie FR 用于法语电子邮件。

到目前为止，我有这个：

Sub TriageEmails()
    Dim myolApp As Outlook.Application
    Dim aItem As Object 

    Set myolApp = CreateObject ("Outlook.Application")
    Set mail = myolApp.ActiveExplorer.CurrentFolder

    For Each AItem In mail.Items    
        `i guess the code will be here 
    Next aItem
End Sub

Answer 1

你不能。您可能能够检测到代码页（如电子邮件标头中指定的 - 请参阅 MailItem.InternetCodepage 属性），但这不会告诉您任何有关语言的信息。如果同一封电子邮件中有多种语言或代码页，您会怎么做？

你可以尝试使用IMultiLanguage3::DetectOutboundCodePage，但我认为你不能在VBA中访问IMultiLanguage。