Jak szybko wyeksportować wiele kontaktów do jednego pliku VCard za pomocą programu Outlook VBA

Podziel się teraz:

Jeśli masz wiele kontaktów w programie Outlook i chcesz wyeksportować je do jednego pliku vCard zamiast do oddzielnych plików, możesz skorzystać z inteligentnej metody przedstawionej w tym artykule.

Na przykład musisz wysłać setki kontaktów do kogoś innego. Zamiast wysyłać je jako osobne pliki vCard, możesz chcieć połączyć je w jeden plik vCard, a następnie wysłać. Właściwie mój poprzedni artykuł - „Jak wyeksportować wiele kontaktów programu Outlook jako pojedynczy plik VCard”Wprowadził metodę. Jednak takie podejście wymaga posiadania konta Gmail i korzystania z funkcji „Import i eksport” Gmaila. Krótko mówiąc, jest to dość kłopotliwe. Dlatego tutaj przedstawimy ci wygodniejszą metodę.Szybko eksportuj wiele kontaktów do jednego pliku VCard za pomocą programu Outlook VBA

Szybko eksportuj wiele kontaktów do jednego pliku vCard

  1. Po pierwsze, uruchom aplikację Outlook.
  2. Następnie naciśnij klawisze „Alt + F11”, aby uzyskać dostęp do edytora VBA.
  3. Następnie w nowym oknie umieść kod VBA w 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

Kod VBA - szybko eksportuj wiele kontaktów do jednego pliku VCard

  1. Następnie dodaj to makro do paska narzędzi szybkiego dostępu w odniesieniu do „Jak uruchomić kod VBA w swoim Outlooku".
  2. W końcu możesz teraz wypróbować to makro.
  • Na początek wybierz kontakty, które chcesz wyeksportować.
  • Następnie kliknij przycisk makra na pasku narzędzi Szybki dostęp.Uruchom makro na wybranych kontaktach
  • Później zobaczysz okno wiersza polecenia, które wskazuje, że wszystkie kontakty są połączone w jeden.Wiersz polecenia
  • Teraz możesz przejść do folderu „E: \ Temp Contacts” w Eksploratorze Windows.
  • W tym folderze lokalnym znajdziesz plik vCard o nazwie „MergedContact”, czyli plik zawierający wszystkie wybrane kontakty.Scalony plik vCard

Napraw dane programu Outlook po awariach

Ponieważ program Outlook jest podatny na korupcję, należy odpowiednio dbać o plik PST. Na przykład musisz prawidłowo zamykać Outlooka. Zaleca się również, aby nigdy nie klikać nieznanych linków ani pobierać załączników osadzonych w wiadomościach e-mail. Co więcej, lepiej złapać potężnego Naprawa PST narzędzie, takie jak DataNumen Outlook Repair. Dzięki niemu, nawet jeśli plik programu Outlook zostanie uszkodzony, nadal możesz go naprawić z łatwością.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym skorumpowany SQL Server i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com

Podziel się teraz:

Możliwość dodawania komentarzy nie jest dostępna.