Note: The other languages of the website are Google-translated. Back to English
English English

 Comment exporter les informations des contacts avec des photos dans Outlook?

Lorsque vous exportez des contacts d'Outlook vers un fichier, seules les informations textuelles des contacts peuvent être exportées. Mais, parfois, vous avez besoin d'exporter les photos ainsi que les informations textuelles des contacts, comment pouvez-vous gérer cette tâche dans Outlook?

Exportez les informations des contacts avec les photos relatives en utilisant le code VBA


Exportez les informations des contacts avec les photos relatives en utilisant le code VBA

Le code VBA ci-dessous peut vous aider à exporter tous les contacts dans un dossier de contacts spécifique pour séparer le fichier texte avec des photos. Veuillez faire comme ceci:

1. Sélectionnez un dossier de contacts dans lequel vous souhaitez exporter les contacts avec des photos.

2. Et puis, maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3. Puis clique insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert, voir capture d'écran:

Code VBA: exportez les informations des contacts avec des photos:

Sub BatchExportContactPhotosandInformation()
Dim xContactItems As Outlook.Items
Dim xItem As Object
Dim xContactItem As ContactItem
Dim xContactInfo As String
Dim xShell As Object
Dim xFSO As Scripting.FileSystemObject
Dim xTextFile As Scripting.TextStream
Dim xAttachments As Attachments
Dim xAttachment As Attachment
Dim xSavePath, xEmailAddress As String
Dim xFolder As Outlook.Folder
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xShell = CreateObject("Shell.application").BrowseforFolder(0, "Select a Folder", 0, 16)
If xShell Is Nothing Then Exit Sub
xSavePath = xShell.Items.Item.Path & "\"
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
    Set xFolder = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
Else
    Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
End If
Set xContactItems = xFolder.Items
For i = xContactItems.Count To 1 Step -1
    Set xItem = xContactItems.Item(i)
    If xItem.Class = olContact Then
        Set xContactItem = xItem
        With xContactItem
            xEmailAddress = .Email1Address
            If Len(Trim(.Email2Address)) <> 0 Then
                xEmailAddress = xEmailAddress & ";" & .Email2Address
            End If
            If Len(Trim(.Email3Address)) <> 0 Then
                xEmailAddress = xEmailAddress & ";" & .Email3Address
            End If
            xContactInfo = "Name: " & .FullName & vbCrLf & "Email: " & _
                           xEmailAddress & vbCrLf & "Company: " & .CompanyName & _
                           vbCrLf & "Department: " & .Department & _
                           vbCrLf & "Job Title: " & .JobTitle & _
                           vbCrLf & "IM: " & .IMAddress & _
                           vbCrLf & "Business Phone: " & .BusinessTelephoneNumber & _
                           vbCrLf & "Home Phone: " & .HomeTelephoneNumber & _
                           vbCrLf & "BusinessFax Phone: " & .BusinessFaxNumber & _
                           vbCrLf & "Mobile Phone: " & .MobileTelephoneNumber & _
                           vbCrLf & "Business Address: " & .BusinessAddress
            Set xTextFile = xFSO.CreateTextFile(xSavePath & .FullName & ".txt", True)
            xTextFile.WriteLine xContactInfo
            If .Attachments.Count > 0 Then
                Set xAttachments = .Attachments
                For Each xAttachment In xAttachments
                    If InStr(LCase(xAttachment.FileName), "contactpicture.jpg") > 0 Then
                        xAttachment.SaveAsFile (xSavePath & .FullName & ".jpg")
                    End If
                Next
            End If
        End With
    End If
Next i
End Sub

doc exporter des contacts avec des photos 1

4. Après avoir collé le code dans le module, continuez en cliquant Outils > Références dans le Microsoft Visual Basic pour applications fenêtre, dans le sauté Références-Projet1 boîte de dialogue, cochez Exécution de scripts Microsoft Option de Références disponibles zone de liste, voir capture d'écran:

doc exporter des contacts avec des photos 2

5Cliquez sur OK pour fermer la boîte de dialogue, puis appuyez sur F5 clé pour exécuter ce code, dans le popped out Parcourir pour le dossier boîte de dialogue, spécifiez un dossier dans lequel vous souhaitez exporter les contacts exportés, voir capture d'écran:

doc exporter des contacts avec des photos 3

6. Puis clique OK, toutes les informations avec les photos des contacts ont été exportées séparément vers votre dossier spécifique, voir capture d'écran:

doc exporter des contacts avec des photos 4


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (2)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Savez-vous que de nombreuses (toutes ?) alternatives OpenSource à Outlook sont capables d'exporter des contacts au format vcard, avec tous les détails et photos ?
En un seul clic, pas besoin d'écrire de code...
Incroyable, n'est-ce pas ?
Ce commentaire a été minimisé par le modérateur sur le site
C'est parce que Outlook / Exchange n'est pas gratuit, il faut tout payer ! :-)
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés