如何儲存 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 圖片。若要儲存為其他圖片格式，請將程式碼中的「。jpg」（位於）xPath = xFileName & xName & ".jpg"）更改為其他副檔名，例如 .png、。gif 等。

3. 按下 F5 鍵或點擊執行按鈕，即可執行此 VBA！

4. 在跳出的「瀏覽資料夾」對話方塊中，請選擇您要儲存照片的目標資料夾，然後按一下確定按鈕。請參閱螢幕截圖：

現在，所選聯絡人資料夾中的所有聯絡人照片均已批次儲存為獨立的 .jpg 檔案（或您指定的其他圖片格式）。

在 Outlook 的電子郵件中隱藏聯絡人照片

在 Outlook 中為聯絡人新增、變更或移除圖片／照片