soldier
Goto Top

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...

Content-Key: 15236

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

Printed on: April 19, 2024 at 20:04 o'clock

Mitglied: 7656
7656 Aug 31, 2005 at 10:49:44 (UTC)
Goto Top
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
Member: Soldier
Soldier Aug 31, 2005 at 11:15:55 (UTC)
Goto Top
Sorry, aber solche Tools widersprechen leider den Richtlinien unserer IT-Sicherheit. Trotzdem danke.
Member: meto
meto Aug 31, 2005 at 11:51:46 (UTC)
Goto Top
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
Member: Soldier
Soldier Aug 31, 2005 at 13:20:48 (UTC)
Goto Top
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...
Member: Egbert
Egbert Aug 31, 2005 at 19:13:19 (UTC)
Goto Top
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
Member: Sinac
Sinac Oct 31, 2005 at 11:51:54 (UTC)
Goto Top
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.
Member: Egbert
Egbert Oct 31, 2005 at 12:59:29 (UTC)
Goto Top
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 
Gruß
Egbert