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 で連絡先の写真／画像を追加・変更・削除する