Outlook - Sprachen Switchen

Dieses Thema im Forum "Anwendungssoftware" wurde erstellt von master80, 11. März 2010 .

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 11. März 2010
    Hi Leute,
    gibt es eine Möglichkeit bei Outlook zwischen 2 Sprachen zu switchen ?

    Szenario:
    - Ich schreibe viele Mails am Tag, deutsche wie englische ...
    - die Rechtsschreibprüfung läuft bei mir vor dem Versand automatisch
    - möchte davor per Oneklick Outlook anzeigen in welcher Sprache die Mail geschrieben ist,
    damit es in der richtigen Sprache nach Fehler prüft ...


    Hab per Google nix gefunden, einer eine Idee ???

    bb. master80
     
  2. 11. März 2010
    AW: Outlook - Sprachen Switchen

    Nun Selbst gelöst, bzw. doch gefunden

    Hier für alle die es eventuell auch brauchen:

    PHP:
    Option Explicit
     
    Public  Sub SetGermanSpelling ()
        
    ' Deutsche Rechtschreibprüfung einstellen
        Call SetSpelling("Deutsch")
    End Sub
     
    Public Sub SetEnglishSpelling()
        ' 
    Englische Rechtschreibprüfung einstellen
        Call SetSpelling
    ( "Englisch" )
    End Sub

    Private  Sub SetSpelling ( ByVal strLanguage  As  String )
     
        
    '=====================================================================
        ' 
    Schaltet  die  Rechtschreibprüfung per Mausklick um .
        
    ' Funktioniert nur bis Outlook 2003
        ' 
    ( c Peter Marchert  http : //www.outlook-stuff.com
        
    ' 2008-11-12 Version 1.0.0
        '
    =====================================================================
     
        
    Dim strVer  As  String         ' Outlook®-Version
        Dim strRegKey As String     ' 
    Schlüssel für  die  Rechtschreibprüfung
        Dim blnResult 
    As  Boolean     ' Umstellung erfolgreich
     
        '
    ---------------------------------------------------------------------
        
    ' Outlook®-Version ermitteln
        '
    ---------------------------------------------------------------------
        
    Select  Case  Left ( Outlook . Version 2 )
            Case 
    "9." strVer  "9.0"    ' Outlook® 2000
            Case "10": strVer = "10.0"   ' 
    Outlook® 2002
            
    Case  "11" strVer  "11.0"   ' Outlook® 2003
        End Select
     
        '
    ---------------------------------------------------------------------
        
    ' Registrierungsschlüssel zusammensetzen
        '
    ---------------------------------------------------------------------
        
    strRegKey  "HKCU\Software\Microsoft\Office\" & strVer & " \ Outlook \ Options \ Spelling \ Speller "
     
        '---------------------------------------------------------------------
        ' Sprache umschalten
        '---------------------------------------------------------------------
        Select Case strLanguage
            Case "
    Deutsch "
                blnResult = RegWrite(strRegKey, "
    1031Normal ")
            Case "
    Englisch "
                blnResult = RegWrite(strRegKey, "
    1033Normal ")
            Case Else
                MsgBox "
    Es ist keine Sprache definiert . ", vbCritical + vbOKOnly
                Exit Sub
        End Select
     
        '---------------------------------------------------------------------
        ' Umschaltung erfolgreich?
        '---------------------------------------------------------------------
        If blnResult Then
            MsgBox "
    Die  Rechtschreibprüfung wurde auf  " & strLanguage & _
                " 
    umgestellt . ", vbInformation + vbOKOnly
        Else
            MsgBox "
    Die  Rechtschreibprüfung konnte nicht auf  " & strLanguage & _
                " 
    umgestellt werden . ", vbCritical + vbOKOnly
        End If
     
    End Sub
     
    Private Function RegWrite(ByVal strKey As String, ByVal varValue As Variant) As Boolean
     
        '=====================================================================
        ' Schreibt Daten in die Registrierung
        ' 2008-11-12 Version 1.0.0
        '=====================================================================
     
        Dim objWsh As Object
     
        On Error Resume Next
     
        '---------------------------------------------------------------------
        ' Windows Script Host instanzieren
        '---------------------------------------------------------------------
        Set objWsh = CreateObject("
    WScript . Shell ")
     
        '---------------------------------------------------------------------
        ' Daten in Registrierung schreiben
        '---------------------------------------------------------------------
        Call objWsh.RegWrite(strKey, varValue)
     
        '---------------------------------------------------------------------
        ' Prüfen, ob Wert geschrieben wurde
        '---------------------------------------------------------------------
        If RegRead(strKey) = varValue Then RegWrite = True
     
        '---------------------------------------------------------------------
        ' Clean Up
        '---------------------------------------------------------------------
        Set objWsh = Nothing
     
    End Function
     
    Private Function RegRead(ByVal strKey As String) As Variant
     
        '=====================================================================
        ' Liest Daten aus der Registrierung
        ' 2008-11-12 Version 1.0.0
        '=====================================================================
     
        Dim objWsh As Object
     
        On Error Resume Next
     
        '---------------------------------------------------------------------
        ' Windows Script Host instanzieren
        '---------------------------------------------------------------------
        Set objWsh = CreateObject("
    WScript . Shell ")
     
        '---------------------------------------------------------------------
        ' Daten aus Registrierung lesen und zurückgeben
        '---------------------------------------------------------------------
        RegRead = objWsh.RegRead(strKey)
     
        '---------------------------------------------------------------------
        ' Clean Up
        '---------------------------------------------------------------------
        Set objWsh = Nothing
     
    End Function


    Anleitung:
    - Extras -> Makro -> Visual-Basic Editor öffnen
    - im VBE -> Einfügen -> Modul
    - nun den Quelltext reinkopieren
    - nun auf: Datei -> … speichern
    - ein neustart von Outlook ist erforderlich

    Sollte er das Makro nicht ausführen wollen:
    - muss man die Sicherheitseinstellung für Makros muss kurz anpassen
    - Extras -> Makro -> Sicherheit -> Sicherheitsstufe auf "mittel" stellen -> OK
    - Outlook neu starten

    Fertig !

    Mit "ALT+F8" kann man schließlich auswählen !

    bb. master80
     
  3. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.