在 Outlook 2007 中使用指定语言的 VBA 进行拼写检查

Question

我正在尝试使用以下宏进行拼写检查并发送 Outlook 电子邮件：

Sub SpellIt()
Dim oMail As Outlook.MailItem
Dim oDoc As Word.Document

Set oMail = Application.ActiveInspector.CurrentItem
Set oDoc = Application.ActiveInspector.WordEditor

oMail.Save    
oDoc.Content.LanguageID = wdGerman

oDoc.CheckSpelling

oMail.Save

oMail.Send
End Sub

---

我需要能够将语言明确设置为德语，我发现可以使用 Content.LanguageID 来完成，但这不包括主题行。如何设置主题行的语言？当然，能够为整个文档设置它会更好，但我不能将 LanguageID 应用于 .Document

有什么想法吗？

谢谢， 重做

Answer 1

wordeditor 用于电子邮件的正文中（在某些情况下它也会为空）。因此，您将无法以这种方式使用它。

oMail.Subject 将为您提供主题文本，我猜您可以将其复制到新文档中并进行拼写检查，然后将其复制回来？或将其插入到您已知范围内的 wordeditor 中，然后检查并将主题设置回删除原始范围等。