Проверка орфографии с VBA в Outlook 2007 на указанном языке

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

Worderitor используется в теле письма (при определенных условиях он также будет нулевым). Таким образом, вы не сможете работать с ним таким образом.

oMail.Subject получит вам текст темы. Я полагаю, вы можете скопировать его в новый документ и проверить орфографию, а затем скопировать обратно? или вставьте его в свой адрес в известном диапазоне, а затем проверьте и верните объект, удалите исходный диапазон и т. д.