跳到主要内容

如何在Outlook中保存联系人照片?

作者:凯莉 最后修改时间:2017-08-07

假设您之前已经为Outlook中的许多联系人添加了照片,现在想将这些联系人照片另存为单独的图像,如何处理? 有两种解决方案供您选择:

Office 选项卡 - 在 Microsoft Office 中启用选项卡式编辑和浏览,让工作变得轻而易举
解锁 Outlook 的 Kutools 免费 版本 立即享受超过 70 项功能,永久无限制访问
使用这些高级功能增强您的 Outlook 2021 - 2010 或 Outlook 365。享受 70 多种强大功能并提升您的电子邮件体验!

箭头蓝色右气泡在Outlook中保存一位联系人的照片

要将特定联系人的照片保存在Outlook中,请执行以下操作:

1。 打开包含指定联系人的联系人文件夹,然后通过单击更改文件夹视图 首页 > 变更检视 > 清单。 看截图:

2。 双击以打开您要保存其照片的指定联系人。

3。 在联系人窗口中,请右键单击联系人照片,然后选择 复制 从右键单击菜单中。 看截图:

4。 将光标放在 框,然后按 按Ctrl + V 将照片粘贴到 框。

5。 右键单击粘贴的照片 框,然后选择 另存为图片 从右键单击菜单中。 看截图:

6。 在弹出的“文件保存”对话框中,请 (1) 打开目标文件夹,将照片保存在其中, (2) 在新照片中输入名称 文件名 框, (3) 从中指定图像类型 保存类型 下拉列表,最后 (4) 点击 优惠 按钮。 看截图:

7。 关闭联系人窗口而不保存更改。

到目前为止,指定联系人的照片已经保存为单独的图像。


箭头蓝色右气泡在Outlook中保存所有联系人的所有照片

如果您需要将所有联系人的照片保存在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, 等等。

3。 按 F5 键或 运行 按钮以运行此VBA。

4。 在弹出的浏览文件夹对话框中,选择要将照片保存到的目标文件夹,然后单击 OK 按钮。 看截图:

现在,所选联系人文件夹中的所有联系人照片都批量保存为单个.jpg(或您指定的其他图像类型)图像。


箭头蓝色右气泡相关文章


最佳办公生产力工具

最新消息:Kutools for Outlook 发布 免费版本!

体验全新的 Kutools for Outlook 免费版本拥有 70 多项令人难以置信的功能,您可以永久使用! 点击立即下载!

🤖 Kutools人工智能 : 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...

📧 电子邮件自动化: 自动回复(适用于 POP 和 IMAP)  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发(高级规则)   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 撤回电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  收到重要邮件时提醒您  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

只需单击一下即可立即解锁 Kutools for Outlook -永久免费. 别等了, 立即下载并提高您的效率!

kutools for outlook 功能1 kutools for outlook 功能2
 

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How can i get my photos from Outlook
This comment was minimized by the moderator on the site
I have discovered an easy way to save outlook contacts information with photos. Select all, copy and paste in word document. Then double click on selected contacts to reinstall into outlook.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations