メインコンテンツへスキップ

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

以前にOutlookで多くの連絡先の写真を追加したことがあり、これらの連絡先の写真を個別の画像として保存したい場合、どのように対処できますか? あなたのためのXNUMXつの解決策があります:

Office タブ - Microsoft Office でタブによる編集と参照を有効にし、仕事をスムーズにします
Kutools for Outlook - 100 以上の高度な機能で Outlook を強化し、優れた効率を実現します
これらの高度な機能を使用して、Outlook 2021 ~ 2010 または Outlook 365 を強化します。 包括的な 60 日間の無料トライアルを利用して、メール エクスペリエンスを向上させてください。

矢印青い右バブルXNUMX人の連絡先の写真をOutlookに保存します

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

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

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

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

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

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

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

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

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


矢印青い右バブルOutlookのすべての連絡先のすべての写真を保存します

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用Kutools - Outlook を強化する 100 以上の強力な機能

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How can i get my photos from Outlook
This comment was minimized by the moderator on the site
I have discovered an easy way to save outlook contacts information with photos. Select all, copy and paste in word document. Then double click on selected contacts to reinstall into outlook.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations