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

Posted 2021-04-05

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

• 邮件分类此任务包括阅读电子邮件，检测电子邮件的语言并在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

答案

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

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