Outlook VBA ile Birden Çok Kişiyi Hızlı Bir Şekilde Tek Bir VCard Dosyasına Aktarma

Outlook'unuzda birden fazla kişi varsa ve bunları ayrı dosyalar yerine tek bir vCard dosyasına aktarmak istiyorsanız, bu makalede açıklanan akıllı yöntemi kullanabilirsiniz.

Örneğin, yüzlerce kişiyi başka birine göndermeniz gerekiyor. Bunları ayrı vCard dosyaları olarak göndermek yerine, bunları tek bir vCard dosyasında birleştirip sonra göndermek isteyebilirsiniz. Aslında bir önceki yazım-“Birden Çok Outlook Kişisini Tek Bir VCard Dosyası Olarak Dışa Aktarma” yöntemini ortaya koymuştur. Ancak bu yaklaşım, bir Gmail hesabına sahip olmanızı ve Gmail'in "İçe ve Dışa Aktarma" özelliğini kullanmanızı gerektirir. Özetle, bu oldukça hantal. Bu nedenle, burada size daha kullanışlı bir yöntem tanıtacağız.

Birden Çok Kişiyi Tek Bir vCard Dosyasına Hızla Aktarın

1. Öncelikle, Outlook uygulamanızı başlatın.
2. Ardından, VBA düzenleyicisine erişmek için “Alt + F11” tuşlarına dokunun.
3. Ardından, yeni pencerede VBA kodunu bir modüle yerleştirin.

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. Bundan sonra, bu makroyu “Hızlı Erişim Araç Çubuğuna” referansla ekleyin.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
5. Sonunda, şu anda bu makroyu deneyebilirsiniz.

• Öncelikle, dışa aktarmak istediğiniz kişileri seçin.
• Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesini tıklayın.
• Daha sonra, tüm kişilerin bir araya getirildiğini gösteren bir komut istemi penceresi göreceksiniz.
• Artık Windows Gezgini'nizde “E:\Temp Contacts” klasörüne gidebilirsiniz.
• Bu yerel klasörde, seçilen tüm kişileri içeren dosya olan “MergedContact” adlı bir vCard dosyası bulacaksınız.

Çökmelerden Sonra Outlook Verilerinizi Onarın

Outlook bozulmaya açık olduğundan, PST dosyanıza iyi bakmanız gerekir. Örneğin, Outlook'unuzu düzgün bir şekilde kapatmaya devam etmeniz gerekiyor. Ayrıca, bilinmeyen bağlantılara asla tıklamamanız veya e-postalara gömülü ekleri indirmemeniz önerilir. Ayrıca, güçlü bir PST onarımı gibi yardımcı program DataNumen Outlook Repair. Bununla, Outlook dosyanız bozulsa bile zahmetsizce tamir edebilirsiniz.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. yozlaşmış SQL Server ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com