บันทึกรูปภาพของผู้ติดต่อหนึ่งรายใน 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