Spellcheck with VBA in Outlook 2007 in a specified language

Question

Hello

I'm trying to spell check and send an outlook e-mail using the following macro:

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

---

I need to be able to set the language explicitly to German and I found it can be done using Content.LanguageID, but this does not include the subject line. How can I set the language for the subject line? Of course it would be even better to be able to set it for the whole document, but I cannot apply LanguageID to .Document

Any ideas?

Thanks, Reto

Answer 1

The wordeditor is used in the body of the email (in certain conditions it will be null as well). So you would not be able to work with it that way.

oMail.Subject will get you the subject text I guess you can copy that into a new document and spellcheck that then copy it back? or insert it into you wordeditor in a know range and then check and set the subject back delete the orginal range etc.