Simpan foto satu kontak di Outlook

Simpan semua foto dari semua kontak di Outlook

Untuk menyimpan foto kontak tertentu di Outlook, lakukan hal berikut:

1. Buka folder kontak yang berisi kontak tertentu, dan ubah tampilan folder dengan mengklik View > Ubah Tampilan > Daftar. Lihat tangkapan layar:

2. Klik dua kali untuk membuka kontak tertentu yang fotonya akan Anda simpan.

3. Di jendela kontak, klik kanan foto kontak, dan pilih Copy dari menu klik kanan. Lihat tangkapan layar:

4. Letakkan kursor di Catatan kotak, dan tekan Ctrl + V kunci untuk menempelkan foto ke dalam Catatan kotak.

5. Klik kanan foto yang ditempelkan di Catatan kotak, dan pilih Simpan sebagai Gambar dari menu klik kanan. Lihat tangkapan layar:

6. Di kotak dialog File Save yang muncul, silakan (1) buka folder tujuan tempat Anda menyimpan foto, (2) ketikkan nama untuk foto baru di Nama file kotak, (3) tentukan jenis gambar dari Save as type daftar drop-down, dan akhirnya (4) klik Save tombol. Lihat tangkapan layar:

7. Tutup jendela Kontak tanpa menyimpan perubahan.

Sejauh ini, foto kontak tertentu telah disimpan sebagai gambar individu.

Jika Anda perlu menyimpan foto dari semua kontak di folder kontak di Outlook, coba VBA di bawah ini.

1. Buka folder kontak yang ditentukan di mana Anda akan menyimpan semua foto kontak, dan tekan lain + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, lalu tempel kode VBA di bawah ini ke jendela modul baru.

VBA: Batch menyimpan foto dari semua kontak di 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 ini akan menyimpan semua foto kontak sebagai gambar JPG. Untuk menyimpan sebagai jenis gambar lainnya, harap ubah . Jpg di dalam kode xPath = xFileName & xName & ".jpg" ke nama ekstensi lain, seperti . Png, . Gif, Dll

3. Tap F5 kunci atau Run tombol untuk menjalankan VBA ini.

4. Pada kotak dialog Browse For Folder yang muncul, pilih folder tujuan tempat Anda akan menyimpan foto, dan klik OK tombol. Lihat tangkapan layar:

Sekarang semua foto kontak di folder kontak yang dipilih disimpan sebagai gambar .jpg individual (atau jenis gambar lain seperti yang Anda tentukan) secara massal.

Sembunyikan foto kontak di email di Outlook

Tambahkan, ubah atau hapus gambar / foto untuk kontak di Outlook