Wie speichert man Kontaktbilder in Outlook?

Speichern Sie das Foto eines Kontakts in Outlook

Speichern Sie alle Fotos aller Kontakte in Outlook

Um das Foto eines bestimmten Kontakts in Outlook zu speichern, gehen Sie bitte wie folgt vor:

1. Öffnen Sie den Kontaktordner, der den angegebenen Kontakt enthält, und ändern Sie die Ordneransicht, indem Sie auf Ansicht > Ansicht ändern > Liste klicken. Siehe Screenshot:

2. Doppelklicken Sie, um den angegebenen Kontakt zu öffnen, dessen Foto Sie speichern werden.

3. Klicken Sie im Kontaktfenster mit der rechten Maustaste auf das Kontaktfoto und wählen Sie Kopieren aus dem Rechtsklick-Menü. Siehe Screenshot:

4. Platzieren Sie den Cursor im Notizen feld und drücken Sie Strg + V , um das Foto in das Notizenfeld einzufügen.

5. Klicken Sie mit der rechten Maustaste auf das eingefügte Foto im Notizenfeld und wählen Sie Als Bild speichern aus dem Rechtsklick-Menü. Siehe Screenshot:

6. Wählen Sie im erscheinenden Datei-Speicher-Dialogfeld bitte (1) den Zielordner aus, in dem Sie das Foto speichern möchten, (2) geben Sie einen Namen für das neue Foto im Feld Dateiname ein, (3) legen Sie einen Bildtyp aus der Drop-down-Liste Speichern unter Typ fest, und klicken Sie abschließend auf die Schaltfläche Speichern . Siehe Screenshot:

7. Schließen Sie das Kontaktfenster, ohne die Änderungen zu speichern.

Bisher wurde das Foto des angegebenen Kontakts bereits als einzelnes Bild gespeichert.

Wenn Sie die Fotos aller Kontakte in einem Kontaktordner in Outlook speichern müssen, probieren Sie bitte das folgende VBA aus.

1. Öffnen Sie den angegebenen Kontaktordner, in dem Sie alle Kontaktfotos speichern werden, und drücken Sie Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie dann den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Fotos aller Kontakte in Outlook stapelweise speichern

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

Hinweis: Dieses VBA speichert alle Kontaktfotos als JPG-Bilder. Um sie als anderen Bildtyp zu speichern, ändern Sie bitte das .jpg im Code xPath = xFileName & xName & ".jpg" in andere Erweiterungsnamen, wie z.B. .png, .gif usw.

3. Drücken Sie die Taste F5 oder die Schaltfläche Ausführen , um dieses VBA auszuführen.

4. Wählen Sie im erscheinenden Dialogfeld Ordner durchsuchen den Zielordner aus, in dem Sie die Fotos speichern möchten, und klicken Sie auf die Schaltfläche OK. Siehe Screenshot:

Jetzt sind alle Kontaktfotos im ausgewählten Kontaktordner als einzelne .jpg (oder einen anderen von Ihnen angegebenen Bildtyp) Bilder in Massen gespeichert.

Kontaktbilder in E-Mails in Outlook ausblenden

Foto/Bild für Kontakt in Outlook hinzufügen, ändern oder entfernen