Attached a zipfile of the whole routine. Import the bas file into a module. Scroll down and read the text in capital letters. I'll post important part here. It is for office 2003 only. If you want 2007 you'll probably need to alter the path.
Charlize
' GET/SET SPELLING LANGUAGE FOR OUTLOOK 2003
'Created by D.Hlad - This code is public domain
Sub GetCurrentSpellingLanguage()
Dim CurrentSpellingLanguage As String
'REMARK BY CHARLIZE : LOOK AT THE PATHSTRING = THE ONE FOR OFFICE 2003
'OTHER OFFICES HAVE PROBABLY A DIFFERENT PATH
CurrentSpellingLanguage = ReadRegistry(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Outlook\Options\Spelling\", "Speller")
End Sub
Sub SetSpellingLanguage(LanguageCode As String)
Dim NewSpellingLanguage As String
NewSpellingLanguage = LanguageCode & "\Normal"
WriteRegistry HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Outlook\Options\Spelling\", "Speller", ValString, NewSpellingLanguage
End Sub
Sub SetLanguageDutchBelgium()
'These are the routines you call to change spellinglanguage
'Website holding the codes : http://support.microsoft.com/kb/221435
SetSpellingLanguage ("2067")
End Sub
Sub setlanguageFrenchBelgium()
SetSpellingLanguage ("2060")
End Sub
Sub SetLanguageUK()
SetSpellingLanguage ("2057")
End Sub
Sub SetLanguageUS()
SetSpellingLanguage ("1033")
End Sub
Sub SetLanguageES()
SetSpellingLanguage ("3082")
End Sub
Sub SetLanguageHR()
SetSpellingLanguage ("1050")
End Sub
Sub SetLanguageCAT()
SetSpellingLanguage ("1027")
End Sub
Sub SetLanguagePOR()
SetSpellingLanguage ("2070")
End Sub