Outlookで連絡先の写真を保存するにはどうすればよいですか？

Outlookで1つの連絡先の写真を保存する

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. 表示される「フォルダの参照」ダイアログボックスで、写真を保存するターゲットフォルダを選択し、 OKボタンをクリックします。スクリーンショットをご覧ください：

これで、選択した連絡先フォルダー内のすべての連絡先の写真が、指定した画像形式（.jpgやその他の形式）で一括保存されます。

Outlookでメール内の連絡先写真を非表示にする

Outlookで連絡先の写真/画像を追加、変更、削除する