如何在 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 中添加、更改或移除联系人的图片/照片