Как выполнить пакетный экспорт фотографий и информации нескольких контактов с помощью Outlook VBA

Перспективные решения 29 сентября, 2025

Если вы хотите извлечь фотографии контактов и их основную информацию в папку на локальном диске в пакетном режиме, вам необходимо использовать Outlook VBA. Эта статья подробно расскажет вам, как этого добиться.

Outlook позволяет экспортировать контактную информацию с помощью функции «Импорт и экспорт». Вы можете перейти в «Файл» > «Печать» > «Импорт» > «Экспорт в файл».

Однако эта функция не позволяет экспортировать фотографии контактов. Таким образом, если вы хотите извлечь как контактную информацию, так и фотографии, вам придется вернуться к Outlook VBA. Ниже приведены коды и шаги VBA, которые могут сохранить фотографии контактов в указанную локальную папку и извлечь контактную информацию в текстовый файл.

Пакетный экспорт фотографий и информации нескольких контактов

Прежде всего, запустите Outlook и нажмите клавиши «Alt + F11».
После этого вы получите доступ к редактору VBA. Теперь вам нужно открыть модуль, который не используется, или создать новый модуль, выбрав «Вставить» > «Модуль».
Затем скопируйте и вставьте следующие коды VBA в новый модуль.

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

Примечание: Приведенные выше коды экспортируют фотографии и информацию о контактах в папку контактов по умолчанию. Вы можете изменить указанные контакты.

Если вы хотите экспортировать фотографии и информацию о контактах в текущую открытую папку, вам следует заменить «Set objContacts = …..» на:

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

Если вы хотите экспортировать только фотографии и информацию о выбранных контактах, вы можете использовать следующие строки:

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

После этого вы можете закрыть редактор VBA и продолжить добавление нового проекта на панель быстрого доступа, как обычно.
Наконец, вы можете нажать кнопку макроса на панели быстрого доступа. Сразу же фотографии контактов и информация будут экспортированы в указанную папку на локальном диске.

Вы можете открыть один текстовый файл, в котором будет указана основная информация, как показано на следующем снимке экрана:

Обработка неожиданного повреждения Outlook

Несомненно, что Outlook уязвим. Следовательно, если вы страдаете от повреждения Outlook, вам следует в первую очередь успокоиться. После этого можно продолжить ремонт. поврежденная электронная почта Outlook PST. Вы можете попробовать инструмент для восстановления папки «Входящие». Если это не удается, у вас нет другого выбора, кроме как использовать гораздо более мощный инструмент, такой как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить поврежденную базу данных SQL mdf и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com