如何在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图像。如需保存为其他图像类型，请将代码 xPath = xFileName & xName & ".jpg" 中的 .jpg 更改为其他扩展名，例如 .png、.gif 等。

3. 按下 F5 键或 运行 按钮来运行此VBA代码。

4. 在弹出的 浏览文件夹 对话框中，请选择您要保存照片的目标文件夹，并点击 确定 按钮。请参见截图：

现在，所选联系人文件夹中的所有联系人照片都已批量保存为单独的 .jpg（或您指定的其他图像类型）文件。

在Outlook中隐藏邮件中的联系人照片

在Outlook中添加、更改或删除联系人的图片/照片