Как сохранить фотографии контактов в 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 for Applications.

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