Outlook 2000 français dans la langue de Shakespear !

Outlook 2000 français dans la langue de Shakespear ! - Windows & Software

Marsh Posté le 14-01-2005 à 10:14:53    

Bjr à tous,
 
Mon probleme est assez répendu, je sais, mais les solutions apportées ne fonctionnent pas.
J'administre un réseau avec un serveur de messagerie (Exchange 2000) et je me trouve à croiser des clients ayant leur Bal sous Outlook 2000 dont les dossiers sont en anglais (Inbox, Deleted Items .....). Alors, j'ai bien sur cherché à régler le problème en utilisant la commande "Outlook.exe /resetfoldernames". J'étais bien content d'avoir trouvé cette soluce, vu qu'on ne croise pas souvent ce genre de problème sur les forums.....
 
Mais, MALHEUR :fou:, cette commande ne fonctionne pas sous Outlook 2000. Windows m'insulte en me disant que le commutateur n'existe pas pour Outlook 2000 !!!! Alors je cherche qqun qui connaitrait la soluce pour la version 2000 de mon logiciel de messagerie.
Merci d'avance....

Reply

Marsh Posté le 14-01-2005 à 10:14:53   

Reply

Marsh Posté le 14-01-2005 à 13:05:20    

J'avais eu le même problème sous outlook2000. En fouinant sur les forums, j'ai trouvé un thread où quelqu'un avait déposé un script vbs pour renommer les dossiers (je ne sais plus qui ni sur quel forum).
Ca a bien marché chez moi
 
-----
 
Set myOlApp = CreateObject("Outlook.application" )  
Set mynamespace = myOlApp.GetNamespace("MAPI" )  
reponse = MsgBox("voulez-vous renommer vos dossiers Outlook en français", 1, "Renommage des dossiers" )  
If reponse = vbOK Then  
        mynamespace.GetDefaultFolder(9).Name = "Calendrier"  
        mynamespace.GetDefaultFolder(10).Name = "Contacts"  
        mynamespace.GetDefaultFolder(3).Name = "Eléments supprimés"  
        mynamespace.GetDefaultFolder(16).Name = "Brouillons"  
        mynamespace.GetDefaultFolder(6).Name = "Boîte de réception"  
        mynamespace.GetDefaultFolder(11).Name = "Journal"  
        mynamespace.GetDefaultFolder(12).Name = "Notes"  
        mynamespace.GetDefaultFolder(4).Name = "Boîte d'envoi"  
        mynamespace.GetDefaultFolder(5).Name = "Eléments envoyés"  
        mynamespace.GetDefaultFolder(13).Name = "Tâches"  
End If  
 
-----

Reply

Marsh Posté le 14-01-2005 à 14:06:17    

Le VBS fournis par µsoft qui vas bien :
 
' ----------------------------------------------------------------
' Programme : RenameMAPIFolders.vbs
' Date création : 11/01/2000
' Numéro de version: 1.0
' Auteur : Microsoft Consulting Services
' ----------------------------------------------------------------
' Programme de création/renommage des dossiers par défaut
' (en Français) pour une boite aux lettres donnée :
' %1 = Nom du serveur Exchange où sont les bàls
' %2 = Pseudonyme de la boîte aux lettres à traiter
' ----------------------------------------------------------------
Option Explicit
 
Const LocaleId=1036 'Français (Standard)
' Liste des principaux LocaleIds
' French - Standard 0x40C (1036)
' English US  0x409
' English UK  0x809
' German - Standard 0x407
' Italian   0x410
 
Const CodePage=1252 'Windows (Mutilingual)
 
Const CdoDefaultFolderInbox  = 1        'Inbox  
Const CdoDefaultFolderOutbox  = 2       'Outbox  
Const CdoDefaultFolderSentItems = 3     'Sent Items  
Const CdoDefaultFolderDeletedItems = 4  'Deleted Items  
 
Const CdoDefaultFolderCalendar = 0      'Calendar  
Const CdoDefaultFolderContacts = 5      'Contacts  
Const CdoDefaultFolderJournal = 6       'Journal  
Const CdoDefaultFolderNotes = 7         'Notes  
Const CdoDefaultFolderTasks  = 8        'Tasks  
 
Const szInbox = "Boîte de réception"
Const szOutbox = "Boîte d'envoi"
Const szSentItems = "Eléments envoyés"
Const szDeletedItems = "Eléments supprimés"
 
Const szCalendar = "Calendrier"
Const szContacts = "Contacts"
Const szJournal = "Journal"
Const szNotes = "Notes"
Const szTasks = "Tâches"
 
Dim szServer, szMailbox
Dim mapiSession
Dim ObjFolder
 
' Récupération des arguments : RenameMAPIFolders.vbs NomServer PseudonymeBoîteAuxLettres
If WScript.Arguments.Count <> 2 Then
 WScript.Echo "Usage:  cscript|wscript RenameMAPIFolders.vbs NomServer Pseudonyme"
 WScript.Quit
End If
 
szServer = WScript.Arguments(0)
szMailbox = WScript.Arguments(1)
 
Set mapiSession = CreateObject("MAPI.Session" )
mapiSession.SetLocaleIDs LocaleId, CodePage
 
mapiSession.Logon , , , , , , szServer & vbLf & szMailbox
 
' On teste la langue du dossier "Inbox"..  
if mapiSession.Inbox.Name = szInbox then
 WScript.Echo szMailbox & " - OK"
else
 WScript.Echo szMailbox & " - renommage des dossiers en cours"
 ' Renommer les différents dossiers par défaut (4 dossiers par défaut)
 Set objFolder = mapiSession.GetDefaultFolder(CdoDefaultFolderInbox)
        objFolder.Name = szInbox
 Set objFolder = mapiSession.GetDefaultFolder(CdoDefaultFolderOutbox)
        objFolder.Name = szOutbox
 Set objFolder = mapiSession.GetDefaultFolder(CdoDefaultFolderSentItems)
        objFolder.Name = szSentItems
 Set objFolder = mapiSession.GetDefaultFolder(CdoDefaultFolderDeletedItems)
        objFolder.Name = szDeletedItems
 
 ' Autres dossiers Outlook
 Set objFolder = mapiSession.GetDefaultFolder(CdoDefaultFolderCalendar)
       objFolder.Name = szCalendar
 Set objFolder = mapiSession.GetDefaultFolder(CdoDefaultFolderContacts)
       objFolder.Name = szContacts
 Set objFolder = mapiSession.GetDefaultFolder(CdoDefaultFolderJournal)
       objFolder.Name = szJournal
 Set objFolder = mapiSession.GetDefaultFolder(CdoDefaultFolderNotes)
       objFolder.Name = szNotes
 Set objFolder = mapiSession.GetDefaultFolder(CdoDefaultFolderTasks)
       objFolder.Name = szTasks
 set objFolder = nothing
 if mapiSession.Inbox.Name = szInbox then
  WScript.Echo szMailbox & " - renommage OK"
 else
  WScript.Echo szMailbox & " - erreur lors du renommage"
 end if
end if
 
mapiSession.Logoff
set mapiSession = nothing
 
Wscript.Echo "Terminé !"
 
Il renome tout sauf le repertoire "Brouillion" il le laisse en "Draft"

Reply

Marsh Posté le 14-01-2005 à 17:09:19    

Merci pour les infos.... je vais essayer cela dès mon retour au boulot, c'est à dire lundi. Je vous tiens au courant de l'évolution. Merci les gars. Je suis toujours ouvert à d'autres solutions. Ces scripts vont bcp m'aider, mais j'ai à peu près 400 machines à vérifier. L'idéal, c'est que j'aie à faire la manip directement à la connection du client.
Mais les script me sont d'un très grand secours. Ca ne va pas m'empecher de m'ateler à la tâche dès lundi matin.
 
Merci encore

Reply

Marsh Posté le 17-01-2005 à 09:40:47    

J'ai essayé la manip qui m'a été proposée. Elle fonctionne, mais ça reste fastidieux....  
Je cherche donc un moyen de réinitialiser les paramètres de boite aux lettres par le réseau chez mes clients.....
Je ne sais plus quoi faire et je tourne en rond....
Et du côté du serveur Exchange, y a t'il qqchose à faire ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed