Uložte fotografii jednoho kontaktu v Outlooku

Uložte všechny fotografie všech kontaktů v Outlooku

Chcete-li uložit fotografii určitého kontaktu v Outlooku, postupujte takto:

1. Otevřete složku kontaktů obsahující zadaný kontakt a kliknutím změňte zobrazení složky Pohled > Změnit pohled > Seznam. Viz snímek obrazovky:

2. Dvojitým kliknutím otevřete určený kontakt, jehož fotografii uložíte.

3. V okně kontaktu klikněte pravým tlačítkem na fotografii kontaktu a vyberte Zkopírujte z nabídky pravého tlačítka myši. Viz screenshot:

4. Umístěte kurzor do Poznámky rámeček a stiskněte Ctrl + V klávesy pro vložení fotografie do Poznámky box.

5. Klikněte pravým tlačítkem na vloženou fotografii v Poznámky pole a vyberte Uložit jako obrázek z nabídky pravého tlačítka myši. Viz screenshot:

6. Ve vyskakovacím dialogovém okně Uložit soubor prosím (1) otevřete cílovou složku, do které fotografii uložíte, (2) zadejte název nové fotografie do složky Název souboru box, (3) zadejte typ obrázku z Uložit jako typ rozevírací seznam a nakonec (4) klepněte na tlačítko Uložit knoflík. Viz screenshot:

7. Zavřete okno Kontakt bez uložení změn.

Fotografie zadaného kontaktu byla dosud uložena jako samostatný obrázek.

Pokud potřebujete uložit fotografie všech kontaktů do složky kontaktů v aplikaci Outlook, zkuste níže VBA.

1. Otevřete zadanou složku kontaktů, do které uložíte všechny fotografie kontaktů, a stiskněte Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula poté vložte pod kód VBA do nového okna modulu.

VBA: Dávkové ukládání fotografií všech kontaktů v aplikaci 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

Poznámka: Tato VBA uloží všechny fotografie kontaktů jako obrázky JPG. Chcete-li uložit jako jiný typ obrázku, změňte prosím . Jpg v kódu xPath = xFileName & xName & ".jpg" na další názvy přípon, například . Png, . Gif, Etc.

3. zmáčkni F5 nebo klávesu Běh tlačítko pro spuštění tohoto VBA.

4. Ve vyskakovacím dialogovém okně Procházet složku vyberte cílovou složku, do které fotografie uložíte, a klikněte na ikonu OK knoflík. Viz screenshot:

Nyní jsou všechny fotografie kontaktů ve vybrané složce kontaktů hromadně ukládány jako jednotlivé obrázky .jpg (nebo jiný typ obrázku, jak jste zadali).

Skrýt fotografie kontaktů v e-mailech v Outlooku

Přidat, změnit nebo odebrat obrázek / fotografii kontaktu v aplikaci Outlook