บันทึกรูปภาพของผู้ติดต่อหนึ่งรายใน Outlook

บันทึกรูปภาพทั้งหมดของผู้ติดต่อทั้งหมดใน Outlook

หากต้องการบันทึกรูปภาพของผู้ติดต่อบางรายใน Outlook โปรดทำดังนี้:

1. เปิดโฟลเดอร์ผู้ติดต่อที่มีผู้ติดต่อที่ระบุและเปลี่ยนมุมมองโฟลเดอร์โดยคลิก รายละเอียด > เปลี่ยนมุมมอง > รายการ. ดูภาพหน้าจอ:

2. ดับเบิลคลิกเพื่อเปิดผู้ติดต่อที่ระบุซึ่งคุณจะบันทึกรูปภาพ

3. ในหน้าต่างผู้ติดต่อโปรดคลิกขวาที่รูปถ่ายผู้ติดต่อแล้วเลือก คัดลอก จากเมนูคลิกขวา ดูภาพหน้าจอ:

4. วางเคอร์เซอร์ไว้ในไฟล์ หมายเหตุ : แล้วกด Ctrl + V เพื่อวางรูปภาพลงในไฟล์ หมายเหตุ : กล่อง.

5. คลิกขวาที่รูปภาพที่วางในไฟล์ หมายเหตุ : แล้วเลือก บันทึกเป็นรูปภาพ จากเมนูคลิกขวา ดูภาพหน้าจอ:

6- ในกล่องโต้ตอบบันทึกไฟล์ที่โผล่ออกมาโปรด (1) เปิดโฟลเดอร์ปลายทางที่คุณจะบันทึกรูปภาพใน (2) พิมพ์ชื่อสำหรับรูปภาพใหม่ใน ชื่อไฟล์ กล่อง (3) ระบุประเภทรูปภาพจาก บันทึกเป็นชนิด รายการแบบเลื่อนลง และสุดท้าย (4) คลิก ลด ปุ่ม. ดูภาพหน้าจอ:

7. ปิดหน้าต่างผู้ติดต่อโดยไม่บันทึกการเปลี่ยนแปลง

จนถึงขณะนี้รูปถ่ายของผู้ติดต่อที่ระบุได้รับการบันทึกเป็นภาพเดียวแล้ว

หากคุณต้องการบันทึกรูปภาพของผู้ติดต่อทั้งหมดในโฟลเดอร์ที่ติดต่อใน Outlook โปรดลองใช้ VBA ด้านล่าง

1. เปิดโฟลเดอร์ผู้ติดต่อที่ระบุซึ่งคุณจะบันทึกรูปภาพผู้ติดต่อทั้งหมดแล้วกด อื่น ๆ + F11 ปุ่มเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลแล้ววางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูลใหม่

VBA: Batch บันทึกรูปภาพของผู้ติดต่อทั้งหมดใน 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. ในกล่องโต้ตอบเรียกดูโฟลเดอร์ที่เปิดขึ้นมาโปรดเลือกโฟลเดอร์ปลายทางที่คุณจะบันทึกรูปถ่ายแล้วคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

ตอนนี้รูปถ่ายผู้ติดต่อทั้งหมดในโฟลเดอร์รายชื่อติดต่อที่เลือกจะถูกบันทึกเป็นรูป. jpg (หรือรูปภาพประเภทอื่นตามที่คุณระบุ) จำนวนมาก

ซ่อนรูปภาพผู้ติดต่อในอีเมลใน Outlook

เพิ่มเปลี่ยนหรือลบรูปภาพ / ภาพถ่ายสำหรับผู้ติดต่อใน Outlook