Birden Çok Outlook Kişisini vCard Dosyaları Olarak Toplu Dışa Aktarmanın 2 Yöntemi

Birden çok Outlook kişisini toplu olarak vCard dosyaları olarak dışa aktarmak istiyorsanız, bu makalede açıklanan iki yöntemi kullanabilirsiniz.

Bir Outlook kişisini vCard dosyası olarak dışa aktarmanın çok kolay olduğuna şüphe yok. Bir kişiyi seçip “Dosya” menüsüne dönüp “Farklı Kaydet”e basmanız yeterlidir. Açılan "Farklı Kaydet" iletişim kutusunda, "vCard Dosyası" türü seçeneği varsayılan olarak mevcuttur. Ancak, birden fazla kişi seçerseniz ve "Farklı Kaydet" seçeneğini kullanırsanız, yalnızca "Metin Dosyası" seçeneği vardır. Bu nedenle, birçok kişiyi ayrı vCard dosyaları olarak toplu olarak dışa aktarmak istiyorsanız, başka yollar aramalısınız. Burada size iki yol tanıtacağız.

Yöntem 1: Kişileri Kartvizit Olarak İlet

1. Öncelikle Outlook uygulamanızı başlatın.
2. Ardından "Kişiler" bölmesine geçin ve doğru Kişiler klasörünü açın.
3. Ardından, vCard dosyaları olarak dışa aktarmak istediğiniz kişileri seçin.
4. Daha sonra, “Kişiyi İlet” > “Kartvizit Olarak” öğesini seçin.
5. Bundan sonra, seçilen tüm kişilerin eklendiği yeni bir mesaj görünecektir.
6. Şimdi “Ekle” satırında ekli tüm kartvizitleri seçmelisiniz.
7. Daha sonra bunları aşağıdaki resimdeki gibi yerel sürücüye sürükleyip bırakabilirsiniz:
8. Hemen, yerel sürücüde ayrı vCard dosyalarını alacaksınız.

Yöntem 2: Outlook VBA ile vCards Olarak Toplu Dışa Aktarma

1. İlk olarak, ana Outlook penceresindeki “Alt + F11” tuşlarına basın.
2. Ardından, Outlook VBA düzenleyicisine erişebileceksiniz.
3. Ardından, aşağıdaki VBA kodlarını kullanımda olmayan bir modüle kopyalamanız gerekir.

Sub ExportMultipleContactsAsVCards()
    Dim objSelection As Outlook.Selection
    Dim objContact As Outlook.ContactItem
    Dim objItem As Object
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    'If want to export all contacts, use the following lines instead
    'Dim olContacts as Outlook.Items
    'Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
    'For Each objItem In olContacts
    For Each objItem In objSelection
        If TypeOf objItem Is ContactItem Then
           Set objContact = objItem
           'Change the predefined local folder for saving the vCards
           objContact.SaveAs "E:\" & objContact.FullName & ".vcf", olVCard
        End If
    Next
End Sub

4. Ardından, kolaylık sağlamak için yeni VBA projesini Hızlı Erişim Araç Çubuğuna ekleyebilirsiniz.
5. Ayrıca, Outlook'un makrolara izin verdiğinden emin olmalısınız.
6. Son olarak, bir deneyebilirsiniz.

• İlk olarak, kaynak kişileri seçin.
• Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesini tıklayın.
• Makro çalışmayı bitirdikten sonra, ilgili vCard dosyalarını önceden tanımlanmış yerel klasörde bulabileceksiniz.

Can Sıkıcı PST Sorunlarından Kurtulun

Outlook'u onlarca yıldır kullandıysanız, erişilemeyen PST sorunları gibi çeşitli PST sorunlarıyla karşılaşmış olmalısınız. Bu durumda, her zamanki gibi, öncelikle gelen kutusu onarım aracı. Başarısız olursa, daha deneyimli bir araca başvurabilirsiniz, örneğin DataNumen Outlook Repair.

Yazar Tanıtımı:

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