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...
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/forum/outlook-ordner-ploetzlich-englisch-15236.html
Ausgedruckt am: 23.12.2024 um 03:12 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
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
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.
Gruß
Egbert
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
Egbert