Comment exporter rapidement plusieurs contacts vers un fichier VCard avec Outlook VBA

Si vous avez plusieurs contacts dans votre Outlook et que vous souhaitez les exporter vers un seul fichier vCard, au lieu de fichiers séparés, vous pouvez utiliser la méthode intelligente présentée dans cet article.

Par exemple, vous devez envoyer des centaines de contacts à quelqu'un d'autre. Plutôt que de les envoyer sous forme de fichiers vCard séparés, vous souhaiterez peut-être les combiner en un seul fichier vCard, puis l'envoyer. En fait, mon article précédent - "Comment exporter plusieurs contacts Outlook en un seul fichier VCard” a introduit une méthode. Cependant, cette approche exige que vous ayez un compte Gmail et que vous utilisiez la fonction "Importer et exporter" de Gmail. Bref, c'est assez encombrant. Par conséquent, nous vous présenterons ici une méthode plus pratique.

Exportez rapidement plusieurs contacts vers un seul fichier vCard

1. Tout d'abord, lancez votre application Outlook.
2. Ensuite, appuyez sur les touches "Alt + F11" pour accéder à l'éditeur VBA.
3. Ensuite, dans la nouvelle fenêtre, placez le code VBA dans un module.

Sub ExportMultipleContactsIntoOneVCardFile()
    Dim objSelection As Outlook.Selection
    Dim strLocalDrive, strFolder As String
    Dim i As Long
    Dim objContact As Outlook.ContactItem
    Dim strVCardFile As String
 
    'Get all selected contacts
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not objSelection Is Nothing Then
       'Save contacts in "E:\Temp Contacts\"
       strLocalDrive = "E:"
       strFolder = "Temp Contacts"
       MkDir (strLocalDrive & "\" & strFolder & "\")
 
       'Save all selected contacts as separate vCards
       For i = objSelection.Count To 1 Step -1
           If TypeName(objSelection(i)) = "ContactItem" Then
              Set objContact = objSelection(i)
 
              strVCardFile = strLocalDrive & "\" & strFolder & "\" & objContact.FullName & ".vcf"
              objContact.SaveAs strVCardFile, olVCard
           End If
       Next
 
       'Use cmd to merge all exported vCard files into one
       Shell "cmd.exe /K" & strLocalDrive & " & CD " & strFolder & " & copy *.vcf MergedContact.vcf"
    End If
End Sub

4. Après cela, ajoutez cette macro à la barre d'outils d'accès rapide en faisant référence à "Comment exécuter le code VBA dans votre Outlook" .
5. Finalement, vous pouvez essayer cette macro dès maintenant.

• Pour commencer, sélectionnez les contacts que vous souhaitez exporter.
• Ensuite, cliquez sur le bouton macro dans la barre d'outils d'accès rapide.
• Plus tard, vous verrez une fenêtre d'invite de commande, qui indique que tous les contacts sont fusionnés en un seul.
• Maintenant, vous pouvez aller dans le dossier "E:\Temp Contacts" dans votre explorateur Windows.
• Dans ce dossier local, vous trouverez un fichier vCard nommé "MergedContact", qui est le fichier contenant tous les contacts sélectionnés.

Réparez vos données Outlook après des plantages

Comme Outlook est susceptible d'être corrompu, vous devez prendre soin de votre fichier PST. Par exemple, vous devez continuer à fermer votre Outlook de manière appropriée. De plus, il est suggéré de ne jamais cliquer sur des liens inconnus ou de télécharger des pièces jointes intégrées dans des e-mails. De plus, vous feriez mieux de vous procurer un puissant Réparation PST utilitaire, comme DataNumen Outlook Repair. Avec lui, même si votre fichier Outlook est corrompu, vous pouvez toujours le réparer sans effort.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris corrompu SQL Server et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com