如何在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中新增、更改或移除聯繫人照片