OL2002 : Comment faire pour modifier le fichier en tant que champ de tous les contacts

Traductions disponibles Traductions disponibles
Numéro d'article: 291144 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Résumé

Cet article décrit comment utiliser un formulaire Outlook et Visual Basic Scripting Edition (VBScript) personnalisé pour modifier par programme le champ Classer sous pour un grand nombre de contacts existants.

Plus d'informations

IMPORTANT : Si vous modifiez le format du champ Classer sous aide le formulaire de contact Outlook standard, Outlook garantit que le format de ce champ ne peut affecter autres zones où ce type d'informations est affiché (par exemple, en haut d'un contact lorsque vous l'affichez dans l'affichage Cartes de visite). Toutefois, cet exemple modifie simplement le champ Classer sous lui-même et par conséquent n'effectue pas la même fonction que le formulaire de contact Outlook. Microsoft vous recommande d'effectuer une copie de votre dossier contacts et d'utiliser puis l'exemple de code ci-dessous sur le dossier copié dans vous assurer que les avantages d'utilisation de cet exemple compensent les défauts potentiels de cette approche.

Remarque : lorsque vous modifiez le champ Classer sous , l'ordre dans lequel les contacts apparaissent dans le carnet d'adresses Outlook n'est pas affecté.

Microsoft fournit des exemples de programmation à des fins d'illustration uniquement, sans garantie expresse ou implicite, y compris, mais sans limitation, toute garantie implicite de qualité marchande et/ou d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Professionnels du support technique Microsoft peuvent vous expliquer la fonctionnalité d'une procédure particulière, mais ils ne modifieront pas ces exemples afin de fournir des fonctionnalités supplémentaires ou des procédures pour répondre à vos besoins spécifiques de construction.
Si vous avez partiellement la programmation, il convient contacter un partenaire certifié Microsoft ou services de conseil Microsoft. Pour plus d'informations, visitez ces sites Web de Microsoft :

Microsoft certifié Partners - https://partner.microsoft.com/global/30000104

Services de conseil Microsoft - http://support.microsoft.com/gp/advisoryservice

Pour plus d'informations sur les options de support sont disponibles et sur la façon de contacter Microsoft, consultez le site Microsoft suivant : http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSLorsque vous créez un nouveau formulaire Outlook personnalisé, vous pouvez en modifier le champ Classer sous pour tous les contacts des formats suivants :
  • Prénom nom
  • Nom, prénom
  • Société
  • Nom, Prénom (société)
  • Société (nom, prénom)

Comment faire pour créer le formulaire personnalisé

  1. Dans le menu fichier , pointez sur Nouveau , puis cliquez sur Message électronique pour ouvrir un nouveau message électronique.
  2. Dans le menu Outils du nouveau message électronique, pointez sur formulaires , puis cliquez sur Créer ce formulaire .
  3. Insérez cinq boutons de commande du formulaire de nouveau. Pour cela, procédez comme suit :
    1. Cliquez sur l'onglet (P.2) pour accéder à une page vide sur le formulaire.
    2. Dans le menu formulaire , cliquez sur Boîte à outils , cliquez sur bouton de commande et puis faites glisser le bouton vers la page de formulaire vierge.
    3. Cliquez avec le bouton nouveau droit, cliquez sur Propriétés et tapez cmdLastFirst dans la zone nom .
    4. Dans la zone légende , tapez le nom, Prénom et puis cliquez sur OK .
    5. Dans la boîte de dialogue boîte à outils , cliquez sur bouton de commande et puis faites glisser un deuxième bouton vers la page de formulaire vierge.
    6. Cliquez avec le bouton nouveau droit, cliquez sur Propriétés et tapez cmdFirstLast dans la zone nom .
    7. Dans la zone légende , tapez le Prénom, nom et puis cliquez sur OK .
    8. Dans la boîte de dialogue boîte à outils , cliquez sur bouton de commande , puis faites glisser un troisième le bouton vers la page de formulaire vierge.
    9. Cliquez avec le bouton nouveau droit, cliquez sur Propriétés et tapez cmdCompany dans la zone nom .
    10. Dans la zone légende , tapez société et cliquez sur OK .
    11. Dans la boîte de dialogue boîte à outils , cliquez sur bouton de commande , puis faites glisser un quatrième le bouton vers la page de formulaire vierge.
    12. Cliquez avec le bouton nouveau droit, cliquez sur Propriétés et tapez cmdLastFirstCompany dans la zone nom .
    13. Dans la zone légende , tapez le nom, Prénom (société) et cliquez sur OK .
    14. Dans la boîte de dialogue boîte à outils , cliquez sur bouton de commande , puis déplacez un cinquième bouton vers la page de formulaire vierge.
    15. Cliquez avec le bouton nouveau droit, cliquez sur Propriétés et tapez cmdCompanyLastFirst dans la zone nom .
    16. Dans la zone légende , tapez société (nom, prénom) , puis sur OK .
  4. Tapez le code Visual Basic Scripting Edition (VBScript) suivant. Pour cela, procédez comme suit :
    1. Dans le menu formulaire , cliquez sur Afficher le code pour ouvrir l'éditeur de script.
    2. Dans Script Editor, tapez ou copiez le code suivant :
      Option Explicit
      Dim strSortBy
      
      Sub cmdLastFirst_Click()
         strSortBy = "LastFirst"
         UpdateContacts
      End Sub
      
      Sub cmdFirstLast_Click()
         strSortBy = "FirstLast"
         UpdateContacts
      End Sub
      
      Sub cmdCompany_Click()
         strSortBy = "Company"
         UpdateContacts
      End Sub
      
      Sub cmdLastFirstCompany_Click()
         strSortBy = "Last, First (Company)"
         UpdateContacts
      End Sub
      
      Sub cmdCompanyLastFirst_Click()
         strSortBy = "Company (Last, First)"
         UpdateContacts
      End Sub
      
      Sub UpdateContacts()
      
         Dim CurFolder
         Dim MyItems
         Dim MyItem
         Dim NumItems, i
      
         ' Use whichever folder is currently selected
         Set CurFolder = Application.ActiveExplorer.CurrentFolder
      
         ' Make sure it's a contact folder
         If CurFolder.DefaultItemType = 2 Then
            MsgBox "This process may take some time. You will be " & _
            "notified when complete.", , "Contact Tools Message"
            Set MyItems = CurFolder.Items
            NumItems = MyItems.Count
            For i = 1 to NumItems
               Set MyItem = MyItems.Item(i)
               ' Make sure it's not a distribution list in the folder
               ' (really only applies to OL98 and OL2000)
               If TypeName(MyItem) = "ContactItem" Then
                  Select Case strSortBy
                     Case "LastFirst"
                        If MyItem.LastNameandFirstName <> "" Then
                           MyItem.FileAs = MyItem.LastNameandFirstName
                        Else
                           MyItem.FileAs = MyItem.CompanyName
                        End IF
                     Case "FirstLast"
                        If MyItem.Subject <> "" Then
                           MyItem.FileAs = MyItem.Subject
                        Else
                           MyItem.FileAs = MyItem.CompanyName
                        End IF
                     Case "Company"
                        If MyItem.CompanyName <> "" Then
                           MyItem.FileAs = MyItem.CompanyName
                        Else
                           MyItem.FileAs = MyItem.LastNameandFirstName
                        End IF
                     Case "Last, First (Company)"
                        MyItem.FileAs = MyItem.LastNameAndFirstName
                        If MyItem.CompanyName <> "" Then
                           If MyItem.FileAs <> "" Then
                              MyItem.FileAs = MyItem.FileAs & " (" & _
                                              MyItem.CompanyName & ")"
                           Else
                              MyItem.FileAs = MyItem.FileAs & _
                                        MyItem.CompanyName
                           End If
                        End If
                     Case "Company (Last, First)"
                        MyItem.FileAs = MyItem.CompanyName
                        If MyItem.LastNameandFirstName <> "" Then
                           If MyItem.FileAs <> "" Then
                              MyItem.FileAs = MyItem.FileAs & " (" & _
                                     MyItem.LastNameAndFirstName & ")"
                           Else
                              MyItem.FileAs = MyItem.FileAs & _
                                     MyItem.LastNameAndFirstName
                           End If
                        End If
                  End Select
                  MyItem.Save
               End If           ' check TypeName
            Next
            MsgBox "Finished updating contacts."
         Else
            MsgBox "The current folder must be a contacts folder."
         End If                 ' check contacts folder
      
         Set MyItem = Nothing
         Set MyItems = Nothing
         Set CurFolder = Nothing
      
      End Sub
      						
    3. Dans le menu fichier dans Script Editor, cliquez sur Fermer pour revenir au formulaire.
    4. Cliquez sur la page message du formulaire.
    5. Dans le menu formulaire , cliquez sur Afficher la page . Ce masque la page formulaire afin qu'il n'apparaisse pas lorsque le formulaire est utilisé.
  5. Publier le formulaire. Pour cela, procédez comme suit :
    1. Dans le menu Outils , pointez sur formulaires , puis Publier le formulaire comme .
    2. Vérifiez que, à côté du bouton Rechercher dans , vous voir Bibliothèque de formulaires personnels .
    3. Dans la zone nom complet , tapez le nom de votre nouveau formulaire (par exemple Modifier le fichier sous champs ) discriptive et puis cliquez sur Publier .
    4. Lorsque vous êtes invité à enregistrer la définition du formulaire avec l'élément, cliquez sur non .
    5. Fermez le message sans l'enregistrer.

Comment utiliser le formulaire personnalisé

Pour utiliser votre nouveau formulaire :
  1. Recherchez le dossier contacts que vous souhaitez re-sequence.
  2. Dans le menu fichier , pointez sur Nouveau , puis cliquez sur Formulaire .
  3. Modifier la zone Regarder dans Bibliothèque des formulaires personnels , cliquez sur votre nouveau formulaire et cliquez sur OK .
  4. Cliquez sur le bouton approprié pour mettre à jour le champ Classer sous .

Références

Pour plus d'informations sur les ressources disponibles et les réponses les questions fréquentes sur les solutions Microsoft Outlook, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la base de connaissances Microsoft :
287530OL2002 : Questions sur les formulaires personnalisés et les Solutions Outlook

Propriétés

Numéro d'article: 291144 - Dernière mise à jour: jeudi 23 novembre 2006 - Version: 2.4
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Outlook 2002 Standard
Mots-clés : 
kbmt kbhowto KB291144 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 291144
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com