Запазете снимката на един контакт в Outlook

Запазете всички снимки на всички контакти в Outlook

За да запазите снимка на определен контакт в Outlook, моля, направете следното:

1. Отворете папката с контакти, съдържаща посочения контакт, и променете изгледа на папката, като щракнете Гледка > Промяна на изгледа > списък. Вижте екранна снимка:

2. Кликнете два пъти, за да отворите посочения контакт, чиято снимка ще запазите.

3. В прозореца за контакт щракнете с десния бутон върху снимката на контакта и изберете Копирайте от менюто с десен бутон. Вижте екранна снимка:

4. Поставете курсора в бележки кутия и натиснете Ctrl + V клавиши, за да поставите снимката в бележки кутия.

5. Щракнете с десния бутон върху поставената снимка в бележки и изберете Запазване като картина от менюто с десен бутон. Вижте екранна снимка:

6. В изскачащия диалогов прозорец File Save, моля (1) отворете целевата папка, в която ще запазите снимката, (2) въведете име за новата снимка в Име на файл кутия, (3) задайте тип изображение от Запиши като тип падащ списък и накрая (4) кликнете на Save бутон. Вижте екранна снимка:

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 ключ или бягане бутон за стартиране на този VBA.

4. В изскачащия диалогов прозорец Преглед на папка, моля, изберете целевата папка, в която ще запазите снимките, и щракнете върху OK бутон. Вижте екранна снимка:

Сега всички снимки на контакти в избраната папка с контакти се записват групово като индивидуални .jpg (или друг тип изображение, както сте посочили).

Скриване на снимки на контакти в имейли в Outlook

Добавяне, промяна или премахване на картина/снимка за контакт в Outlook