Come esportare rapidamente più contatti in un file VCard con Outlook VBA

Se hai più contatti in Outlook e desideri esportarli in un singolo file vCard, anziché in file separati, puoi utilizzare il metodo intelligente introdotto in questo articolo.

Ad esempio, devi inviare centinaia di contatti a qualcun altro. Invece di inviarli come file vCard separati, potresti essere desideroso di combinarli in un unico file vCard e quindi inviarlo. In realtà, il mio precedente articolo – “Come esportare più contatti di Outlook come un singolo file VCard” ha introdotto un metodo. Tuttavia, questo approccio richiede di disporre di un account Gmail e di utilizzare la funzione "Importa ed esporta" di Gmail. In poche parole, è piuttosto ingombrante. Pertanto, qui ti presenteremo un metodo più pratico.

Esporta rapidamente più contatti in un file vCard

1. Prima di tutto, avvia la tua applicazione Outlook.
2. Quindi, tocca i tasti "Alt + F11" per accedere all'editor VBA.
3. Successivamente, nella nuova finestra, inserisci il codice VBA in un modulo.

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. Successivamente, aggiungi questa macro alla barra degli strumenti di accesso rapido con riferimento a "Come eseguire il codice VBA in Outlook".
5. Alla fine, puoi provare questa macro in questo momento.

• Per iniziare, seleziona i contatti che desideri esportare.
• Quindi, fai clic sul pulsante macro nella barra di accesso rapido.
• Successivamente vedrai una finestra del prompt dei comandi, che indica che tutti i contatti sono uniti in uno solo.
• Ora puoi andare alla cartella "E:\Temp Contacts" in Windows Explorer.
• In questa cartella locale troverai un file vCard denominato "MergedContact", che è il file contenente tutti i contatti selezionati.

Ripara i dati di Outlook dopo gli arresti anomali

Poiché Outlook è suscettibile alla corruzione, è necessario prendersi cura del proprio file PST. Ad esempio, devi continuare a chiudere Outlook in modo corretto. Inoltre, si consiglia di non fare mai clic su collegamenti sconosciuti o scaricare allegati incorporati nelle e-mail. Inoltre, faresti meglio a procurarti un potente Riparazione PST utilità, come ad es DataNumen Outlook Repair. Con esso, anche se il tuo file di Outlook viene danneggiato, puoi comunque ripararlo con facilità.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui corrotto SQL Server e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com