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

我正在尝试使用以下宏进行拼写检查并发送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

有什么想法吗

谢谢，

---

Reto

在电子邮件正文中使用wordeditor（在某些情况下，它也将为空）。所以你不能用这种方式工作

---

oMail.Subject会给你主题文本，我想你可以把它复制到一个新的文档中，并检查拼写，然后再复制回来？或者在已知范围内将其插入wordeditor，然后检查并设置主题，删除原始范围等。

嘿。。。谢谢你的回答。让我恼火的是，oDoc.CheckSpelling也在检查主题，所以我假设主题也应该在WordEditor中的某个位置……对此我会有一个想法，因为我似乎记得WordEditor对象中可能嵌入了电子邮件标题。你能为你的问题提供更多的背景吗？为什么不使用outlook拼写检查？