Как сохранить фотографии контактов в Outlook?

Сохраните фото одного контакта в Outlook

Сохраните фото всех контактов в Outlook

Чтобы сохранить фото определённого контакта в Outlook, выполните следующие действия:

1. Откройте папку контактов, содержащую нужный контакт, и измените вид папки, выбрав Вид > Изменить вид > Список. См. снимок экрана:

2. Дважды щелкните по нужному контакту, чтобы открыть его и сохранить фото.

3. В окне контакта щёлкните правой кнопкой мыши по фото контакта и выберите Копировать в контекстном меню. См. снимок экрана:

4. Поместите курсор в поле Заметки и нажмите клавиши Ctrl + V, чтобы вставить фото в поле Заметки.

5. Щёлкните правой кнопкой мыши по вставленному фото в поле Заметки и выберите в контекстном меню пункт Сохранить как рисунок. См. снимок экрана:

6. В появившемся диалоговом окне «Сохранение файла»: (1) откройте папку назначения, в которую хотите сохранить фото; (2) введите имя нового фото в поле Имя файла; (3) выберите тип изображения в раскрывающемся списке Указать формат сохранения и, наконец, (4) нажмите кнопку Сохранить. См. снимок экрана:

7. Закройте окно контакта, не сохраняя изменений.

На этом этапе фото указанного контакта уже сохранено в виде отдельного изображения.

Если вам нужно сохранить фотографии всех контактов из папки контактов Outlook, воспользуйтесь приведённым ниже кодом VBA.

1. Откройте нужную папку контактов, чьи фото вы хотите сохранить, и нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль и вставьте приведённый ниже код VBA в новое окно модуля.

VBA: Пакетное сохранение фото всех контактов в Outlook

Sub SaveAllContactsPhotos()
Dim xNameSpace As NameSpace
Dim xFdrContacts As MAPIFolder
Dim xItemContact As ContactItem
Dim xAttachments As Outlook.Attachments
Dim xAttach As Attachment
Dim xItems As Outlook.Items
Dim xName As String
Dim xPath, xFileName As String
Set xFdrContacts = Application.ActiveExplorer.CurrentFolder
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xFileName = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For I = 1 To xFdrContacts.Items.Count
Set xItemContact = xFdrContacts.Items(I)
Set xAttachments = xItemContact.Attachments
For Each xAttach In xAttachments
If xAttach.FileName = "ContactPicture.jpg" Then
xName = xItemContact.FirstName & xItemContact.LastName
xPath = xFileName & xName & ".jpg"
xAttach.SaveAsFile (xPath)
End If
Next
Next
Set xShell = Nothing
End Sub

Примечание: Данный код VBA сохраняет все фото контактов в формате JPG. Чтобы сохранить изображения в другом формате, замените расширение «.jpg» в строке кода xPath = xFileName & xName & «.jpg» на нужное — например, «.png», «.gif» и т.д.

3. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить этот код VBA.

4. В появившемся диалоговом окне «Обзор папок» выберите папку, в которую хотите сохранить фото, и нажмите кнопку ОК. См. снимок экрана:

Теперь все фото контактов из выбранной папки сохранены массово в виде отдельных файлов с расширением .jpg (или другим указанным вами типом изображения).

Скрыть фото контактов в письмах Outlook

Добавление, изменение или удаление изображения/фото для контакта в Outlook