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

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

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

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

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

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

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

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

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

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

Пока фото указанного контакта уже сохранено как отдельное изображение.

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

1. Откройте указанную папку контактов, в которой вы сохраните все фотографии контактов, и нажмите другой + 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 ключа или Run кнопку для запуска этого VBA.

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

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

Скрыть фотографии контактов в сообщениях электронной почты в Outlook

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