Outlook-Ordner plötzlich englisch

Hallo,

Ich habe folgenden Ausgangszustand:

- PC per Remote installiert (Win XP Pro, Office 2003 deutsch)

- neuer Benutzer zur Anmeldung an diesem PC freigeschaltet --> Office-Ordner erscheinen plötzlich in Englisch (statt Posteingang -> Inbox, ...)

Ich weiß, dass es da einen Befehl für die Eingabeaufforderung (Ausführen...) gibt, der dieses Problem behebt. Kann ihn aber nicht mehr finden. Habt ihr eine Lösung?

MfG und sanfte Grüße...

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 15236

Url: https://administrator.de/contentid/15236

Ausgedruckt am: 22.11.2024 um 08:11 Uhr

7 Kommentare

Neuester Kommentar

Hallo Sodier
Auf dem unten aufgeführten Link kannst du ein Tool downloaden, welches die Sprache der Outlookordner ändern kann. Hoffe dir damit geholfen zu haben. Gibt doch schnell eine Rückmeldung, ob's geklappt hat.

http://www.masuch.net/

Grüssli argon

Sorry, aber solche Tools widersprechen leider den Richtlinien unserer IT-Sicherheit. Trotzdem danke.

Wer hätte es gedacht. Ein Blick in die Outlook Hilfe und siehe da:

"Zeigen Sie im Windows-Menü Start erst auf Programme, dann auf Office Tools, und klicken Sie auf Microsoft Office Spracheinstellungen."

Ich hoffe das hilft dir an der Stelle. Ich denke zumindestens das es das seien sollte.

Gruß
meto

Ich hab es gefunden...

Und zwar Start --> Auführen...

Kompletten Pfad für die outlook.exe eintragen, gefolgt von einem Leerzeichen und dem Eintrag "/resetfoldernames". Problem erledigt !

Trotzdem danke für Eure Bemühungen argon und meto !!!

MfG und best wishes...

Hallo,

diese englischen Ordnernamen kommen folgendermaßen zustande.
Eine englischsprachige Software (backup, antivirus...) greift vor dem ersten anmelden mit outlook auf die Mailbox zu.
Dann passiert das.

Gruß
Egbert

Und wie kann ich das wieder rückgängig machen? Ich habe OWA im Einsatz und das gleiche Problem, der Backup Agent lief bevor der User sich das erste mal nagemeldet hat.

Hallo,

Soldier hat die Antwort weiter oben schon gegeben,

das ganze geht auch als Script oder es gibt ein Werkzeug namens langstamp.
Wenn Du mir Deine Mailadresse sendest kann ich Dir das Teil zusenden.

Ein Script könnte z.B. so aussehen. Die Sprache ist natürlich anzupassen.

Const olFolderDeletedItems = 3 
Const olFolderOutbox       = 4 
Const olFolderSentItems    = 5 
Const olFolderInbox        = 6 
Const olFolderCalendar     = 9 
Const olFolderContacts     = 10 
Const olFolderJournal      = 11 
Const olFolderNotes        = 12 
Const olFolderTasks        = 13 
Const olFolderDrafts       = 16 


Dim Engine 
Dim Outlook 
Dim Folder 


Select Case UCase(Right(WScript.FullName, 11)) 
        Case "WSCRIPT.EXE"   
                Engine = "W"   
        Case "CSCRIPT.EXE"   
                Engine = "C"   
End Select 


Set Args = WScript.Arguments 


If Args.Count = 0 Then 
        DisplayHelp() 
        WScript.Quit 
End If 


If Args.Item(0) = "-?" Or Args.Item(0) = "/?" Or Args.item(0) = "?" Then   
        DisplayHelp() 
        WScript.Quit 
End If 


If Args.Count <> 2 Then 
        DisplayHelp() 
        WScript.Quit 
End If 


Set Outlook = CreateObject("Outlook.Application")   
Set Folder = Nothing 


Select Case UCase(Args.Item(0)) 
        Case "CALENDAR"   
                Set Folder = 
Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderCalendar)   
        Case "INBOX"   
                Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderInbox)   
        Case "OUTBOX"   
                Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderOutbox)   
        Case "SENTITEMS"   
                Set Folder = 
Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderSentItems)   
        Case "DELETEDITEMS"   
                Set Folder = 
Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderDeletedItems)   
        Case "CONTACTS"   
                Set Folder = 
Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderContacts)   
        Case "JOURNAL"   
                Set Folder = 
Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderJournal)   
        Case "NOTES"   
                Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderNotes)   
        Case "TASKS"   
                Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderTasks)   
        Case "DRAFTS"   
                Set Folder = 
Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderDrafts)   
        Case Else 
                DisplayHelp() 
End Select 


If Folder Is Nothing Then 
        WScript.Quit 
End If 


Folder.Name = Args.Item(1) 


Set Folder = Nothing 
Set Outlook = Nothing 


Sub DisplayHelp() 
        If Engine = "W" Then   
                MsgBox "RenFldr:" & vbCRLF &_   
                        " Change Name of Default Folders" & vbCRLF & vbCRLF &_   
                        "Usage: RenFldr Folder NewName" & vbCRLF & vbCRLF &_   
                        " Supported values for Folder:" & vbCRLF &_   
                        " Inbox" & vbCRLF &_   
                        " Outbox" & vbCRLF &_   
                        " Calendar" & vbCRLF &_   
                        " SentItems" & vbCRLF &_   
                        " DeletedItems" & vbCRLF &_   
                        " Contacts" & vbCRLF &_   
                        " Journal" & vbCRLF &_   
                        " Notes" & vbCRLF &_   
                        " Tasks" & vbCRLF &_   
                        " Drafts"   
        Else 
                WScript.StdOut.WriteLine "RenFldr:"   
                WScript.StdOut.WriteLine " Change Name of Default Folders" & vbCRLF   
                WScript.StdOut.WriteLine "Usage: RenFldr Folder NewName" & vbCRLF   
                WScript.StdOut.WriteLine " Supported values for Folder:"   
                WScript.StdOut.WriteLine " Inbox"   
                WScript.StdOut.WriteLine " Outbox"   
                WScript.StdOut.WriteLine " Calendar"   
                WScript.StdOut.WriteLine " SentItems"   
                WScript.StdOut.WriteLine " DeletedItems"   
                WScript.StdOut.WriteLine " Contacts"   
                WScript.StdOut.WriteLine " Journal"   
                WScript.StdOut.WriteLine " Notes"   
                WScript.StdOut.WriteLine " Tasks"   
            WScript.StdOut.WriteLine " Drafts"   
        End If 
End Sub 