Birden Çok Kişinin Fotoğrafını ve Bilgisini Outlook VBA ile Toplu Dışa Aktarma

Kişilerin fotoğraflarını ve birincil bilgilerini yerel diskinizdeki bir klasöre toplu halde ayıklamak isterseniz, Outlook VBA'yı kullanmanız gerekir. Bu makale size bunu nasıl başaracağınızı ayrıntılı olarak öğretecektir.

Outlook, "İçe ve Dışa Aktar" özelliği aracılığıyla kişi bilgilerini dışa aktarmanıza izin verir. “Dosya” > “Yazdır” > “İçe Aktar” > “Dosyaya Aktar” seçeneğine gidebilirsiniz.

Ancak bu özellik, kişi fotoğraflarını dışa aktarmanıza izin vermez. Bu nedenle, hem iletişim bilgilerini hem de fotoğrafları çıkarmak istiyorsanız, Outlook VBA'ya tekrar başvurmanız gerekir. Aşağıda, kişi fotoğraflarını belirli bir yerel klasöre kaydedebilen ve kişi bilgilerini bir metin dosyasına çıkarabilen VBA kodları ve adımları yer almaktadır.

Birden Çok Kişinin Fotoğrafını ve Bilgisini Toplu Dışa Aktarma

1. İlk olarak, Outlook'u başlatın ve “Alt + F11” tuş düğmelerine basın.
2. Ardından VBA editörüne erişebileceksiniz. Artık kullanılmayan bir modülü açmalı veya “Ekle” > “Modül” ile yeni bir modül oluşturmalısınız.
3. Ardından, aşağıdaki VBA kodlarını kopyalayıp yeni modüle yapıştırın.

Sub BatchExportContactPhotosandInformation()
    Dim objContacts As Outlook.Items
    Dim objContact As ContactItem
    Dim strContactInfo As String
    Dim objFileSystem As Object
    Dim objTextfile As Object
    Dim objAttachments As Attachments
    Dim objAttachment As Attachment
    Dim strName As String
 
    'Specify the contacts in the default contact folder
    Set objContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
 
    For Each objContact In objContacts
        If TypeOf objContact Is ContactItem Then
           'Get the contact's primary informtaion
           strContactInfo = "Name: " & objContact.FullName & vbCrLf & "Email: " & objContact.Email1Address & vbCrLf & "Company: " & objContact.Companies & vbCrLf & "Job Title: " & objContact.JobTitle & vbCrLf & "Business Address: " & objContact.BusinessAddress & vbCrLf & "Business Phone: " & objContact.BusinessTelephoneNumber
           'Create a Text file
           Set objFileSystem = CreateObject("Scripting.FileSystemObject")
           'You can change the folder path as per your needs
           Set objTextfile = objFileSystem.CreateTextFile("C:\Outlook Contacts\" & objContact.FullName & ".txt", True)
           objTextfile.WriteLine (strContactInfo)
 
           'Save the contact photos
           If objContact.Attachments.Count > 0 Then
              Set objAttachments = objContact.Attachments
              For Each objAttachment In objAttachments
                  If InStr(LCase(objAttachment.filename), "contactpicture.jpg") > 0 Then
                     strName = objContact.FullName & ".jpg"
                     objAttachment.SaveAsFile ("C:\Outlook Contacts\" & strName)
                  End If
              Next
           End If
       End If
    Next
End Sub

Not: Yukarıdaki kodlar, varsayılan kişi klasörünüzdeki kişilerin fotoğraflarını ve bilgilerini dışa aktarır. Belirtilen kişileri değiştirebilirsiniz.

• Şu anda açık olan klasördeki kişilerin fotoğraflarını ve bilgilerini dışa aktarmak istiyorsanız, “Set objContacts = …..” ifadesini şu şekilde değiştirmelisiniz:

Set objContacts = Outlook.Application.ActiveExplorer.CurrentFolder.Items

• Yalnızca seçilen kişilerin fotoğraflarını ve bilgilerini dışa aktarmayı umuyorsanız, aşağıdaki satırları kullanabilirsiniz:

Dim objSelection as Selection
Set objSelection = Outlook.Application.ActiveExplorer.Selection
For each objContact in objSelection

4. Bundan sonra, VBA editörünü kapatabilir ve yeni projeyi her zamanki gibi Hızlı Erişim Araç Çubuğuna eklemeye devam edebilirsiniz.
5. Son olarak, Hızlı Erişim Araç Çubuğundaki makro düğmesine tıklayabilirsiniz. Hemen, kişi fotoğrafları ve bilgileri yerel diskte belirtilen klasöre aktarılacaktır.

Aşağıdaki ekran görüntüsü gibi birincil bilgilerin listeleneceği bir Metin dosyası açabilirsiniz:

Beklenmeyen Outlook Bozulmasını Yönetin

Outlook'un savunmasız olduğu tartışılmaz bir gerçektir. Bu nedenle, Outlook bozulmasından muzdaripseniz, öncelikle yapmanız gereken sakinleşmek. Ardından, onarmaya devam edebilirsiniz. bozuk Outlook PST e-postası. Denemek için gelen kutusu onarım aracını kullanabilirsiniz. Başarısız olursa, çok daha güçlü bir araç kullanmaktan başka seçeneğiniz yoktur. 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. hasarlı SQL mdf veritabanını onarın ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com