avec VBA Spellcheck dans Outlook 2007 dans une langue donnée

Question

Je suis en train de vérifier l'orthographe et envoyer un e-mail perspectives en utilisant la macro suivante:

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 

---

Je dois être en mesure de régler la la langue explicitement à l'allemand et j'ai trouvé qu'il peut être fait en utilisant Content.LanguageID, mais cela n'inclut pas la ligne d'objet. Comment puis-je définir la langue de la ligne d'objet? Bien sûr, il serait encore mieux de pouvoir le définir pour tout le document, mais je ne peux pas appliquer LanguageID à .Document

Des idées?

Merci, Reto

Answer 1

Le WordEditor est utilisé dans le corps de l'e-mail (dans certaines conditions, il sera nul aussi bien). Donc, vous ne seriez pas capable de travailler de cette façon.

oMail.Subject vous obtiendra le texte du sujet Je suppose que vous pouvez copier cela dans un nouveau document et vérifier l'orthographe puis le recopier? ou insérez-le dans votre wordeditor dans une gamme connue puis vérifiez et réglez le sujet en arrière effacez la gamme originale etc.