Outlook: Sprache erkennen

[Fennek]

Hallo,

mit Hilfe von MS-Word (Verweis setzen) kann die Sprache einer EMail erkannt werden. Dieser Code zeigt "Wahr" im Debug-Fenster, falls in einem der ersten 5 Adsätze die Sprache nicht deutsch (wdGermanAustria, wdSwissGerman) sein sollte:

Code:

Sub Language()
Dim EML As MailItem, Doc As Document, rng As Range
Dim i As Integer, bo As Boolean

Set EML = ActiveExplorer.Selection(1)

Set Doc = EML.GetInspector.WordEditor

For i = 1 To 5
    Set rng = Doc.Paragraphs(i).Range
    If rng.LanguageID <> wdGerman Then bo = True 'wdGerman= 1031
    If rng.LanguageID = wdSwissGerman Then bo = False
    If rng.LanguageID = wdGermanAustria Then bo = False
    Debug.Print i, rng.LanguageID
Next i

Debug.Print "andere Sprache:", bo
End Sub

Vielleicht hilft es manchmal.


mfg