Lưu ảnh của một liên hệ trong Outlook

Lưu tất cả ảnh của tất cả các liên hệ trong Outlook

Để lưu ảnh của một liên hệ nhất định trong Outlook, hãy làm như sau:

1. Mở thư mục liên hệ có chứa liên hệ được chỉ định và thay đổi chế độ xem thư mục bằng cách nhấp vào Xem > Thay đổi góc nhìn > Danh sách. Xem ảnh chụp màn hình:

2. Nhấp đúp để mở liên hệ được chỉ định có ảnh bạn sẽ lưu.

3. Trong cửa sổ liên hệ, vui lòng nhấp chuột phải vào ảnh liên hệ và chọn Sao chép từ menu chuột phải. Xem ảnh chụp màn hình:

4. Đặt con trỏ vào Chú ý hộp và nhấn Ctrl + V các phím để dán ảnh vào Chú ý cái hộp.

5. Nhấp chuột phải vào ảnh đã dán trong Chú ý hộp và chọn Lưu dưới dạng ảnh từ menu chuột phải. Xem ảnh chụp màn hình:

6. Trong hộp thoại Lưu tệp hiện ra, vui lòng (1) mở thư mục đích mà bạn sẽ lưu ảnh vào, (2) nhập tên cho ảnh mới trong Tên tập tin cái hộp, (3) chỉ định một loại hình ảnh từ Save as type danh sách thả xuống và cuối cùng (4) nhấp vào Lưu cái nút. Xem ảnh chụp màn hình:

7. Đóng cửa sổ Liên hệ mà không lưu các thay đổi.

Cho đến nay, ảnh của liên hệ cụ thể đã được lưu dưới dạng ảnh riêng lẻ.

Nếu bạn cần lưu ảnh của tất cả các liên hệ trong thư mục liên hệ trong Outlook, hãy thử VBA bên dưới.

1. Mở thư mục liên hệ được chỉ định nơi bạn sẽ lưu tất cả ảnh liên hệ và nhấn Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đun, rồi dán mã VBA bên dưới vào cửa sổ mô-đun mới.

VBA: Lưu hàng loạt ảnh của tất cả các liên hệ trong 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

Chú thích: VBA này sẽ lưu tất cả ảnh liên hệ dưới dạng ảnh JPG. Để lưu dưới dạng loại hình ảnh khác, vui lòng thay đổi . Jpg trong mã xPath = xFileName & xName & ".jpg" đến các tên tiện ích mở rộng khác, chẳng hạn như . Png, . Gif, Vv

3. Nhấn nút F5 chìa khóa hoặc chạy để chạy VBA này.

4. Trong hộp thoại Browse For Folder bật ra, vui lòng chọn thư mục đích mà bạn sẽ lưu ảnh và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Giờ đây, tất cả ảnh liên hệ trong thư mục liên hệ đã chọn được lưu dưới dạng ảnh .jpg riêng lẻ (hoặc loại ảnh khác như bạn đã chỉ định) hàng loạt.

Ẩn ảnh liên hệ trong email trong Outlook

Thêm, thay đổi hoặc xóa ảnh / ảnh cho liên hệ trong Outlook