Zapisz zdjęcie jednego kontaktu w Outlooku

Zapisz wszystkie zdjęcia wszystkich kontaktów w Outlooku

Aby zapisać zdjęcie określonego kontaktu w programie Outlook, wykonaj następujące czynności:

1. Otwórz folder kontaktów zawierający określony kontakt i zmień widok folderu, klikając Zobacz i wysłuchaj > Zmień widok > Lista. Zobacz zrzut ekranu:

2. Kliknij dwukrotnie, aby otworzyć określony kontakt, którego zdjęcie zapiszesz.

3. W oknie kontaktu kliknij prawym przyciskiem myszy zdjęcie kontaktu i wybierz Skopiuj z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:

4. Umieść kursor w Uwagi pudełko i naciśnij Ctrl + V klucze do wklejenia zdjęcia do pliku Uwagi pudełko.

5. Kliknij prawym przyciskiem myszy wklejone zdjęcie w pliku Uwagi i wybierz Zapisz jako obrazek z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:

6. W wyskakującym oknie dialogowym Zapisz plik, proszę (1) otwórz folder docelowy, w którym zapiszesz zdjęcie, (2) wpisz nazwę nowego zdjęcia w Nazwa pliku pudełko, (3) określ typ obrazu z pliku Zapisz jako typ rozwijana lista i wreszcie (4) kliknij Zapisz przycisk. Zobacz zrzut ekranu:

7. Zamknij okno Kontakt bez zapisywania zmian.

Do tej pory zdjęcie określonego kontaktu zostało już zapisane jako obraz indywidualny.

Jeśli chcesz zapisać zdjęcia wszystkich kontaktów w folderze kontaktów w Outlooku, spróbuj poniżej VBA.

1. Otwórz określony folder kontaktów, w którym zapiszesz wszystkie zdjęcia kontaktów, i naciśnij inny + F11 klawisze, aby otworzyć okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do nowego okna modułu.

VBA: Batch zapisuje zdjęcia wszystkich kontaktów w Outlooku

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: Ten VBA zapisze wszystkie zdjęcia kontaktów jako obrazy JPG. Aby zapisać jako inny typ obrazu, zmień rozszerzenie . Jpg w kodzie xPath = xFileName & xName & „.jpg” do innych nazw rozszerzeń, takich jak . PNG, . Gif, itp.

3, wciśnij F5 klucz lub run przycisk, aby uruchomić ten VBA.

4. W wyskakującym oknie dialogowym Przeglądaj w poszukiwaniu folderu wybierz folder docelowy, w którym zapiszesz zdjęcia, i kliknij OK przycisk. Zobacz zrzut ekranu:

Teraz wszystkie zdjęcia kontaktów w wybranym folderze kontaktów są zapisywane zbiorczo jako pojedyncze obrazy .jpg (lub inny typ obrazu, jak określono).

Ukryj zdjęcia kontaktów w wiadomościach e-mail w Outlooku

Dodaj, zmień lub usuń zdjęcie / zdjęcie do kontaktu w Outlooku