Useiden yhteystietojen vieminen nopeasti yhteen VCard-tiedostoon Outlook VBA: n avulla

Jos sinulla on useita yhteystietoja Outlookissa ja haluat viedä ne yhteen vCard-tiedostoon erillisten tiedostojen sijaan, voit käyttää tässä artikkelissa esitettyä älykästä menetelmää.

Sinun on esimerkiksi lähetettävä satoja yhteystietoja muille. Sen sijaan, että lähetät ne erillisinä vCard-tiedostoina, saatat haluta yhdistää ne yhdeksi vCard-tiedostoksi ja lähettää sen sitten. Itse asiassa edellinen artikkelini - “Kuinka viedä useita Outlook-yhteystietoja yhtenä VCard-tiedostona”On ottanut käyttöön menetelmän. Tämä lähestymistapa edellyttää kuitenkin, että sinulla on Gmail-tili ja että käytät Gmailin Tuo ja vie -ominaisuutta. Lyhyesti sanottuna se on melko hankalaa. Siksi tässä esitellään sinulle kätevä menetelmä.

Vie useita yhteystietoja nopeasti yhteen vCard-tiedostoon

1. Käynnistä ensin Outlook-sovellus.
2. Napauta sitten Alt + F11-näppäimiä päästäksesi VBA-editoriin.
3. Laita seuraavaksi VBA-koodi uuteen ikkunaan moduuliin.

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. Lisää tämän jälkeen tämä makro Pikakäynnistystyökaluriville viittauksellaKuinka suorittaa VBA-koodi Outlookissa".
5. Lopulta voit kokeilla tätä makroa juuri nyt.

• Aloita valitsemalla yhteystiedot, jotka haluat viedä.
• Napsauta sitten pikakäynnistystyökalurivin makropainiketta.
• Myöhemmin näet komentokehoteikkunan, joka osoittaa, että kaikki yhteystiedot on yhdistetty yhdeksi.
• Nyt voit siirtyä Windows Explorerin E: \ Temp Contacts -kansioon.
• Tästä paikallisesta kansiosta löytyy vCard-tiedosto nimeltä "Yhdistetty yhteys", joka sisältää kaikki valitut yhteystiedot.

Korjaa Outlook-tiedot kaatumisten jälkeen

Koska Outlook on altis korruptiolle, sinun on pidettävä hyvää huolta PST-tiedostostasi. Esimerkiksi sinun on jatkuvasti suljettava Outlookisi asianmukaisella tavalla. Lisäksi on suositeltavaa, ettei koskaan napsauta tuntemattomia linkkejä tai lataa sähköposteihin upotettuja liitteitä. Lisäksi sinulla on parempi saada käsiinsä voimakas PST-korjaus apuohjelma, kuten DataNumen Outlook Repair. Sen avulla, vaikka Outlook-tiedosto vioittuisi, voit silti korjata sen helposti.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien lahjoa SQL Server ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com