United States

Change

All Microsoft Sites

Microsoft Support

Numéro d'article: 290792 - Dernière mise à jour: vendredi 24 novembre 2006 - Version: 6.2

Comment faire pour exporter par programmation des éléments Outlook vers Access

Voir les produits auxquels s'applique cet article

Ancien nº de publication de cet article : F290792

Cet article peut contenir des liens vers des informations en langue anglaise (pas encore traduites).

Pour vous procurer une version Microsoft Outlook 2000 de cet article, reportez-vous à l'article 253794 (http://support.microsoft.com/kb/253794/ ) .

Cet article propose une vue d'ensemble ainsi qu'un exemple de code pour l'importation d'informations de contact Outlook dans une table Access. L'exemple de code fourni dans la section « Informations supplémentaires » de cet article doit être exécuté à partir d'un module global Access. Ce code constitue le point de départ du développement d'une solution complète.

Retour au début

Plus d'informations

La fonction Importer/Exporter de Microsoft Outlook ne vous permet pas d'importer ou d'exporter des informations dans des champs (ou des propriétés) définis par l'utilisateur. Pour exporter des informations à partir de ces champs, vous devrez peut-être créer une solution de programmation utilisant Automation pour convertir les informations.

REMARQUE : outre la méthode qui consiste à créer un code permettant d'exporter des champs définis par l'utilisateur, vous pouvez aussi ajouter l'ensemble des champs à un affichage Tableau. Il vous suffit ensuite de sélectionner l'ensemble des données et d'effectuer un copier-coller dans Microsoft Excel.

L'exemple de code suivant convertit les informations de contact Outlook en lignes de table de base de données Access. En apportant quelques modifications, vous pouvez utiliser ce code pour importer d'autres types d'éléments Outlook, tels que des rendez-vous, des notes, des tâches, etc.

Une vue d'ensemble et un autre exemple de code sont également disponibles sur le site Web de Microsoft à l'adresse suivante : (en anglais)

http://msdn2.microsoft.com/en-us/office/aa905351.aspx (http://msdn2.microsoft.com/en-us/office/aa905351.aspx)

Retour au début

Considérations relatives à la programmation

Vous devez définir une référence à la bibliothèque d'objets Microsoft Outlook 10.0 et à la bibliothèque d'objets Microsoft DAO 3.6.
Les champs utilisés dans cet exemple sont de type texte, aussi bien dans Access que dans Outlook. Pour convertir d'autres types de champs, vous devez modifier le code en conséquence.
L'exemple de code fourni n'inclut pas le code de vérification des erreurs nécessaire pour une application de production.
Le code ci-dessous suppose que les champs Access sont définis de façon à Autoriser les valeurs de longueur nulle.

Microsoft fournit des exemples de programmation à des fins d'illustration uniquement, sans garantie explicite ou implicite, y compris, de manière non limitative, les garanties implicites de qualité marchande et/ou d'adéquation à un usage particulier. Cet article suppose que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du Support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne peuvent pas modifier les exemples en vue de vous fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques. Si vous ne maîtrisez que partiellement la programmation, vous pouvez contacter un partenaire certifié Microsoft (Microsoft Certified Partner) ou le service client Microsoft au 0825 827 829 qui pourra transmettre votre demande de consulting aux équipes Microsoft appropriées. Pour plus d'informations sur les partenaires certifiés Microsoft, reportez-vous au site Web de Microsoft à l'adresse suivante :

https://partner.microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104)

Pour plus d'informations sur les options de support technique disponibles et la façon de contacter Microsoft, reportez-vous au site Web de Microsoft à l'adresse suivante :

http://support.microsoft.com/default.aspx?scid=fh;FR;ASSISTEDOVER (http://support.microsoft.com/default.aspx?scid=fh;fr;assistedover)

Retour au début

Exemple de code

Sub ImportContactsFromOutlook()

   ' This code is based in Microsoft Access.

   ' Set up DAO objects (uses existing "tblContacts" table)
   Dim rst As DAO.Recordset
   Set rst = CurrentDb.OpenRecordset("tblContacts")


   ' Set up Outlook objects.
   Dim ol As New Outlook.Application
   Dim olns As Outlook.Namespace
   Dim cf As Outlook.MAPIFolder
   Dim c As Outlook.ContactItem
   Dim objItems As Outlook.Items
   Dim Prop As Outlook.UserProperty

   Set olns = ol.GetNamespace("MAPI")
   Set cf = olns.GetDefaultFolder(olFolderContacts)
   Set objItems = cf.Items
   iNumContacts = objItems.Count
   If iNumContacts <> 0 Then
      For i = 1 To iNumContacts
         If TypeName(objItems(i)) = "ContactItem" Then
            Set c = objItems(i)
            rst.AddNew
            rst!FirstName = c.FirstName
            rst!LastName = c.LastName
            rst!Address = c.BusinessAddressStreet
            rst!City = c.BusinessAddressCity
            rst!State = c.BusinessAddressState
            rst!Zip_Code = c.BusinessAddressPostalCode
            ' Custom Outlook properties would look like this:
            ' rst!AccessFieldName = c.UserProperties("OutlookPropertyName")
            rst.Update
         End If
      Next i
      rst.Close
      MsgBox "Finished."
   Else
      MsgBox "No contacts to export."
   End If

End Sub

Retour au début

Références

Pour plus d'informations sur l'importation de données d'Access vers Outlook, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la Base de connaissances Microsoft.

290658 (http://support.microsoft.com/kb/290658/ ) OL2002 : Comment faire pour importer par programmation des éléments Outlook à partir de Microsoft Access

Pour plus d'informations sur les ressources disponibles et les réponses aux questions les plus fréquemment posées sur les solutions Microsoft Outlook, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la Base de connaissances Microsoft.

287530 (http://support.microsoft.com/kb/287530/ ) OL2002 : Questions sur les formulaires personnalisés et les solutions Microsoft Outlook

Retour au début

Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):

Microsoft Outlook 2002 Standard
Microsoft Access 2002

Retour au début

kbdatabase kbexport kbprogramming kbvba kbhowto KB290792

Retour au début

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.