Outlook VBA ilə birdən çox kontaktı bir VCard faylına necə tez ixrac etmək olar

İndi paylaş:

Outlook-da birdən çox kontaktınız varsa və onları ayrı-ayrı fayllar əvəzinə tək vCard faylına ixrac etmək istəyirsinizsə, bu məqalədə təqdim olunan ağıllı metoddan istifadə edə bilərsiniz.

Məsələn, yüzlərlə kontaktı başqasına göndərməlisiniz. Onları ayrıca vCard faylları kimi göndərmək əvəzinə, onları tək vCard faylında birləşdirib göndərmək istəyə bilərsiniz. Əslində, mənim əvvəlki məqaləm – “Birdən çox Outlook Kontaktını Vahid VCard Faylı kimi Necə İxrac etmək olar” üsulunu təqdim etdi. Bununla belə, bu yanaşma sizdən Gmail hesabınızın olmasını və Gmail-in “İdxal və İxrac” funksiyasından istifadə etməyi tələb edir. Bir sözlə, bu, olduqca çətin bir işdir. Buna görə də burada sizə daha asan bir üsul təqdim edəcəyik.Outlook VBA ilə birdən çox kontaktı bir VCard faylına sürətlə ixrac edin

Birdən çox kontaktı bir vCard faylına sürətlə ixrac edin

  1. Əvvəlcə Outlook proqramını işə salın.
  2. Sonra VBA redaktoruna daxil olmaq üçün “Alt + F11” düymələrinə toxunun.
  3. Sonra, yeni pəncərədə VBA kodunu modula qoyun.
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

VBA Kodu - Birdən çox kontaktı bir VCard faylına sürətlə ixrac edin

  1. Bundan sonra, bu makronu "Sürətli Giriş Alətlər Panelinə əlavə edin"Outlook-da VBA kodunu necə işlətmək olar".
  2. Nəhayət, indi bu makronu sınaya bilərsiniz.
  • Başlamaq üçün ixrac etmək istədiyiniz kontaktları seçin.
  • Sonra, Tez Giriş Alətlər Panelində makro düyməsini basın.Seçilmiş Kontaktlarda Makronu işə salın
  • Daha sonra bütün kontaktların birinə birləşdirildiyini göstərən bir əmr sorğusu pəncərəsini görəcəksiniz.Command Prompt
  • İndi Windows Explorer-də “E:\Temp Contacts” qovluğuna keçə bilərsiniz.
  • Bu yerli qovluqda siz bütün seçilmiş kontaktları ehtiva edən fayl olan “MergedContact” adlı vCard faylını tapacaqsınız.Birləşdirilmiş vCard Faylı

Qəzalardan sonra Outlook məlumatlarınızı təmir edin

Outlook korrupsiyaya həssas olduğundan, PST faylınıza yaxşı baxmalısınız. Məsələn, Outlook-u düzgün şəkildə bağlamağa davam etməlisiniz. Həmçinin, heç vaxt naməlum linklərə klikləməmək və ya e-poçtlara daxil edilmiş qoşmaları yükləməmək tövsiyə olunur. Üstəlik, daha yaxşısı güclü bir şeyə sahib olmalısınız PST təmiri kimi kommunal DataNumen Outlook Repair. Bununla belə, Outlook faylınız xarab olsa belə, onu asanlıqla təmir edə bilərsiniz.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc satqın SQL Server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com

İndi paylaş:

Şərhlər bağlıdır.