XNUMX人の連絡先の写真をOutlookに保存します

Outlookのすべての連絡先のすべての写真を保存します

特定の連絡先の写真をOutlookに保存するには、次のようにします。

1。 指定した連絡先を含む連絡先フォルダを開き、をクリックしてフォルダビューを変更します 詳しく見る > ビューの変更 > リスト。 スクリーンショットを参照してください：

2。 ダブルクリックして、写真を保存する指定の連絡先を開きます。

3。 連絡先ウィンドウで、連絡先の写真を右クリックして、を選択してください コピー 右クリックメニューから。 スクリーンショットを参照してください：

4。 カーソルを ノート ボックス、プレス Ctrlキー + V 写真をに貼り付けるためのキー ノート ボックス。

5。 に貼り付けた写真を右クリックします ノート ボックスをクリックし、 写真として保存 右クリックメニューから。 スクリーンショットを参照してください：

6。 ポップアウトする[ファイルの保存]ダイアログボックスで、 (1) 写真を保存する保存先フォルダを開き、 (2) 新しい写真の名前をに入力します ファイル名 ボックス、 (3) から画像タイプを指定します タイプとして保存 ドロップダウンリスト、そして最後に (4) クリック Save ボタン。 スクリーンショットを参照してください：

7。 変更を保存せずに連絡先ウィンドウを閉じます。

これまでのところ、特定の連絡先の写真はすでに個別の画像として保存されています。

Outlookの連絡先フォルダにすべての連絡先の写真を保存する必要がある場合は、VBAの下で試してください。

1。 すべての連絡先写真を保存する指定の連絡先フォルダを開き、を押します 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2に設定します。 OK をクリックします。 インセット > モジュール、次に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

Note：このVBAは、すべての連絡先写真をJPG画像として保存します。 他の画像タイプとして保存するには、を変更してください jpgの コード内 xPath = xFileName＆xName＆ "。jpg" などの他の拡張子名に 。PNG, .GIF, etc.

3。 プレス F5 キーまたは ラン このVBAを実行するためのボタン。

4。 ポップアウトされた[フォルダの参照]ダイアログボックスで、写真を保存する保存先のフォルダを選択し、[ OK ボタン。 スクリーンショットを参照してください：

これで、選択した連絡先フォルダ内のすべての連絡先写真が、個別の.jpg（または指定した別の画像タイプ）画像としてまとめて保存されます。

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

Outlookで連絡するための画像/写真を追加、変更、または削除します